A.S.C Filtre, Grafik ve Raporlama Eklentisi

Liste Kutusunu Metin Kutusuna Yazdırma
#1
Arkadaşlar

Ekte hazırladığım örnekte formda bulunan ListeKutusu1 güncelleştirme sonrası olayına aşağıdaki VBA kodunu eklediğimde listeden seçilenleri Metin1 yazdırıyorum. 

Ancak ben liste kutusundaki tüm kayıtları metin kutusuna yazdırmak istiyorum. Bunu nasıl yapabilirim.

Visual Basic
  1. Dim lngLoop As Long
  2. Dim strIDs As String
  3.  
  4. If Me.ListeKutusu1.ItemsSelected.Count > 0 Then
  5.    strIDs = ""
  6.    For lngLoop = 0 To Me.ListeKutusu1.ItemsSelected.Count - 1
  7.      strIDs = strIDs & Me.ListeKutusu1.ItemData(Me.ListeKutusu1.ItemsSelected(lngLoop)) & ";"
  8.    Next lngLoop
  9.    Me.Metin1 = strIDs
  10.  
  11. Else
  12.    Me.Metin1 = ""
  13. End If




Eklenti Dosyaları
.rar   Database2.rar (Boyut: 19,71 KB / İndirilme: 9)



  Alıntı
Bu mesajı beğenenler:
#2
tüm listeyi ekleyebilmek için aşağıdaki kod işinize yarayabilir
Visual Basic
  1. Dim Say, x As Integer
  2. Dim Sira, Ad As String
  3.  
  4. Say = Me.ListeKutusu1.ListCount
  5. For x = 0 To Say - 1
  6.    Sira = Sira & ";" & ListeKutusu1.Column(0, x)
  7.    Ad = Ad & ";" & ListeKutusu1.Column(1, x)
  8. Next x
  9. Me.Metin1 = Mid(Sira, 2) & Ad


ayrıca sadece seçili kayıtlar için  "afterupdate olayını da aşağıdaki şekilde değiştirebilirsiniz
Visual Basic
  1. Private Sub ListeKutusu1_AfterUpdate()
  2. Dim lngLoop As Long
  3. Dim strIDs As String
  4. Dim varItm As Variant
  5.  
  6. Set ctl = Me.ListeKutusu1
  7. For Each varItm In ctl.ItemsSelected
  8.     strIDs = strIDs & Me.ListeKutusu1.Column(0, varItm) & ";"
  9. Next varItm
  10.    Me.Metin1 = strIDs
  11. End Sub


dilerim işinize yarar



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [RAPOR] Secenek Denetimine Rapor Atama Ve Seçime Göre Yazdırma sefersanli 3 79 28-11-2019, 08:24
Son Mesaj: sefersanli
  [RAPOR] Raporları Baskı önizleme Ve Yazdırma (birden çok) sefersanli 1 58 15-11-2019, 23:42
Son Mesaj: sefersanli
  [FORM] metin kutusuna çoklu seçim örnekleri 88888888 15 5.478 01-11-2019, 01:16
Son Mesaj: dsezgin
  [FORM] Form Yazdırma omurozkan 7 4.081 15-10-2019, 13:36
Son Mesaj: dsezgin
  Geçerli Formu Yazdırma Midascicero 1 105 11-10-2019, 07:19
Son Mesaj: dsezgin
  Metin Kutusuna Şartlı veri almak keremm 4 123 13-09-2019, 14:19
Son Mesaj: keremm
access-sql-18 En az olanı otomatik vermesi ve excel'e yazdırma prestij06 43 2.126 25-06-2019, 13:47
Son Mesaj: halily
  [RAPOR] access ayrı raporları toplu yazdırma obaysal42 8 668 18-06-2019, 16:36
Son Mesaj: obaysal42

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi