AccessTr.neT

Tam Versiyon: Sql WHERE deyiminde hata
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.