+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] المساعدة في طباعة تقرير بين تاريخين (/showthread.php?tid=31773)
المساعدة في طباعة تقرير بين تاريخين - وادي العوضي - 16-10-19
السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
طلبي مشروح بالتفصيل الممل داخل النموذج للبرنامج المرفق
مع وافر التحايا
RE: المساعدة في طباعة تقرير بين تاريخين - وادي العوضي - 17-10-19
اساتذتي الافاضل السلام عليكم ورحمة الله وبركاته
وضعت كود بين تاريخين في زر الامر ولكن عند ادخال التاريخ الاول والتاريخ الثاني يخرج لي خطأ ولا يظهر التقرير بينما اذا نقرت على زر الامر مباشرة بدون ادخال اي تاريخ لا في مربع النص الاول ولا في مربع النص الثاني
يخرج لي التقرير كامل من البداية الى النهاية
وانا طلبي هو اظهار التقرير بين تاريخين
اذا امكن المساعدة والنظر في الكود وتعديله
مع وافر التحايا
وهذا البرنامج في المرفقات
RE: المساعدة في طباعة تقرير بين تاريخين - حريف برمجة - 17-10-19
وعليكم السلام ،،
ضع هذا الكود للبحث بين تاريخين :
كود :
Unload Report1
Report1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\compny.mdb;Persist Security Info=False"
If TXT1.Text = "" Then
Report1.DataControl1.Source = "Select * From [tbl1]"
Else
Report1.DataControl1.Source = "Select * From tbl1 where Date_Sp >= #" & TXT1.Text & "# and Date_Sp <= #" & TXT2.Text & "# "
End If
Report1.ShowRE: المساعدة في طباعة تقرير بين تاريخين - وادي العوضي - 17-10-19
استاذي الفاضل حريف برمجة شكرا جزيلا لك وجزاك الله خيرا نعم هذا هو المطلوب
الله يبارك فيك ويحفظك ويحميك من كل سوء يارب جعلها الله جل وعلا في ميزان حسناتك يارب