تعديل على كود

[TQTHAMI]

frm.SourceObject = "frm3"

هنا يفتح الفورم 3 من خلال النموذج الفرعي تمام 

 'DoCmd.OpenForm "frm3", acNormal, "", "", acReadOnly, acNormal
 'DoCmd.OpenForm "frm3", acNormal, "", "", acAdd, acNormal
 'DoCmd.OpenForm "frm3", acNormal, "", "", acEdit, acNormal

لكن عندما اردت انه يفتح بأحد هذي الطرق لا يقبل عملت هي الطريقة

 frm.SourceObject= "frm3", acNormal, "", "", acReadOnly, acNormal

واعرف انه الخطاء مني ولكنها اول مره تمر علي ولم اشاهدها من قبل فيا ليت احد يعدل لي الكود

تحياتي للجميع

[jjafferr]

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

 

لما تحدد النموذج الفرعي بالطريقة :

me.frm.SourceObject = "frm3"

.

تستطيع استعمال التالي للتحكم فيه:

me.frm.form.AllowEdits = true       'اسمح بتغيير البيانات
me.frm.form.AllowDeletions = true   'اسمح بحذف السجل
me.frm.form.AllowAdditions = true   'اسمح بإضافة سجلات جديدة

 

[TQTHAMI]

هلا وغلا 

اهلا بالأستاذ الكبير

بشرفني مرورك

لكن يبدو اني ما عرفت أوصل المعلومة بالشمل الصحيح

لكن المثال يبين مطلبي

Database32.accdb

[jjafferr]

عملت لك التعديل في مشاركتي السابقة 🙂

[TQTHAMI]

2 ساعات مضت, jjafferr said:

me.frm.form.AllowEdits = true       'اسمح بتغيير البيانات
me.frm.form.AllowDeletions = true   'اسمح بحذف السجل
me.frm.form.AllowAdditions = true   'اسمح بإضافة سجلات جديدة

هذا يعمل على فتح نموذج مستقل
ولكن انا احتاجه كما هو موضح في المثال

[ناقل]

27 دقائق مضت, TQTHAMI said:

هذا يعمل على فتح نموذج مستقل
ولكن انا احتاجه كما هو موضح في المثال

جرب الزر الاول للتعديل ....

frm.SourceObject = "frm_1"
frm.Form.AllowEdits = True

 

وهكذا للبقية ..............

[TQTHAMI]

للأسف اخي نفس الشي عملتها كلها وكلها تقبل الاصافة والتعديل

ممكن تطبقوها على المثال

ولكم جزيل الشكر

[jjafferr]

تفضل 🙂

 

اضف النموذج الفرعي ، 

ثم قم بالتعديل على البيانات ،

ثم انقر على زر تعديل ، وحاول تعديل البيانات.

 

كود عدم السماح بتعديل بيانات النموذج الفرعي:

Private Sub x22_Click()

    Me.frm.Form.AllowEdits = False
End Sub

 

 

1583.Database32.accdb

True يعني اسمح (بالتعديل ، او الاضافة او ... )

False يعني لا تسمح (بالتعديل ، او الاضافة او ... )

[ناقل]

26 دقائق مضت, TQTHAMI said:

للأسف اخي نفس الشي عملتها كلها وكلها تقبل الاصافة والتعديل

ممكن تطبقوها على المثال

ولكم جزيل الشكر

جرب المرفق .....

 

Database32.accdb

[TQTHAMI]

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

Database32.accdb

[ناقل]

23 دقائق مضت, TQTHAMI said:

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

هل جربت مثالي اخي الكريم

[ناقل]

جرب المرفق <<<<<

 

Database32.accdb

[jjafferr]

وهل جربت مثالي؟

 

للعلم ، انت لم تخبرنا الى الآن كيف تريد عمل النموذج الفرعي ، فنحن هنا اعطيناك الكود الذي يقوم بالعمل ، وانت تضع الكود الصحيح على الزر الصحيح على الحدث الصحيح

[TQTHAMI]

نعم اخي  jjafferr   جربته ولم بنجح

الأخ  ناقل شكرا لك تقريبا هذا ما اردت 

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

شكرا لكم جميعا   

[jjafferr]

في احد برامجي عملت نفس طريقتك ، "برواز" نموذج فرعي ، واستعملت النماذج الفرعية داخله (بدلا عن عمل تبويب لكل نموذج فرعي) ،

في الواقع العمل كان اكثر صعوبة واخذ جهد اكبر في العمل ، لأنه يجب ان نشير "للبرواز" في كل خطوة ، وفي نفس الوقت نشير لإسم النموذج الفرعي لكل عملية خاصة به ،

وبدلا عن التبويب للإنتقال من نموذج فرعي لآخر ، استعمل Navigation buttons ، والتي لا يمكن ربطها/لصقها مع النموذج ، سواء الرئيسي او الفرعي !!

ولكن ، البرنامج لا يزال الافضل ولا يوجد له مثيل في المؤسسات 🙂

[Moosak]

8 ساعات مضت, jjafferr said:

البرنامج لا يزال الافضل ولا يوجد له مثيل في المؤسسات 🙂

شوقتنا نعرف تفاصيل أكثر عن البرنامج ؟ 😊