Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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?
.rar setoluştur.rar (Dosya Boyutu: 24,05 KB | İndirme Sayısı: 3)
Cevapla
#2
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
Cevapla
#3
toplam 6 tane 
7 ve 8 olmayacak,

metin kutusu dolduysa devam etmeyecek
Cevapla
#4
ö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
Cevapla
#5
(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]
Cevapla
#6
resimler maalesef görünmüyor!
resimleri rar dosyasına koyarak ekler misiniz?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task