07-08-2019, 09:08
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.
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
- Dim lngLoop As Long
- Dim strIDs As String
-
- If Me.ListeKutusu1.ItemsSelected.Count > 0 Then
- strIDs = ""
- For lngLoop = 0 To Me.ListeKutusu1.ItemsSelected.Count - 1
- strIDs = strIDs & Me.ListeKutusu1.ItemData(Me.ListeKutusu1.ItemsSelected(lngLoop)) & ";"
- Next lngLoop
- Me.Metin1 = strIDs
-
- Else
- Me.Metin1 = ""
- End If