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: 3)



  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:


Foruma Git:


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