هل يمكن اضافة أمر آخر في ذات الحدث ؟

[الشربيني123]

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

كل عام وحضراتكم بخير ..شهر مبارك من الله 

 في النموذج "sm1"

 هذا نموذج بحث عند النقر المزدوج على الاسم  يفتح نموذج أخر به جميع بيانات الاسم 

بهذا الكود 

Private Sub SearchList_DblClick(Cancel As Integer)

On Error GoTo Err_أمر62_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "الموظفون"
    
    stLinkCriteria = "[رقم_السجل]=" & Me![aa]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_أمر62_Click:
    Exit Sub

Err_أمر62_Click:
    MsgBox Err.Description
    Resume Exit_أمر62_Click

End Sub

المشكلة هنا ان نموذج "sm1"

يظل مفتوحا 

"هل يمكن اضيف كود لغلقه عند فتح نموذج "الموظفون

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

 

[essam rabea]

أ.الشربيني123

جرب ان تضع هذا السطر قبل End Sub

DoCmd.Close acForm, Me.Name

ووفنى بالنتيجة .. بالتوفيق

[الشربيني123]

4 hours ago, essam rabea said:

أ.الشربيني123

جرب ان تضع هذا السطر قبل End Sub

DoCmd.Close acForm, Me.Name

ووفنى بالنتيجة .. بالتوفيق

أولا بارك الله فيك وكل سنة وحضرتك طيب 

للأسف لم يغلق النموذج 

[essam rabea]

أ.الشربيني123

استبدل me.name بإسم النموذج المطلوب إغلاقة بين علامتي تنصيص "إسم النموذج" 

أو أضف مرفق للتعديل عليه

تم تعديل أبريل 12, 2021 بواسطه essam rabea