غير كود أستاذى          @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