كيف يمكن لنموذج ان يعمل مع اكثر من نموذج اخر

[f16]

اسعد الله مسائكم جميعا اخواني اعضاء المنتدى الرائع 

واسأل الله عز وجل ان يجنبكم الأمراض والأوبئة 

اخوني لدي مثال مرفق فيه ثلاثة نماذج مختلفة النموذج الاول هو form1 فيه حقل به قيمة افتراضية تساوي (1) النموذج الثاني هو form2 فيه زرار لفتح النموذج الاول form1   النموذج الثالث هو form3  وهو نفس form2

الآن عند فتح النموذج الثاني form2 والنقر على الزرار يقوم بفتح النموذج form1 اريد ان ينتقل القيمة الافتراضية من النموذج form1  الى النموذج form2  عند الضغط على زرار الاضافة . كذلك اريد ان تحصل نفس الخطوات مع النموذج form3 

مرفق مثال على ذلك . اتمنى ان اكون قد وفقت في شرح ما اريد 

مع كل التقدير والاحترام   

مثال اوفيسنا نموذج الحسابات يعمل مع اكثر من نموذج.rar

[Shivan Rekany]

19 دقائق مضت, f16 said:

الآن عند فتح النموذج الثاني form2 والنقر على الزرار يقوم بفتح النموذج form1 اريد ان ينتقل القيمة الافتراضية من النموذج form1  الى النموذج form2  عند الضغط على زرار الاضافة . كذلك اريد ان تحصل نفس الخطوات مع النموذج form3 

اتفضل استخدمت هذا الكود

اي نماذج بيكون مفتوحة سيدخل له القيمة

Private Sub أمر2_Click()
If CurrentProject.AllForms("Form2").IsLoaded = True Then
    Form_form2.نص0 = Me.نص0
ElseIf CurrentProject.AllForms("Form3").IsLoaded = True Then
    Form_form3.نص0 = Me.نص0
End If
DoCmd.Close acForm, Me.Name
End Sub

 

مثال اوفيسنا نموذج الحسابات يعمل مع اكثر من نموذج.rar

[f16]

شكراً  اخي شفان على هذا الكود الرائع بالفعل هذا ما اريد .