(28/01/2021, 13:50)berduş yazdı: kodu aynen aşağıdaki gibi  yazdı o tarihe ait tüm girdi ve çıktıları listeledi siz kodu nereye yazıyorsunuz?

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

rs.Close



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

Private Sub CommandButton7_Click()

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

rs.Close



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

Kod buton içerisinde bu şekilde yazılı.