mdb olarak eklendi
dinamik arama yapın listede bulduğunuz sonuca tıklayın
Kayıt Bul Sorunu
Sayın Hegu,Sayın Kadir bey,
Konu çözülmüştür,emeği geçenlere tşk.ederim
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
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
Konuyu Okuyanlar: 2 Ziyaretçi