السلام عليكم ورحمة الله وبركاته
أسعد الله أوقات الجميع
هذا الكود استخدمه في برنامجي ويعطيني رسالة خطأ ولم أعرف كيفية تصحيح الخطأ لأني لا أعرف منطق اسخدام الجزئية الخاصة بال Sql
أرجو المساعدة في تعديلها وشكراً
Set tmp1 = db.QueryDefs("Sql")
'tmp1.SQL = "SELECT * FROM Tab INNER JOIN Tab1 ON Tab.No = Tab1.No JOIN Tab2 ON Tab.No = Tab2.No INNER JOIN Tab3 ON Tab.No = Tab3.No WHERE Tab.No='" & VN.Text & "'"
Rp.ReportFileName = App.Path & "\A1.rpt"
Rp.Action = 1
