Skip to main content

AccessTr.neT


listboxta birden çok seçileni tek bir alana yazdırma

listboxta birden çok seçileni tek bir alana yazdırma

Çözüldü #1
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..
.rar Report_final_1.rar (Dosya Boyutu: 53,82 KB | İndirme Sayısı: 12)
Cevapla
Çözüldü #2
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
İyiki Varsın Access Img-grin
Cevapla
Çözüldü #3
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..
Cevapla
Çözüldü #4
daha önce yazdığım kodun en altına
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

kaydetme kodunu ekle. değeri oraya atar ve kaydı daydeder.
İyiki Varsın Access Img-grin
Cevapla
Çözüldü #5
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
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
Çözüldü #6
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.
İyiki Varsın Access Img-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task