السلام عليكم
جرب هذا الحل :
استبدل الكود السابق بهذا :
Private Sub Emp_name_DblClick(Cancel As Integer)
DoCmd.OpenForm "query_mohafza", , , , , acHidden
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Employees"
stLinkCriteria = "[Emp_name] = forms!query_mohafza![Emp_name]"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub