[حريف برمجة]

مرحبا يالأصيلة ،،

نفس الكود تبعك صحيح ولكن ضيفي عليه الشرط التالي :

استبدلي الكود هذا :

كود :

rs.open "select * from myteb",db,adopenstatic, adLockpessinistic

بهذا الكود :

كود :

rs.open "select * from myteb where date = #" & format(date, "dd/mm/yyyy") & "#",db,adopenstatic, adLockpessinistic

ليصبح الكود كاملاً هكذا

كود :

Private sub command2_click()

if rs.state = adstateopen then rs.close
rs.open "select * from myteb where date = #" & format(date, "dd/mm/yyyy") & "#",db,adopenstatic, adLockpessinistic
set DataReport1.Datasource = rs
Datareport1.show

End Sub