عند تحديث اسم حساب يظهر رسالة خطأ فى بناء الجملة 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

[AMINYOUSIF]

الاخ الكريم المهندس / ابو جودى 

اشكرك على تواصلك بالعناية و الاهتمام ( منور الدنيا كلها )

و ياريت تتقبل عذرى بعدم ايضاح المراد بالتحديث 

المقصود و المطلوب : 

اذا تم تعديل الاسم فى النموذج المرفق ( شجرة الحسابات ) 

يتم التعديل فى جميع تفاصيل قيود اليومية ( TBdatails)و هو نموذج فرعى للرئيسى tbheat 

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

و تم عمل تفاصيل القيود بجدول tbdatails 

على سبيل المثال تعديل حساب مرتبات فى النموذج المرفق الى اجور و  مرتبات (مثلا ) 

يتم التعديل  بجدول tbdatails ACC_01.rar

اشكرك و مقدر وقتك و جهدك