خطأ في تنفيذ استعلام الحاق من خلال الكود

[أبو عبدالله الحلوانى]

السلام عليكم ورحمة الله وبركاته

اعتذر عن ارفاق مرفق لكوني اكتب الموضوع علي عجالة - فانا مرهق جدا وسأذهب الي النوم وغدا ان شاء الله اجهز مرفق للتوضيح 

اما عن الموضوع: فوصف المشكلة بشكل مختصر وارجو ان يخرج الكلام متزن فيفهم علي اساتذتي الكرام

اردت تنفيذ استعلام الحاقي من جدول الي جدول بشرط امرره الي دالة وكان الكود بهذا الشكل 

Sub getItemsByBlj(ByVal bljNo As String, ByVal InvNo As String)
Dim QryStr As String
'On Error Resume Next
QryStr = "INSERT INTO InvoiceDetailTbl ( IDs, OldInvs, jyarID, Movtyp, StorID, DmanSt, VoicDtID, Quentity, price ) " & _
"SELECT MovmentTbl.ID, MovmentTbl.OldInvs, MovmentTbl.jyarID, 2 AS MovTyp, MovmentTbl.StorID, MovmentTbl.AoryntID, " & _
InvNo & " AS InvExp, MovmentTbl.QntyOut, MovmentTbl.AmtJyarOut FROM MovmentTbl " & _
"WHERE (((MovmentTbl.BlajID)='" & bljNo & "'));"
'
DoCmd.SetWarnings False
DoCmd.RunSQL QryStr
'
End Sub

المشكلة عند تنفيذ الكود يطلب مني ادخال معيار - الذي تم تمريره الي الدالة - invNo -

مع العلم انه يظهر قيمة المعلمة وليس اسمها يعني تم تمرير القيمة الي الدالة بشكل صحيح - 

المشكلة اذن في كتابة الاستعلام ولم استطع اجراء المزيد من المحاولات بالوقت الحاضر - ارجو ممن امتلك الوقت والجهد ووفقه الله لوضع يده عل موطن الخلل ان يوضح لي اين المشكلة وجزاكم الله خيرا

شاكرا لكم دعمكم وعطائكم الذي لا ينقطع - كل عام وحضراتكم جميعا بخير 

وجزاكم الله خيرا  

[ابوبسمله]

وعليكم السلام ورحمه الله وبركاته

اتفضل اخى واستاذى محمد @أبو عبدالله الحلوانى

Dim QryStr As String
'On Error Resume Next
QryStr = "INSERT INTO InvoiceDetailTbl ( IDs, OldInvs, jyarID, Movtyp, StorID, DmanSt, VoicDtID, Quentity, price ) " & _
"SELECT MovmentTbl.ID, MovmentTbl.OldInvs, MovmentTbl.jyarID, 2 AS MovTyp, MovmentTbl.StorID, MovmentTbl.AoryntID, " & _
"'" & InvNo & "' AS InvExp, MovmentTbl.QntyOut, MovmentTbl.AmtJyarOut FROM MovmentTbl " & _
"WHERE (((MovmentTbl.BlajID)='" & bljNo & "'));"

بالتوفيق

[أبو عبدالله الحلوانى]

جزاكم الله خيرا 

[ابوبسمله]

13 ساعات مضت, أبو عبدالله الحلوانى said:

جزاكم الله خيرا 

واياكم اخى محمد

بالتوفيق