07-09-15, 08:51 PM
(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
أخي أبو عمر بدون تكليف ممكن تعدل على البرنامج المرفق بعد اذن حضرتك
لأن بعد لما نفذت الكود كلآتي
حدث الآتي
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah