รบกวนอาจารย์สุภาพช่วยพิจารณา Code หน่อยครับ ผมเขียนCode นี้ไว้ที่ Form วิธีการคือ เมื่อกด command button"รายงานเหตุการณ์ประจำวัน" แล้วโปรแกรมจะเรียกรายงานโดยมี 2 ปุ่มให้กดคือ OK และ Cancel ครับ โดยในการกดครั้งแรกผมสมมุติว่าไม่กรอกค่าใดๆ แต่จะกดปุ่ม Cancel โปรแกรมจะถามว่าต้องการออกจากโปรแกรมใช่หรือไม่ จากนั้นถ้าตอบตกลงก็จะออกจากโปรแกรมทันที แต่ถ้ากด Cancel โปรแกรมก็จะเตรียม Preview Report อีกครั้งแต่ปัญหามีอยู่ว่าทุกครั้งที่กด Cancel ครั้งที่ 2 โปรแกรมจะ Error ทุกครั้ง ผมดูจากCode แล้วไม่รู้จะแก้ไขตรงไหนดีครับรบกวน
อาจารย์สุภาพหน่อยนะครับ ขอบคุณล่วงหน้าครับ
**********************************************************************
Private Sub cmbeventreport_Click()
On Error GoTo error1
Dim stDocName As String
stDocName = "รายงานเหตุการณ์ประจำวัน?"
a:
DoCmd.OpenReport stDocName, acPreview
Exit_cmbeventreport_Click:
Exit Sub
error1:
If MsgBox("ท่านต้องการออกจากโปรแกรมหรือไม่?") = vbYes Then
Resume Exit_cmbeventreport_Click
Else
GoTo a:
End If
End Sub
***********************************************************************