Şöyle bir kod bulup çözdüm.

Private Sub Komut30_Click()
If IsNull(Me.aramatxt) Then
MsgBox " Lütfen Boş Bırakmayınız.."
Else
    kontrol = DCount("aramatxt", "DAIRE_BILGILERI", "DAIRE_NO=" & aramatxt)
    If kontrol > 0 Then
            Dim strwhat2find As String
            If aramatxt.Value = "" Then
   
            Else
                strwhat2find = aramatxt.Value
                aramatxt.Value = ""
                DoCmd.FindRecord strwhat2find, acAnywhere, False, acSearchAll, True, acAll, True
                aramatxt.Value = strwhat2find
            End If
    Else
    MsgBox "Sitemizde Böyle bir daire Bulunmamaktadır.."
    End If
End If
End Sub