1
ห้อง MS Access / : error 2501 เปิดรายงาน
« เมื่อ: 05 ม.ค. 64 , 08:44:10 »
ใช้การดักจับ error ได้ไหมครับ ลองดูครับ
Private Sub rptTest_Click()
On Error GoTo ErrHandler
DoCmd.OpenReport "ReportNotifyMulti", acViewPreview
Exit Sub
ErrHandler:
If Err = 2501 Then
Resume Next
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
ถ้าไม่ได้จะหาวิธีอื่นให้ครับ
Private Sub rptTest_Click()
On Error GoTo ErrHandler
DoCmd.OpenReport "ReportNotifyMulti", acViewPreview
Exit Sub
ErrHandler:
If Err = 2501 Then
Resume Next
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
ถ้าไม่ได้จะหาวิธีอื่นให้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: chai