فشل جملة UPDATE تنفذ من داخل كود VBA

[esambdc]

السلام عليكم

احيان تفشل جملة   UPDATE تنفذ من داخل كود VBA فى تعديل البيان المطلوب منها مع انها تنجح كثيرا وطبعا SYNTAX سليم

هل من تفسير ؟

[jjafferr]

وعليكم السلام 

 

رجاء وضع الكود الكامل الذي تستخدمه للأمر Update ، مع الاسطر الاخرى من الكود التي تواجه فيها مشكلة (احيانا ) ،

ولماذا تستخدم هذا الامر بالذات؟

 

 

جعفر

[esambdc]

سيدى هذا هو الكود

DoCmd.RunSQL "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "'WHERE (((main.ID)=[forms]![new txn]![issue id]));"

وهو غالبا ما ينتج اثر صحيح واحيانا قليلة لا يتم

 

[jjafferr]

السلام عليكم أخي عصام 

 

الكود بحاجة الى مسافة قبل كلمة Where ، فيصبح الكود الصحيح هكذا:

DoCmd.RunSQL "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "' WHERE (((main.ID)=[forms]![new txn]![issue id]))"

 

وفي برامجي ، دائما اجزّء الكود الى اسطر ، حتى لا اقع في مثل هذا الخطأ ، فيكون الكود هكذا (لاحظ المسافة قبل Where) :

    mySQL = "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "'"
    mySQL = mySQL & " WHERE main.ID =[forms]![new txn]![issue id]"
    DoCmd.RunSQL mySQL

 

جعفر