Resmi Yazışmada Konu içindeki yazılan İfadeye göre Konu Nosunu belirleme

1 2 3
26/12/2011, 16:35

kursad05

Hocam dediğiniz şekilde düzenlemeleri yaptım. İlk başta çalışıyordu. Ama sona hata vermeye başladı.
Hata ile ilgili resimler ektedir. Nerde hata yaptım anlamıyorum




26/12/2011, 17:29

kursad05

(26/12/2011, 13:04)iscinar yazdı: Önceki mesajda belirttiğim gibi liste kutusu işini görür gibi geliyor.
Ana forma Bir liste kutusu iki metin kutusu ekle.

Liste kaynağı sorgunun ölçütüne
Like "*" & [Formlar]![Frm_Ana]![Form2].[Form]![plakagizli] & "*" 
yaz

metin kutularının birini gizle görünen kutunun değiştiğinde olayına
Private Sub plakasuzgec_Change()
Dim Bul As String
Bul = plakasuzgec.Text
Me.plakagizli.Value = Bul
Me.CezaListe.Requery
End Sub
yaz ve dene (alan isimleri benim formumdakilerdir kopyala yapıştır yaptım kendine göre uyarla)

arayacağın kutuya her girdiğin harfte sorgulama olması lazım
Diğer sorunu hallettim Hocam.

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.

Ek Dosyalar


Ek Dosyalar

27/12/2011, 02:11

ozanakkaya

Sanırım " Resmi Yazışmada Konu içindeki yazılan İfadeye göre Konu Nosunu belirleme" konusuna devam ediyoruz.

liste kutusunun satır kaynağına
Like "*" & [Formlar]![ResmiYazışma]![ResmiYazışmaAlt].[Form]![K1] & "*"
yazmayacaksınız.
Like "*" & [Formlar]![ResmiYazışma]![ResmiYazışmaAlt].[Form]![K2] & "*"
yazacaksınız.
27/12/2011, 06:36

kursad05

(27/12/2011, 02:11)sledgeab yazdı: Sanırım " Resmi Yazışmada Konu içindeki yazılan İfadeye göre Konu Nosunu belirleme" konusuna devam ediyoruz.

liste kutusunun satır kaynağına
Like "*" & [Formlar]![ResmiYazışma]![ResmiYazışmaAlt].[Form]![K1] & "*"
yazmayacaksınız.
Like "*" & [Formlar]![ResmiYazışma]![ResmiYazışmaAlt].[Form]![K2] & "*"
yazacaksınız.

Ozan Hocam Teşekkürler. Sorun hallolmuştur.
İyi ki varsın accesstr.net....
1 2 3