(28/01/2021, 13:15)berduş yazdı: [ -> ]Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs
bu satırın altına rs.close kodunu ekleyerek dener misiniz?
rs.Open sql0, conn, 1, 1 bu kısımda hata alıyorum.
Ayrıca birden fazla ürün var ise o tarihe ayit onları alt alta alacak değil mi excel
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
(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ı.
benim gönderdiğim kodu yazmanıza rağmen hata mı veriyor?
dosyanızın son halini gönderir misiniz?
kodu hangi formun hangi butonuna yazdığınızı da belirtir misiniz?
(28/01/2021, 13:55)berduş yazdı: [ -> ]benim gönderdiğim kodu yazmanıza rağmen hata mı veriyor?
Evet hata alıyorum .Ürün girişi getirmiş ama çıkışta sanırım o tarihte veri olmadığı için hata veriyor.Ayrıca yandaki listbox o tarihteki veriler gelmiyor.
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