AccessTr.neT
Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - Baskı Önizleme

+- 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

Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - alikagan - 13/06/2022

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?

RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - berduş - 13/06/2022

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

RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - alikagan - 13/06/2022

toplam 6 tane 
7 ve 8 olmayacak,

metin kutusu dolduysa devam etmeyecek

RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - berduş - 13/06/2022

ö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


RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - alikagan - 13/06/2022

(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][Resim: do.php?img=11988][/img]


[Resim: do.php?img=11989]

RE: Listeden Her Seçilen Her Benzersiz Kaydın İd Numarasını Metin Kutusuna Yazdırma - berduş - 13/06/2022

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