(28/01/2021, 14:20)berduş yazdı: sorun ilgili verinin tabloda olmamasından kaynaklanıyor
eğer kayıt sayısı = 0 ise kopyalanma hata verir aşağıdaki gibi if döngüsüyle sorun giderilebilir

If rs.RecordCount > 0 Then

Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs

End If

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

If rs.RecordCount > 0 Then
Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs
End If

sql0 = "select * from cikis where clng([Ürün_Cikis_Tarihi])= " & CLng(CDate(Me.TextBox1.Value))
rs.Open sql0, conn, 1, 1

If rs.RecordCount > 0 Then
Worksheets("ürüncikisveri").Range("a1").CopyFromRecordset rs
End If

rs.Close
End Sub


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 hala o tarihte kayıtlı ürün yok yaptım ama hata veriyor.