+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma (/konu-listeden-her-secilen-her-benzersiz-kaydin-id-numarasini-metin-kutusuna-yazdirma.html)
Sayfalar:
1
2
RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - berduş - 13/06/2022
kodu aşağıdaki gibi düzenleyip dener misiniz?
Private Sub Liste0_Click()
tmp = Me.Liste0.Column(0)
For x = 1 To 6
If tmp = Controls("txt" & x) Then Exit Sub
Next x
For x = 1 To 6
If Len(Controls("txt" & x) & "") = 0 Then Controls("txt" & x) = tmp: Exit Sub
Next x
End Sub
RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - alikagan - 13/06/2022
çok teşekkür ederim, çözüldü.
RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - berduş - 13/06/2022
rica ederim
iyi çalışmalar