Arama butonu run tıme 2533 hatası

[muratkayabasi82]

hocam gönderiğim eke bakabilirmisiniz. çoklu arama formu, çalışmasında sorun yok sadece kriter girmeden ara tuşuna bastığım zaman run time error 2533 hatası alıyorum, yardımcı olabilirmisiniz?

 

[Korhan Ayhan]

Hata veren bölümü aşağıdaki satır ile değiştirip deneyiniz.

If K <> "" Then DoCmd.ApplyFilter , K

 

[muratkayabasi82]

Hocam çok teşekkür ederim elinize sağlık, 4 ay boyunca uğraştım, diğer forumlardan yardım alamadınm, bu forumda access olduğunu bilmiyordum, run tıme hatası almıyorum ancak arama düğmesine bastığımda tüm kayıtlar listeleniyor, bunu düzeltip bir de ara düğmesine kriter girilmediğinde uyarı mesajı (herhangi bir kriter girmediniz gibi) verdirebilir misinz

 

[Korhan Ayhan]

Arama kodunuzu aşağıdaki gibi değiştirip deneyiniz.

Private Sub ARA_Click()
    Dim K As String
    K = ""
    If Len(m) > 0 Then
    If Len(K) > 0 Then K = K + "AND"
    K = K + "[ADISOYADI] Like'" + m.Value + "'"
    End If
    If Len(t) > 0 Then
    If Len(K) > 0 Then K = K + "AND"
    K = K + "[TCNO] Like'" + t.Value + "'"
    End If
    If Len(d) > 0 Then
    If Len(K) > 0 Then K = K + "AND"
    K = K + "[DOGUMYERI] Like'" + d.Value + "'"
    End If
    If K = "" Then
        MsgBox "Arama işlemi için TCNO girişi yapınız!", vbCritical
    Else
        DoCmd.ApplyFilter , K
        AYRINTI.Visible = True
    End If
End Sub

 

[muratkayabasi82]

Hocam emegınıze sağlık sayenizde bu sorundan kurtulmuş oldum.