(28/01/2021, 13:03)berduş yazdı: 1 - siz kodu bambaşka yere yazmışsnız, kodun veri al butonuna eklenmesi yeterlidi siz modüle eklemişsiniz ama butondan çağırmamışsınızPrivate Sub CommandButton7_Click()
ayrıca hatalı yazmışsınız; kod bir fonksiyon yada sub içine yazılmalıydı siz orta yere yazıp bırakmışsınız, fonksiyonun sonu var ama başı yok o nedenle de hata veriyor.
modüldeki o kısmı tekrar kontrol etmelisiniz.
2 - eğer hem tarih hem de ürün adına göre süzülecekse and bağlacıyla yeni süzgeç eklenebilir
gibi........where clng([Ürün_Kayıt_Tarihi])= " & CLng(CDate(Me.TextBox1.Value)) and [Ürün Adı]='" & comboUrunadi & "'"
Call connection_open
sql0 = "select * from ürünlist where clng([Ürün_Kayıt_Tarihi])= " & CLng(CDate(Me.TextBox1.Value))
rs.Open sql0, conn, 1, 1
Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs
sql0 = "select * from cikis where clng([Ürün_Cikis_Tarihi])= " & CLng(CDate(Me.TextBox1.Value))
rs.Open sql0, conn, 1, 1
Worksheets("ürüncikisveri").Range("a1").CopyFromRecordset rs
rs.Close
End Sub
Bu şekilde yazdım
sql0 = "select * from cikis where clng([Ürün_Cikis_Tarihi])= " & CLng(CDate(Me.TextBox1.Value))
rs.Open sql0, conn, 1, 1
bu kısımda hata alıyorum