Merhabalar, EK'te göndermiş olduğum formda mesai saatlerinde olup bitenleri takip ediyorum. Formun en alt tarafında bulunan "BÜTÜN VARDİYA NOTLARI (ARIZA ARAMA BÖLÜMÜ" altformun hemen altına aranacak kelime için bir alan koydum. O kısıma girilen herhangi bir kelimenin belirtmiş olduğum altform içerisinde geçiyorsa sadece o kayıtları göstermesini yani süzmesini istiyorum. Diğerlerini göstersin istemiyorum. Konuyla ilgili yardımcı olabilirseniz sevinirim.

Birde aranacak kelimeyi yazdıktan sonra bana hangi ünite içinde aramamı yapacak bir pencere çıkarma şansımız varmı acaba? Eğer böyle olursa çok daha iyi olur.

Sn denizpulsar77;
Asagida ki proseduru arama metin kutusuna tasiyarak, sonuc alinabilir.

Private Sub Metin19_AfterUpdate()
Soru = InputBox("Arama yapilacak UNITE'yi girin", "UNITE", , 100, 100)
Dim Kyt As Recordset, AraKayit As String
Set Kyt = CurrentDb.OpenRecordset("Select * from altform Where (((unite)='" & Soru & "') And (([ekipman] & [Açýklama]) like '*" & Me.Metin19 & "*'))")
Kyt.MoveFirst
Do Until Kyt.EOF
AraKayit = AraKayit & Kyt.Fields(0) & ", "
Kyt.MoveNext
Loop
Kyt.Close: Set Kyt = Nothing
AraKayit = Mid(AraKayit, 1, Len(AraKayit) - 2)
AraKayit = "Select * from altform where ((Kimlik) In(" & AraKayit & "))"
Me.altform1.Form.RecordSource = AraKayit
Me.RecordsetClone.FindFirst "[Kimlik]=" & Me.altform1.Form!sahaid
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Sayın DSezgin83260,

Sorunu çözdüm tşk ederim