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?
Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma
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
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
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
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][/img]
resimler maalesef görünmüyor!
resimleri rar dosyasına koyarak ekler misiniz?
resimleri rar dosyasına koyarak ekler misiniz?
Konuyu Okuyanlar: 1 Ziyaretçi