(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.

bir önceki mesajda yazdığınız kodda ilk rs.close silinmiş görünüyor,.

Hala aynı hatayı alıyorum sizin attığınızdan direk kodu kopyalayıp yapıştırdım hata alıyorum

Benim dosyamda hata var mı, calisiyor mu

(28/01/2021, 15:58)berduş yazdı: Benim dosyamda hata var mı, calisiyor mu

Göndermiş Olduğunuz Dosyada da hata alıyorum

rs.Open sql0, conn, 1, 1 bu kısımda hata veriyor ne yazık ki.

gifte de göreceğiniz gibi bende sorunsuz çalışıyor sizde neden hata verdiğini anlayamadım

https://resim.accesstr.net/do.php?img=10684