السلام عليكم ورحمة الله وبركاته
كل عام وحضراتكم بخير ..شهر مبارك من الله
في النموذج "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"
يظل مفتوحا
"هل يمكن اضيف كود لغلقه عند فتح نموذج "الموظفون
مع الشكر للجميع