Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma

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

çok teşekkür ederim, çözüldü.

rica ederim
iyi çalışmalar