Vba Ambar Raporlama Oluşturması

Vba Ambar Raporlama Oluşturması - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vba Ambar Raporlama Oluşturması (/konu-vba-ambar-raporlama-olusturmasi.html)

Sayfalar: 1 2 3 4 5

RE: Vba Ambar Raporlama Oluşturması - merttr07 - 28/01/2021

(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

RE: Vba Ambar Raporlama Oluşturması - berduş - 28/01/2021

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

RE: Vba Ambar Raporlama Oluşturması - merttr07 - 28/01/2021

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

RE: Vba Ambar Raporlama Oluşturması - berduş - 28/01/2021

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?

Re: Vba Ambar Raporlama Oluşturması - merttr07 - 28/01/2021

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

RE: Vba Ambar Raporlama Oluşturması - berduş - 28/01/2021

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