AccessTr.neT

mdb olarak eklendi
dinamik arama yapın listede bulduğunuz sonuca tıklayın

Sayın Hegu,Sayın Kadir bey,
Konu çözülmüştür,emeği geçenlere tşk.ederim

çözülmüş halinide ekler iseniz başka birininde işine yarar.

Sayın Kadir bey,
Sayın Hegunun çalışmasından aldığım kod aşağıdadır,ancak arama yaptıktan sonra arama metin kutusunda metin kalıyor,ikinci bir arama yapacağım zaman önceki metini temizlemek zorunda kalıyorum,bunu önlemenin  yolu varmı.
Saygılar.

Private Sub Komut75_Click()
If IsNull([mtn_MUSTERIADI]) Then
   MsgBox "Arma yapmak için Lütfen Müşteri Adı Soyadı yazınız."
   Me.mtn_MUSTERIADI.SetFocus
   Else
Dim strLinkCriteria
    strLinkCriteria = "[MUSTERIADI] Like '*" & Me.mtn_MUSTERIADI & "*'"
    DoCmd.OpenForm "F_MUSTERIKAYIT", , , strLinkCriteria
    End If
End Sub