Sql WHERE deyiminde hata linkine eklediğiniz örnek uygulamayı düzenledim.
İnceleyiniz, koddaki eksik ayanları uygulamanıza göre düzenlersiniz.

Dim Kriter As String

If Len(Me.birimkodu) > 0 Then

    Kriter = Kriter & "tbl_brmkodu LIKE '%" & Me.birimkodu & "%' AND "

End If

If Len(Me.tarih) > 0 Then

    Kriter = Kriter & "tbl_tarih LIKE '%" & Me.tarih & "%' AND "

End If

If Len(Kriter) > 0 Then

    Kriter = " WHERE " & Left(Kriter, Len(Kriter) - 4)

End If

    strSQl = "SELECT * FROM tbl_ameliyatalt " & Kriter & ";"

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strSQl, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    With rstkayit

        If Not rstkayit.EOF Then

            Me.ydshpl = .Fields("tbl_ydokukö")

            Me.ydshpz = .Fields("tbl_ydokuköa")

            Me.sdshpl = .Fields("tbl_sdokukö")

            Me.sdshpz = .Fields("tbl_sdokuköa")

        Else

            .AddNew

            If MsgBox("" & Me.birimkodu & " Birim Kodlu ve " & Me.tarih & " tarihli yeni kayıt eklensin mi?", vbInformation + vbYesNo) = vbYes Then

                .Fields("tbl_brmkodu") = Me.birimkodu

                .Fields("tbl_tarih") = Me.tarih

                .Update

            End If

        End If

    End With

Recalc