رسالة غريبة عند فتح نموذج

Private Sub Label425_Click()

DoCmd.SetWarnings False

If Me.Check0 = True Then

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW(1606) & ChrW(1605) & ChrW(1608) & ChrW(1584) & ChrW(1580) & ChrW(32) & ChrW(1601) & ChrW(1585) & ChrW(1593) & ChrW(1610) & ChrW(32) & ChrW(1578) & ChrW(1585) & ChrW(1603) & ChrW(32) & ChrW(1587) & ChrW(1603) & ChrW(1606) & ChrW(49)

stLinkCriteria = "[crn]=" & "'" & Me![crn] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.SetWarnings True

End If

End Sub