Merhaba arkadaşlar, form sayfamda aşağıdaki kod ile çalışan bir arama butonum var. Metin kutusuna değer yazarak arama yaptığımda sorun yok fakat yanlışlık ile metin kutusu boşken arama butonuna basıldığında "Run-time error 3077" hatası veriyor. Arama metin kutusu boş olduğunda da arama butonuna tıklandığında hata vermemesi için ne yapabilirim. Yardımlarınız için şimdiden teşekkürler.

Private Sub Komut51_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
If IsNull(Me.Metin131) Then
   rs.FindFirst "[sicil] = " & Me.Metin131 & ""
   GoTo 100
End If
rs.FindFirst "[sicil] = " & Me.Metin131 & ""
100
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub


Hepinize iyi çalışmalar dilerim.

Private Sub Komut51_Click()
On Error GoTo Err_Komut51_Click

Dim rs As Object
Set rs = Me.Recordset.Clone
If IsNull(Me.Metin131) Then
   rs.FindFirst "[sicil] = " & Me.Metin131 & ""
   GoTo 100
End If
rs.FindFirst "[sicil] = " & Me.Metin131 & ""
100
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Exit_Komut51_Click:
    Exit Sub

Err_Komut51_Click:
    'MsgBox Err.Description
    Resume Exit_Komut51_Click

End Sub



Bu şekilde deneyin

Çok teşekkürler, verdiğiniz kodlar ile sorun çözüldü.

İyi çalışmalar dilerim.