عند تحديث اسم حساب يظهر رسالة خطأ فى بناء الجملة ERROR 3075

[AMINYOUSIF]

الى اصحاب العلم و المعرفة 

المرفق جزء من برنامج محاسبى و هذا الجزء ساعدنى فية صاحب العلم استاذنا خليفة بخلاف استاذنا ابو خليل 

الذى ساعدنى فى الكثير و الكثير 

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

و لكن زر التحديث  يسمح بتعديل اسماء الحسابات بالنقر على زر التحديث و هنا تظهر الرسالة المرفقة _

و رافض منعها بكود ON ERROR RESUME NEXT

فهل اجد من يصوب الخطأ و يمنع 

______acc_0.rar

[ابو جودي]

سبب الخطأ الاستعلام: acc_update

وهذه هى جملة SQL  الصحيحة للاستعلام

UPDATE tbDatails
INNER JOIN tbAcc ON tbDatails.idofacc = tbAcc.idofacc
SET
    tbDatails.namofacc = tbAcc.namofacc;

الخطأ من صياغة الاستعلام نفسه وليس من زر الأمر لذلك On Error Resume Next لن يمنع المشكلة بل فقط يخفيها
جملة UPDATE ... INNER JOIN : يجب أن يكون التحديث على جدول واحد فقط  وأنت كنت كاتب SET لحقول من tbDatails وكان فى بداية الاستعلام تقول UPDATE tbAcc وهو ده سبب الخطأ 3075 تقريبا عند بناء التعبير

وفى زر الأمر : 
الأفضل تضيف معالجة خطأ صحيحة بدلا من استخدام SetWarnings False فقط
يعنى يكون كود زر الامر بالشكل ده
 

Private Sub COMUPDATA_Click()
On Error GoTo Err_Handler

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "acc_update"
    Me.Requery
    MsgBox "تم التحديث", vbInformation, "حفظ"

Exit_Handler:
    DoCmd.SetWarnings True
    Exit Sub

Err_Handler:
    DoCmd.SetWarnings True
    MsgBox Err.Number & " - " & Err.Description, vbExclamation, "خطأ"
    Resume Exit_Handler
End Sub

وأخيرا المرفق

acc_0.accdb