غير كود أستاذى @Shivan Rekany
الى
Private Sub Command17_Click()
On Error Resume Next
On Error GoTo Err_Command17_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1575) & ChrW(1604) & ChrW(1575) & ChrW(1587) & ChrW(1578) & ChrW(1593) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1606) & ChrW(32) & ChrW(1605) & ChrW(1578) & ChrW(1583) & ChrW(1585) & ChrW(1576)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command17_Click:
Exit Sub
DoCmd.Close acForm, Me.Name
Err_Command17_Click:
MsgBox Err.Description
Resume Exit_Command17_Click
End Sub