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

(27/01/2021, 11:32)berduş yazdı: açıkçası sorunuzu anladığımı sanmıyorum, çünkü benzer kodları çalışmanızda pek çok yerde kullanılmış.
o kodları inceleyerek zaten yapıyor olabilmeniz lazım.
aşağıdaki kodla yazılan tarihe göre verileri filtreleyip Excel sayfasına aktarabilirsiniz
benzer kodu çıkış tablosuna da uyarlayabilirsiniz.
 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

Söylemiş olduğunuz doru ama kodları toparlayamadım ne yazık ki ve yazmış olduğunuz kodu kullandığımda yine hata alıyorum ayrıca yazmış olduğunuz kotta sadece o tarihteki tek ürünü getirecek bir çok ürün girişi yapıldıysa alt alta getirmeyecek. Kodu da ne yazık ki çalıştıramadım.

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

Formda sadece tarih icin giris vardı, urun seciminin yapilacagi bir giris yoktu dolayisiyla o tarihte girilen tum ürünleri gosteriyor

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

(28/01/2021, 10:01)berduş yazdı: Formda sadece tarih icin giris vardı, urun seciminin yapilacagi bir giris yoktu dolayisiyla o tarihte girilen tum ürünleri gosteriyor

Haklısınız Onu eklemeyi unuttum isteğe bağlı hem ürün hemde sadece tarih üzerinden yala çıksak iyi olur sizleri uğraştırıyorum ama kodları toparlayamadığım için sıkıntı yaşadım destekleriniz için teşekkürler.

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

1 - siz kodu bambaşka yere yazmışsnız, kodun veri al butonuna eklenmesi yeterlidi siz modüle eklemişsiniz ama butondan çağırmamışsınız
ayrıca hatalı yazmışsınız; kod bir fonksiyon yada sub içine yazılmalıydı siz orta yere yazıp bırakmışsınız, fonksiyonun sonu var ama başı yok o nedenle de hata veriyor.
modüldeki o kısmı tekrar kontrol etmelisiniz.
2 - eğer hem tarih hem de ürün adına göre süzülecekse and bağlacıyla yeni süzgeç eklenebilir

........where clng([Ürün_Kayıt_Tarihi])= " & CLng(CDate(Me.TextBox1.Value)) and [Ürün Adı]='" & comboUrunadi & "'"

gibi

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

(28/01/2021, 13:03)berduş yazdı: 1 - siz kodu bambaşka yere yazmışsnız, kodun veri al butonuna eklenmesi yeterlidi siz modüle eklemişsiniz ama butondan çağırmamışsınız
ayrıca hatalı yazmışsınız; kod bir fonksiyon yada sub içine yazılmalıydı siz orta yere yazıp bırakmışsınız, fonksiyonun sonu var ama başı yok o nedenle de hata veriyor.
modüldeki o kısmı tekrar kontrol etmelisiniz.
2 - eğer hem tarih hem de ürün adına göre süzülecekse and bağlacıyla yeni süzgeç eklenebilir
........where clng([Ürün_Kayıt_Tarihi])= " & CLng(CDate(Me.TextBox1.Value)) and [Ürün Adı]='" & comboUrunadi & "'" 
gibi

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

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

Bu şekilde yazdım

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

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

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

bu satırın altına rs.close kodunu ekleyerek dener misiniz?