+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [سؤال] بحث وطباعة (/showthread.php?tid=15074)
بحث وطباعة - Abdellah - 11-03-16
السلام عليكم ورحمة الله
إخواني الاعزاء أريد كود بحث في حقلين استعلام مبني على جدولين حقل مرتبط بالجدول الاول والحقل الثاني مرتبط بالجدول الثاني وتكون النتائج في datareport
ولقد وجد مثال يشبه تقريبا ما أبحث عنه فأرجو المساعدة جزاكم الله كل خير.
هذا مو المثال :
()Private Sub Command12_Click
& "#"(Set rs = db.OpenRecordset("select * from tbl1 where Date_To Between #" & (Text21.Text) & "# and #" & (Text22.Text
If rs.RecordCount = 0 Then MsgBox "áÇíæÌÏ äÊÇÆÌ ááÈÍË" : Exit Sub
rs.Close
DoCmd.OpenReport "Report2", acViewPreview
End Sub
& "#"(Set rs = db.OpenRecordset("select * from tbl1 where Date_To Between #" & (Text21.Text) & "# and #" & (Text22.Text
If rs.RecordCount = 0 Then MsgBox "áÇíæÌÏ äÊÇÆÌ ááÈÍË" : Exit Sub
rs.Close
DoCmd.OpenReport "Report2", acViewPreview
End Sub