Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
Dim stDocName As String
stDocName = "cc"
DoCmd.OpenReport stDocName, acPreview
Exit_Command19_Click:
Exit Sub
Err_Command19_Click:
'MsgBox Err.Description
Resume Exit_Command19_Click
End Sub
انظر الى السطر
'MsgBox Err.Description
حدث الرسالة مقفل لا حظ لونه الاخضر في صفحة المحرر
لقفل سطر برمجي عن العمل نضع في اول السطر علامة التنصيص المفردة ( حرف الطاء)