selam
sorum şu listede arama yapıp listede bulunan son kayıt ı metin kutularına alma
normalde vba da altaki kodlarla yapıyorum ama acessde yolunu bulamadım
saygılar
If ListBox1.ListCount > 0 Then
TextBox1.Value = ListBox1.List(0, 1)
TextBox2.Value = ListBox1.List(0, 3)
TextBox4.Value = ListBox1.List(0, 4)
End If
01-01-2010, 18:36 (En son düzenleme: 01-01-2010, 18:38 aydın3838.)
selam
sayın adnan bey teşekkürler
me leri koymadan çok deneme yaptım başarısız oldum
bir sorum daha olacak
bu kodları liste kutusundan metin 28 ile isme göre arama yapıyorum
liste12 de If ListBox1.ListCount > 0 Then 1 isim kalınca listeye alması gerekiyor
yapamadım gitti
01-01-2010, 20:49 (En son düzenleme: 01-01-2010, 21:22 aydın3838.)
sayın adnan bey
örnekte ki sorunlar şunlar
METİN 28 e isim yazınca listeden arama gerçekleşiyor ve liste kutusunda tek bir isim kaldığında
ilgili metin kutulatında görmem gerek
bunun yanısıra
MÜŞTERİARA formunun örnekte görürsünüz en alt sağda bilgilendirme etiketi var
şayet listede aranan isim varsa ve tek kaldıysa ilgili kutulara veri alım işleminde METİN 9 daki
ismi alttaki etikette göstermesi aranan isim yoksa kayıt yok yazısı
onay kutularına göre seçmeli arama yapmam gerek
mesela MÜŞTERİ İSMİNE GÖRE
KODA GÖRE
TARİHE GÖRE
TC NO SUNA GÖRE
yani şeçmeli arama yapmalıyım
eğer isterseniz excelde yapılmış örnek uygulamam var
yollayabilirim
saygılar
sayın adnan bey
excel örneği yeni eklentidedir
saygılar