Tạo Form thao tác với List dữ liệu.

[rollover79]

Xin gửi các bạn 1 file ví dụ về tạo form để thao tác với 1 list dữ liệu dạng đơn giản. Form có 3 trạng thái là Thêm mới, Xem và Sửa. Các control trên form tạm thời tôi quản lý trạng thái tương ứng với các trạng thái trên form bằng cách sử dụng thuộc tính Tag của control. Ví dụ với các control nhập liệu cho phép edit khi thêm mới hoặc sửa sẽ có Tag = EditAble, các control nhập liệu không cho sửa nội dung khi thêm mới hoặc sửa(thông tin liên quan) Tag sẽ không có giá trị. Các button hiển thị khi xem thông tin có Tag=Visible, các button hiển thị khi thêm mới hoặc sửa có Tag=Invisible. Khi áp dụng form cho list dữ liệu khác các bạn cần viết lại các sub sau:

- ShowData: Hiển thị dòng dữ liệu hiện tại lên form.
- SaveData: Ghi dữ liệu từ form vào list khi thêm mới hoặc sửa.
- ShowAddnew: Hiển thị form khi cần thêm mới dữ liệu
- ValidData: Kiểm tra dữ liệu hợp lệ trên form trước khi ghi lại khi thêm mới hoặc sửa.

 

[gatre2005]

chào bác em thấy trong VBA của bác có phần

Private Sub btnDelete_Click()
    On Error Resume Next
'    If MsgBox("Ban co chac chan xoa thong tin nay?", vbYesNo, "Xoa du lieu") = vbYes Then
        lstData.ListRows(curRow).Delete
        btnPre_Click
'    End If
End Sub

sao em delete mà nó chẳng báo là sao nhỉ. xoá thẳng luôn.
- với lại bác cho em hỏi dốt một tí:
khi bác khai báo :

Option Explicit

Public curRow As Integer
Public status As Integer    '0:Show, 1:Addnew, 2:Edit
Public lstData As ListObject

là như nào em copy vào phần của em mà không được (em đang làm thử phẩn của em) nó không chạy vì không hiểu VBA mong các bác thông cảm