(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ış.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.
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
Son Düzenleme: 28/01/2021, 08:43, Düzenleyen: merttr07.