Macro tiếp theo sẽ là macro sẽ 'chạy' 1 khi ta bấm chuột vô ListBox (lớn bên trên)
PHP:
Private Sub MHList_Click()
Dim W As Integer
1 On Error GoTo LoiCT
lbID = Me!MHList.ListIndex
3 SeL = SeL + 1
For W = 0 To 2
5 Me!lbSelect.List(SeL, W) = Me!MHList.List(lbID, W)
Next W
7 Err_: Exit Sub
LoiCT:
9 If Err = 381 Then
MsgBox "Quá Dòng", , "Chào Ban!"
11 Resume Next
Else
13 Resume Err_
End If
End Sub
Dòng trước D1: Khai báo 1 biến chứa số liệu (kiểu Integer)
D1: Nếu chương trình chạy mà gặp lỗi bất kỳ thì đến nhãn 'LoiCT' để thực hiện tiếp
(Nhã đó có mã dòng lệnh là 8)
D2: Đem chỉ số dòng trong ListBox có tên là MHList gán vô tham biến (đã khai báo dùng chung (trong Form))
D3: Tăng 1 đơn vị cho tham biến dùng chung 'Sel'
D4: Tạo vòng lặp duyệt từ 0 cho tới 2
Vòng lặp này kết thú ở D6
D5: đưa các trị dữ liệu tương ứng của 3 cột của dòng được chọn (lbID) trong ListBox trên xuống ListBox dưới (mà đưa vô dòng có chỉ số mới vừa tăng 1 đơn vị)
D7 Err_ là 1 cái nhãn, như biển báo chỉ đường ngoài phố; Khi gặp biển báo này chương trình sẽ kết thúc bỡi lệnh 'Thoát'
D8 là 1 cái nhãn (chỉ đường)
D9: Đ/kiện nếu mã lỗi đang là 381 thì thực hiện 2 lệnh kế tiếp
D10: Hiện họp thoại báo thông tin (cho người dùng)
D11: Thực hiện lệnh kế tiếp
D12: Đ/Kiện không đạt thì thực hiện D13: Trở lại nhãn có tên Err_
( Để biết lỗi có mã 381 là gì ta cần vô cửa sổ Immediate & gỏ dòng lệnh ?Error(381) bạn sẽ được VBE giải đáp)
