Tüm form üyelerine iyi akşamlar. Arkadaşlar ADO ile tablodan Calışan isimli butonla veri alıyarum. Çalışmayan isimli btondaki kodda form üzerinde bulunan Kod ve tarih alanına göre veri almak istiyorum ama ama devamlı hata alıyorum. Galiba WHERE Sql deyiminde hata yapıyorum. Çözemedim. Yardımcı olursanız sevinirim. Saygılarımla.

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

Sayın ozanakkaya yardım için teşekür ederim. Kodu uyguladım ve çalıştı. Gerçekten çok güzel. Eline bilgine sağlık. Eğer zamet olmazsa bu kodun satır olarak neler yaptığını. Yani her satırın ne işlem yaptığını açıklaman mümkün olabilirmi. Hem öğrenme açısından hemde arşivde bulunma açısından. Saygı ve sevgilerimle teşekkürlerimi sunarım.