(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.
Formda sadece tarih icin giris vardı, urun seciminin yapilacagi bir giris yoktu dolayisiyla o tarihte girilen tum ürünleri gosteriyor
(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.
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
(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
Worksheets("ürüngiris").Range("a1").CopyFromRecordset rs
bu satırın altına rs.close kodunu ekleyerek dener misiniz?