27-10-17, 04:46 PM
(آخر تعديل لهذه المشاركة : 27-10-17, 04:52 PM {2} بواسطة محب الإسلام.)
جزاك الله كل خير أخي " [b]Amir " ، وأنا حاولت أستخدم هذا الكود ولكن لم يعطي أي نتيجة ، مع العلم أني قمت بربط Datagrid1 بـ Adodc1 ولكن دون جدوى !![/b]
الكود المدخل :
Private Sub Command9_Click()
On Error Resume Next
Adodc1.RecordSource = "SELECT * FROM report WHERE Date BETWEEN #" + Format(DateTimePicker1.Value, "dd/mm/yyyy") + "# AND #" + Format(DateTimePicker2.Value, "dd/mm/yyyy") + "#"
End Sub
الكود المدخل :
Private Sub Command9_Click()
On Error Resume Next
Adodc1.RecordSource = "SELECT * FROM report WHERE Date BETWEEN #" + Format(DateTimePicker1.Value, "dd/mm/yyyy") + "# AND #" + Format(DateTimePicker2.Value, "dd/mm/yyyy") + "#"
End Sub
