Komut0'ın kodlarını aşağıdaki kodlarla değiştirerek deneyiniz.

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

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

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

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

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

End With