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... 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. |