(10-09-12, 01:58 AM)vivu Đã viết: Mình thiết kế 1 nút để di chuyển đến các mẫu tin kế tiếp trên form bằng tự động. Tuy nhiên, khi đã duyệt qua hết tất cả mẫu tin mà tiếp tục nhấp nút sẽ báo lỗi. Mình cố gắng tìm cách khắc phục để khi nhấn tiếp nút thì sẽ tự động chuyển về mẫu tin đầu tiên, nhưng vẫn chưa được. Mong các bạn giúp đỡ. Mình cám ơn trước nhé
Ví dụ nha:
Đây là đoạn code của nút lệnh mẫu tin kế tiếp
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
DoCmd.GoToRecord , , acNext
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click
End Sub
Bạn sửa lại như thế này thử xem
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
DoCmd.GoToRecord , , acNext
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
DoCmd.GoToRecord , , acFirst
Resume Exit_Command4_Click
End Sub