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

merhaba arkadaşlar,
eklediğim formdaki liste kutusundan seçtiğim kaydı,
BIR, IKI,UC,DORT,BES,ALTI
isimli metin kutularına id numaralarını yazdırmak istiyorum.

seçtiğim kayıtları BIR isimli metin kutusundan başlayarak yapmasını istiyorum,

----her seçtiğim farklı kaydı, bir sonraki metin kutusna yazmasını istiyorum

----aynı kaydı iki defa yazmasın istiyorum,

yani bir kaydı seçtim, BIR isimli metin kutusuna id numarasını yazdı, sonra aynı kaydı tekrar seçtiğmde örneğin UC nolu metin kutusuna aynı id noyu yazmasın istiyorum,
yardımcı olabilirmisiniz?

peki 7. yada 8. benzersiz seçimde ne yapacak, başa mı dönecek?
başa dönecekse tüm metin kutuları sıfırlanacak mı yoksa sadece var olanların üstüne mi yazacak

toplam 6 tane 
7 ve 8 olmayacak,

metin kutusu dolduysa devam etmeyecek

öncelikle metin kutularının ismini değiştirip, "txt" & Sayı formatına çevirdim ki döngüyle işlem yapabilsin
mesela
BIR yerine txt1
İKİ yerine txt2.... gibi

Private Sub Liste0_Click()

tmp = Me.Liste0.Column(0)

For x = 1 To 6

    If tmp = Controls("txt" & x) Then Exit Sub

    If Len(Controls("txt" & x) & "") = 0 Then Controls("txt" & x) = tmp: Exit Sub

Next x

End Sub

(13/06/2022, 17:26)berduş yazdı: öncelikle metin kutularının ismini değiştirip, "txt" & Sayı  formatına çevirdim ki döngüyle işlem yapabilsin
mesela
BIR yerine txt1
İKİ yerine txt2.... gibi

Private Sub Liste0_Click()

tmp = Me.Liste0.Column(0)

For x = 1 To 6

    If tmp = Controls("txt" & x) Then Exit Sub

    If Len(Controls("txt" & x) & "") = 0 Then Controls("txt" & x) = tmp: Exit Sub

Next x

End Sub

sn üstadım ilgilendiğin için teşekkür ederim,
aşağıdaki gibi bir sorun yaşıyorum,


[img]

resimler maalesef görünmüyor!
resimleri rar dosyasına koyarak ekler misiniz?