تعديل الاسم فى النموذج الرئيسى و النماذج الفرعية

[محمد احمد لطفى]

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

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

test444.rar

[Shivan Rekany]

15 دقائق مضت, محمد احمد لطفى said:

كيف اعدل الاسم فى النموذج الرئيس و كذلك يتم التعديل على النماذج الفرعية

اتفضل اليك هذا الكود

Private Sub serial_AfterUpdate()
On Error Resume Next
    Dim TeadilMyName As String
    TeadilMyName = "UPDATE SUB SET SUB.serial = [Forms]![DataMasterForm]![serial] WHERE (((SUB.id)=[Forms]![DataMasterForm]![id]));"
    DoCmd.SetWarnings False
    DoCmd.RunSQL (TeadilMyName)
    DoCmd.SetWarnings True
End Sub

مع ملف بعد تعديل

 

test444.rar

[محمد احمد لطفى]

عند تشغيل البرنامج بعد التعديل تظهر هذه الرسالة

[Shivan Rekany]

9 دقائق مضت, محمد احمد لطفى said:

عند تشغيل البرنامج بعد التعديل تظهر هذه الرسالة

انت عملته على قاعدة اخرى ... وذلك الجدول لا يسمح التكرار 
لذا اعمل تعديل على الجدول او غير اسم الى اسم اخر مثلا ليس يكون موجودة في جدول

والا ارفق القاعدة اللي تعمل عليه انت

[محمد احمد لطفى]

انها نفس القاعدة المرفقة هنا

الملاحظ عند تغيير الاسم النموذج الفرعى الاول يغير البيانات 
المفروض لا يعير البيات يتم التعديل فقط

[Shivan Rekany]

6 دقائق مضت, محمد احمد لطفى said:

انها نفس القاعدة المرفقة هنا

اليك هذا الفيديو على التعديل ولم يظهر اي رسالة في القاعدة المرفقة

 

Video_2017-06-24_053847.rar

[محمد احمد لطفى]

عند الضغط على start
تظهر المشكلة

[Shivan Rekany]

3 دقائق مضت, محمد احمد لطفى said:

عند الضغط على start
تظهر المشكلة

انا ما عملت اي شيء لزر ستارت

انا عملت كود عند تحديث الاسم

[محمد احمد لطفى]

اعتذر منك وجزاك الله خيرا على المساعدة 
هذا النموذج بعد التغير لا يتغير فعليا انظر الى الجدول الخاص به لن يظهر الاسم الذى تم تغيره سيظهر الاسم القديم فقط

[Shivan Rekany]

17 دقائق مضت, محمد احمد لطفى said:

هذا النموذج بعد التغير لا يتغير فعليا انظر الى الجدول الخاص به لن يظهر الاسم الذى تم تغيره سيظهر الاسم القديم فقط

اسف نسيت ان ادرج في الكود جدول اي دي

لكن يتغير في جدول الاخر

اتفضل اليك هذا سيتغير في كل الجداول

Private Sub serial_AfterUpdate()
On Error Resume Next
    Dim TeadilMyName As String
    TeadilMyName = "UPDATE ID INNER JOIN SUB ON ID.id1 = SUB.id SET ID.serial = [Forms]![DataMasterForm]![serial], SUB.serial = [Forms]![DataMasterForm]![serial] WHERE (((ID.id1)=[Forms]![DataMasterForm]![id]));"
    DoCmd.SetWarnings False
    DoCmd.RunSQL (TeadilMyName)
    DoCmd.SetWarnings True
    DoCmd.RunCommand acCmdSaveRecord
End Sub

اليك مرفق

 

test444.rar

[محمد احمد لطفى]

استأذن حضرتك تعملها فيديو 
الاستعلام  التحديث
واضافته فين علشان مش فاهمه

تم تعديل يونيو 24, 2017 بواسطه محمد احمد لطفى

[محمد احمد لطفى]

جزاك الله خيرا كان لدى مشكلة فى تامين السجلات