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

السلام عليكم ورحمة الله وبركاته

===================

أخى الكريم قم بكتابة Select Case كالتالى

Private Sub k2_AfterUpdate

Select Case k2
     "الزوج" Case  
          DoCmd.OpenForm "frmq"   
      "الزوجة" Case 
       DoCmd.OpenForm "frmq"
 "الابن" Case 
docmd.openform "frmq"
End Select

End Sub

هذا والله تعالى أعلى واعلم

أخي الكريم / أحمد

شاكر لك سرعة رد وسوف أقوم بتجربة الكود والرد عليك .

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

الرجاء من الأخوة عند كتابة كود أن يتم كتابته بين كلمتي Code و /Code ضمن أقواس مربعة حتى تم إظهاره بالتنسيق المناسب

وهذا هو كودك مكتوب بهذه الطريقة كما يلي :

If [k2] = "زوجه" Then
DoCmd.OpenForm "frmq"
Else
DoCmd.Close acForm, "frmq"
End If
If [k2] = "زوج" Then
DoCmd.OpenForm "frmq"
Else
DoCmd.Close acForm, "frmq"
End If

بالنسبة للحل هذا هو :

If [k2] = "زوجه" or [k2] = "زوج" or [k2] = "ابن" Then
   DoCmd.OpenForm "frmq"
Else
   DoCmd.Close acForm, "frmq"
End If

بسم الله الرحمن الرحيم

الله يعطيك العافية اخي الكريم على هذا المجهود

فق الله

أخي الكريم / أحمد

انا في غاية الشكر والعرفان فالكود فعل ما أريد بالضبط وأكثر مما توقعت .

ولكن المشكله أن أن الترقيم التلقائي في النموذج الاساسي لم يظهر في النموذج المنبثق .

أي أن هناك جدولين جدول للنموذج الاساسي وجدول المصروفات وكلاهما لهما حقل رقم .

الاساسي حقل الرقم ترقيم تلقائي والاخر رقم وبينهما ربط .

ما أريده أن يظهر لي رقم النموذج الاساسي في النموذج المنبثق اللذي هو نموذج المصروفات . ( أي تزامن بين الرقمين ) .

جعلها الله في موازين أعمالك ورفع من شأنك وزاد من علمك ... أمين .

أخي الكريم / مهند أشكرك على الكود فهو أيضاً عمل بشكلاً جيد ولم أكن أعلم ان هناك أكثر من طريقة في عمل الكود الواحد .

حفظك الله ورعاك . وعذراً على طريقة طرحي فأخيك لايزال مبتدئ .

السلام عليكم ورحمة الله وبركاته

=====================

جزاك الله خيرا كثيرا أخى الكريم

مرفق ملف قد يلبى طلبك

والسلام عليكم ورحمة الله وبركاته

Adel.rar