listboxta birden çok seçileni tek bir alana yazdırma
Tarih
15/09/2009 14:00
Konu Sahibi
passenger
Yorumlar
8
Okunma
2758
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



passenger
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
53
15/07/2009
İzmir
Ofis 2007
10/10/2010,14:56
Çözüldü 
Sponsor Reklam
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..


Ek Dosyalar
.rar   Report_final_1.rar (Dosya Boyutu: 53,82 KB / İndirme Sayısı: 12)
Cevapla

Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
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

passenger
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
53
15/07/2009
İzmir
Ofis 2007
10/10/2010,14:56
Çözüldü 
Sponsor Reklam
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

Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
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

benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
11/01/2017,20:54
Çözüldü 
Sponsor Reklam
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

Nurullah_Serdar
FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Gelen sonuca göre otamatik metin yazdırma hknct 13 231 Dün, 16:35 hknct
  Formda 1 Metin Kutusuna birden fazla Metin Kutusu içeriğini koşula bağlı gösterme hbal09 5 205 06/01/2017, 16:22 atoz112
  Rapor Yazdırma Sorunu m_demir 2 77 02/01/2017, 20:08 m_demir
  Formu Yazdırma Hk. Serkan Çevik 7 211 12/12/2016, 00:03 Serkan Çevik
  Sorguda aynı kaydın birden çok listelenmesi atyaty 6 190 01/12/2016, 11:17 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya