Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 154 ? a / b Sẽ nhận được thông báo lỗi: Vì b = 0. 5.2 Bẫy lỗi Mục 5.1 đã trình bày những kỹ năng để xử lý lỗi khi đang soạn thảo chương trình. Các thao tác đó chỉ được thực hiện trong lúc đang xây dựng phần mềm (VBA IDE), do người lập trình xử lý. Khi phần mềm đã được đóng gói để chuyển đến người dùng nếu gặp lỗi, nó sẽ hiển thị một hộp tthoại thông báo lỗi (Error Dialog) cho biết lý do vắn tắt về lỗi. Sau khi bạn nhấn OK, chương trình sẽ ngừng hoạt động, bị thoát. Để xử lý lỗi trong tình huống này, có 2 phương pháp bẫy lỗi mà chúng tôi đưa ra dưới đây để tham khảo; hy vọng bạn sẽ chọn lựa được tình huống phù hợp để sủ dụng một trong các phương pháp này đảm bảo chương trình viết ra chạy được đúng theo mục đích. Sử dụng lệnh On Error Resume Next Khi đó từ chỗ đó trở đi, nếu chương trình gặp lỗi, nó sẽ bỏ qua (ignore) hoàn toàn. Điểm này tiện ở chỗ giúp chương trình EXE của ta tránh gặp lỗi thoát khỏi đột ngột như phân tích ở trên. Nhưng nó cũng bất lợi là khi khách hàng cho hay họ gặp những trường hợp lạ, không giải thích được (vì lỗi đã bị bỏ qua mà không ai để ý), thì ta cũng bí luôn, có thể không biết bắt đầu từ đ âu để gỡ lỗi. Do đó, trong lúc gỡ lỗi ta không nên dùng nó, nhưng trước khi giao cho khách hàng bạn nên cân nhắc kỹ có nên sử dụng trong các đoạn mã lệnh hay không. Ví dụ sử dụng On Error Resume Next để bỏ qua lỗi: Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 155 Function A_chia_B(a, b As Double) As Double On Error Resume Next A_chia_B = Null A_chia_B = a / b End Function Trong chương trình con trên, nếu b = 0, lệnh A_chia_B = a / b sẽ gặp phải lỗi. Do có lời khai báo On Error Resume Next nên lệnh lỗi này được bỏ qua (không thực hiện). Tức là giá trị hàm là Null. Sử dụng câu lệnh On Error Goto <nhãn> Khi một thủ tục được đặt câu lệnh này, nếu gặp phải một lỗi nào đó, VBA sẽ chuyển thẳng việc thực hiện đến <nhãn> đã chỉ định. Thông thường các lệnh ti ếp theo của <nhãn> là xử lý các tính huống lỗi. Sau đây là ví dụ sử dụng phưưong pháp On Error Goto <nhãn> để bẫy lỗi: Function A_chia_B(a, b As Double) As Double On Error GoTo Loi A_chia_B = a / b Msgbox “ Ok! “ Loi: If Err.Number = 11 Then MsgBox "Lỗi chia cho 0 !" End If End Function Trong chương trình con trên, trong trường hợp b = 0 câu lệnh A_chia_B = a / b sẽ gây ra lỗi. Theo như khai báo On Error Goto Loi ban đầu, VBA sẽ bỏ qua tất cả các lệnh sau lệnh lỗi và chuyển thẳng tới các lệnh sau nhãn Loi: Ở đây là lệnh kiểm tra lỗi. Nếu Mã lỗi = 11 Æ kết luận ngay một thông báo lỗi tiếng Việt. Lỗi chia cho 0 ! Phương pháp này cũng được dùng phổ biến cả trong quá trình xây dựng để phát hiện lỗi, cũng như trong phần mềm đã đóng gói gửi đến khách hàng. Mỗi khi gặp lỗi sẽ được thông báo nguyên nhân gây ra lỗi bằng tiếng Việt (chẳng hạn) mà vẫn không ảnh hưởng đến hoạt động khác của phần mềm. Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 156 Trong phương pháp này, người lập trình nên khai thác tối đa đối tượng Err - đối tượng mang những thông tin về lỗi đang xảy ra, cụ thể: Hành động Kết quả Err.Description Mô tả tên lỗi Err.Number Đưa ra mã lỗi Err.Number Xoá bỏ các giá trị của đối tượng Err 6. Một số ví dụ Phần này trình bày một số ví dụ sử dụng Form, một số đối tượng điều khiển (Control), các khai báo, các cấu trúc lệnh và những kỹ thuật liên quan để giải quyết một số bài toán thực tế đơn giản. Bài toán 1: Nhập vào một số nguyên và kiểm tra số đó là chẵn hay số lẻ? Thiết kế form như sau: Thiết lập thuộc tính cho các đối tượng như sau: Form Caption: Kiểm tra số chẵn - lẻ Default view: Single Form Scroll bar: Neither Record selector: No Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 157 Navigation Buttons: No Diving line: No Ô nhập số cần kiểm tra Name: Text0 Nút Kiểm tra chẵn lẻ Name: cmdChanLe Caption: Kiểm tra chẵn lẻ Nút Đóng Name: cmdClose Caption: Đóng Và mã lệnh cho form như sau: ' 'Lệnh cho nút Kiểm tra chẵn lẻ ' Private Sub cmdChanLe_Click() If Text0 Mod 2 = 0 Then MsgBox Text0 + " Là số chẵn !" Else MsgBox Text0 + " Là số lẻ !" End If End Sub ' 'Lệnh cho nút Đóng ' Private Sub cmdClose_Click() DoCmd.Close End Sub Bài toán 2: Nhập vào 2 số nguyên và tính USC và BCS của 2 số đó Thiết kế form như sau: Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 158 Thiết lập thuộc tính cho các đối tượng như sau: Form Caption: Tìm USC và BSC Default view: Single Form Scroll bar: Neither Record selector: No Navigation Buttons: No Diving line: No Ô nhập số cần kiểm tra Ô Thuộc tính Name A: txtA B: txtB USC: txtUSC BSC: txtBSC Nút Tính toán Name: cmdTinhToan Caption: Tính toán Nút Đóng Name: cmdClose Caption: Đóng Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m Click to buy NOW! P D F - X C h a n g e V i e w e r w w w . d o c u - t r a c k . c o m . . V i e w e r w w w . d o c u - t r a c k . c o m Giáo trình phân tích nguyên lý ứng dụng những kỹ năng để xử lý lỗi bằng lệnh On error goto Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 155 Function A_chia_B(a,. lệnh ti ếp theo của <nhãn> là xử lý các tính huống lỗi. Sau đây là ví dụ sử dụng phưưong pháp On Error Goto <nhãn> để bẫy lỗi: Function A_chia_B(a, b As Double) As Double On. Giáo trình Microsoft Access 2000 Copyright ® Nguyễn Sơn Hải Trang 154 ? a / b Sẽ nhận được thông báo lỗi: Vì b = 0. 5.2 Bẫy lỗi Mục 5.1 đã trình bày những kỹ năng để xử lý lỗi