07-09-15, 08:37 PM
إقتباس :rs.Open "select sum(price) as pp from Table1 where date between #" & DTPicker2.Value & _
"# and #" & DTPicker3.Value & "#", db, 1, 3
If Not IsNull(rs(0).Value) Then _
Text4.Text = rs(0).Value
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات