فهل من إضافة لهذا الكود لغلق "kal" ؟

[الشربيني 123]

السلام عليكم ورحمة الله وبركاته ...اريد اضيف كود للإغلاق  عند فتح نموذج  "  jop"   

بمعنى انا بفتح النموذج "kal"  ومن خلاله أيضا بفتح نموذج اخر اسمه "jop"  لكن نموذج "kal" بيكون مفتوح خلفه 

فهل من إضافة لهذا الكود لغلق "kal"  

مع الشكر لكل الاصدقاء والأخوة المحترمين في هذا الصرح العظيم

Private Sub Form_Open(Cancel As Integer)
DoCmd.Close acForm, "jop
Me![txtSearch].SetFocus
End Sub

[MO87]

عند زر فتح نموذج jop  ادخل الكود الآتي 

DoCmd.OpenForm "jop"

DoCmd.Close acForm, "KAI"

end sub 

[عمر ضاحى]

ام ممكن تكتفى باضافة سطر 

DoCmd.Close

بدون اى اضافه بعد كود فتح النموذج الاخر 

وانتهت القصه

[الشربيني 123]

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

عند زر فتح نموذج jop  ادخل الكود الآتي 

DoCmd.OpenForm "jop"

DoCmd.Close acForm, "KAI"

end sub 

لم تنفع

2 ساعات مضت, عمر ضاحى said:

ام ممكن تكتفى باضافة سطر 

DoCmd.Close

بدون اى اضافه بعد كود فتح النموذج الاخر 

وانتهت القصه

لم تنفع القصة

[الشربيني 123]

2 ساعات مضت, عمر ضاحى said:

ام ممكن تكتفى باضافة سطر 

DoCmd.Close

بدون اى اضافه بعد كود فتح النموذج الاخر 

وانتهت القصه

الكود بالتفصيل

اللي بيتم فتحه jop  اللي المراد قفله  KAI

Private Sub SearchList_DblClick(Cancel As Integer)
On Error GoTo Err_أمر62_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "jop
    stLinkCriteria = "[رقم_العميل]=" & Me![cc]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_أمر62_Click:
    Exit Sub
Err_أمر62_Click:
    MsgBox Err.Description
    Resume Exit_أمر62_Click
     End Sub

[متقاعد]

في نموذج kal اعمل زر امر ضع فيه الامر التالي

DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "jop"

 

[الشربيني 123]

في 10‏/8‏/2022 at 21:56, الشربيني 123 said:

في 10‏/8‏/2022 at 19:10, عمر ضاحى said:

ام ممكن تكتفى باضافة سطر 

DoCmd.Close

بدون اى اضافه بعد كود فتح النموذج الاخر 

وانتهت القصه

الكود بالتفصيل

اللي بيتم فتحه jop  اللي المراد قفله  KAI

Private Sub SearchList_DblClick(Cancel As Integer)
On Error GoTo Err_أمر62_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "jop
    stLinkCriteria = "[رقم_العميل]=" & Me![cc]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_أمر62_Click:
    Exit Sub
Err_أمر62_Click:
    MsgBox Err.Description
    Resume Exit_أمر62_Click
     End Sub

هتلاقي الأمر دبل كلك  ...ما ينفعش حضرتك اعمل زر زي ما انت بتقول 

[الشربيني 123]

ارجو المساعدة في اضافة  امر اغلاق عند النقر المزدوج  

[عمر ضاحى]

انا شايف ان جميع الاكواد التى قدمها لك الشباب تفى بالغرض المطلوب 

ممكن ترفع ملف علشان نعرف فين المشكله