AccessTr.neT
listboxta birden çok seçileni tek bir alana yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: listboxta birden çok seçileni tek bir alana yazdırma (/konu-listboxta-birden-cok-secileni-tek-bir-alana-yazdirma.html)

Sayfalar: 1 2


listboxta birden çok seçileni tek bir alana yazdırma - passenger - 15/09/2009

merhaba değerli hocalarım, arkadaşlar,

benim yapmaya çalıştığım birşey var, yardımcı olursanız sevinirim:

ekteki dosyada Form2'yi kullanarak, formun sol bölümünde yer alan listboxta seçili her bir item için, analizType, analizStatus, analizRemarks alanlarına veri girip, aşağıdaki butona basınca tüm veriyi en alt kutudaki analizremarkshistory alanına birleştirerek yazmak istiyoruz. Daha önce Seruz hoca bunu yapmıştı ancak şimdi yeni bir durum var: analiztype bölümü de listbox şeklinde olacak ve burada seçilen tüm itemları da bir şekilde history içine ve ilgili tablodaki (ref_table) yazdırmamız gerekiyor.
örneğin analiztype'da hem economic, hem non-economic seçili olunca, aşağıda (Date of Record : 14.09.2009 / Type: Economic + Non-economic / Statu: ** N/A ** / Remark: ) ___ gibi bir ifade görünsün istiyorum.

müsait olan hocalardan/arkadaşlardan acil yardım rica ediyorum.
şimdiden teşekkürler..


Cvp: listboxta birden çok seçileni tek bir alana yazdırma - Nurullah_Serdar - 15/09/2009

Private Sub analizType_Click()
Dim liste As String
Dim sayi As Variant

If Me.analizType.ItemsSelected.Count = 0 Then
liste = ""
Me.analizRemarksHistory = "(Date of Record : " & Date & " / Type: " & " " & liste & " / Statu: " & " " & Me.analizStatus & " " & " / Remark: " & Me.analizRemarks & ") ___ "

Else
For Each sayi In Me.analizType.ItemsSelected
liste = liste & Me.analizType.Column(0, sayi) & "+"
Next sayi
liste = Left$(liste, Len(liste) - 1)

Me.analizRemarksHistory = "(Date of Record : " & Date & " / Type: " & " " & liste & " / Statu: " & " " & Me.analizStatus & " " & " / Remark: " & Me.analizRemarks & ") ___ "

End If
End Sub

yazdığım kodu analiztype liste kutusunun click olyına yapıştır. burada sana liste kutusunda seçili olan kaç tane değer varsa verecek. bunu nereye eklemek istiyorsan ekleyebilirsin.
kolay gelsin


Cvp: listboxta birden çok seçileni tek bir alana yazdırma - passenger - 15/09/2009

Nurullah hocam merhaba,

kod için teşekkürler. yaptım çalışıyor ancak bir sorun var.
analiztype'da seçili olanlar ref_table içinde ilgili alana yazılmıyor. ben, sizin yaptığınıza (farklı alanları bir yerde birleştirme) ilaveten, seçili olanın da ref_table içine yazılmasını istiyorum. bu nasıl olur?

teşekkürler..


Cvp: listboxta birden çok seçileni tek bir alana yazdırma - Nurullah_Serdar - 15/09/2009

daha önce yazdığım kodun en altına
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

kaydetme kodunu ekle. değeri oraya atar ve kaydı daydeder.


Cvp: listboxta birden çok seçileni tek bir alana yazdırma - benremix - 15/09/2009

Katkı ve paylaşımlarınız için teşekkürler. Sn Nurullah_Serdar bugünkü performansınızdan dolayı tebrik ederim. Saygılar...
10806


Cvp: listboxta birden çok seçileni tek bir alana yazdırma - Nurullah_Serdar - 15/09/2009

hep böyle olmayı herkes ister ama işler ne yazıkki. ayda yılda bir olan bir durum bu. umarım hep buna yakın fırsatlar bulabilirim.
herkese kolay gelsin.