Skip to main content

AccessTr.neT


Sql WHERE deyiminde hata

Sql WHERE deyiminde hata

Çözüldü #1
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.
.rar Yeni Microsoft Office Access Uygulaması.rar (Dosya Boyutu: 19,9 KB | İndirme Sayısı: 9)
Cevapla
Çözüldü #2
Komut0'ın kodlarını aşağıdaki kodlarla değiştirerek deneyiniz.

Visual Basic Code
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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #3
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task