28/01/2021, 13:33
Vba Ambar Raporlama Oluşturması
28/01/2021, 13:33
merttr07
28/01/2021, 13:50
berduş
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:53
merttr07
(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ı.
28/01/2021, 13:55
berduş
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?
dosyanızın son halini gönderir misiniz?
kodu hangi formun hangi butonuna yazdığınızı da belirtir misiniz?
28/01/2021, 13:57
merttr07
28/01/2021, 14:20
berduş
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
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