Đánh giá chủ đề:
  • 5 Votes - 1.6 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Bắt lỗi khi nhập liệu sai và người dùng đóng form
#1
Hỏi: Tôi tạo form nhập liệu, và muốn bắt lỗi khi người dùng nhập sai nhưng muốn đóng form thì hiện ra thông báo : " Có dữ liệu bị lỗi, Bạn có muốn đóng không?" Vậy tôi phải bắt lỗi thế nào?
[Hình: loisave.jpg]
Đáp:
(theo hướng dẫn anh phatnq2002 trên DKT)
Để bắt được lỗi này, bạn phải kết hợp hai sự kiện Form_Error và Form_UnLoad.


Bạn nên tạo một biến dùng chung cho module (nghĩa là khai báo ở vùng Declaration của Form Module), ví dụ Dim hasError As Boolean chẳng hạn

Cái sự kiện bạn bắt bao gồm 2 cái:

Mã:
1. là Form_Unload: sự kiện này xảy ra trước Close. Do vậy nếu Cancel=True ở đây đồng nghĩa với việc hủy Close.

    Private Sub Form_Unload(Cancel As Integer)
    If hasError Then
    If MsgBox("Có dữ liệu bị lỗi, Bạn có muốn đóng không?", vbYesNo) = vbNo Then
    Cancel = True
    Else
    DoCmd.RunCommand acCmdUndo
    End If
    End If
    End Sub

2. là Form_Error

Mã:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Respponse = acDataErrContinue
    hasError = True
    Select Case DataErr
    Case 2169
    MsgBox "Co loi khi luu du lieu."
    Case Else
    MsgBox "Err No." & DataErr & vbCrLf & "Err Mess: " & Error(DataErr)
    End Select
    End Sub
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Demo_Code Ẩn tất cả mọi thứ, ngoại trừ Form+Report maidinhdan 127 7,440 21-11-16, 01:57 PM
Bài mới nhất: nghiep
  Vô hiệu hóa form A khi kích hoạt form B từ form A yeubongdo01 8 2,464 03-11-14, 05:36 AM
Bài mới nhất: tranthanhan1962
  Hướng dẫn tạo form chỉ cho phép mở một số lần cố định Noname 10 4,640 18-04-14, 11:54 AM
Bài mới nhất: trunghieu
  Hiện duy nhất một cửa sổ khi mở nhiều form Noname 5 3,413 26-12-13, 02:22 PM
Bài mới nhất: Minh Tiên
  Vô hiệu hóa nút đóng Form ledangvan 3 1,877 04-07-12, 03:48 PM
Bài mới nhất: ledangvan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ