(26/12/2011, 13:04)iscinar yazdı: Önceki mesajda belirttiğim gibi liste kutusu işini görür gibi geliyor.Diğer sorunu hallettim Hocam.
Ana forma Bir liste kutusu iki metin kutusu ekle.
Liste kaynağı sorgunun ölçütüneyazLike "*" & [Formlar]![Frm_Ana]![Form2].[Form]![plakagizli] & "*"
metin kutularının birini gizle görünen kutunun değiştiğinde olayınayaz ve dene (alan isimleri benim formumdakilerdir kopyala yapıştır yaptım kendine göre uyarla)Private Sub plakasuzgec_Change()
Dim Bul As String
Bul = plakasuzgec.Text
Me.plakagizli.Value = Bul
Me.CezaListe.Requery
End Sub
arayacağın kutuya her girdiğin harfte sorgulama olması lazım
Bakalım anlamış mıyım?
Formumuza (ResmiYazışma/ResmiYazışmaAlt) iki metin kutusu ve bir liste ekliyoruz. K1, K2 metin Kutusu; L1 de liste adı olsun.
K2 Gizli, K1 görünür olcak.
L2 Veri Kaynağı Sogusuna
Like "*" & [Formlar]![ResmiYazışma]![ResmiYazışmaAlt].[Form]![K1] & "*"
yazıyoruz.K1 Metin kutusunun Değiştiğinde olayına
Private Sub K1_Change()
Dim Bul As String
Bul = K1.Text
Me.K2.Value = Bul
Me.L1.Requery
End Sub
Yazacağız değil mi hocam?
Böyle yaptım ama olmadı.
Örneği ekte sunuyorum. Yardımlarıız için teşekkür ederim. Bu arada 2010 kullanıyorum.