Các bước thực hiện:
Bước 1: Tạo một Form trống (Blank Form)
Và đặt tên là: FormSearch
Bước 2: Tạo 2 textbox: Mục đích để hiện thị và lấy dữ liệu.
Đặt luôn tên cho 2 textbox cho dể sử lý:- searchbox: dùng để nhập nội dung tìm kiếm
- searchtext: dùng để code dữ liệu
Bước 3: Tạo một listbox để hiện thị kết quả
- Đặt tên cho listbox là: listdataBước 4: Lấy dữ liệu cho listdata
- Nhấp nút ba chấm trong thuộc tính Listbox (listdata)- Tạo thêm 1 trường keyword để lấy tất cả nội dung của từng hàng trong bảng dữ kiệu
- Tạo lọc dữ liệu cột keyword:
Like "*" & [Forms]![FormSearch]![searchtext] & "*"
- Có kết quả như sau:
- Tiếp theo quay lại thiết lập dữ liệu cho listbox
- + Thiết lập số cột hiện thị
- + Thiết lập độ rộng mỗi cột
- + Hiện thị tiêu đề listbox
- Kết quả hiện thị trên listbox
Vậy là hoàn thành dữ liệu cho listdata
Bước 4: Thiết lập dữ liệu cho khung tìm kiếm searchbox
- Nhấp vào searchbox; mục Event; chọn thực thi On Change (tức là khi có sự thay đổi trên searchbox thì thực hiện lênh trong code Builder)Nhập code
Private Sub searchbox_Change()
Me.searchtext = Me.searchbox.Text
Me.listdata.Requery
End Sub
Bây giờ nhập dữ liệu trên searchbox sẽ thấy kết quả trên searchtext và listdata
Bước 5: Tạo nút xóa nội dung nhập
- Đơn giản là tạo nhanh 1 button và đặt tên là: xoa
- Qua tab Event tại sự kiện click nhập code sau
Private Sub xoa_Click()
Me.searchbox = ""
Me.searchtext = ""
Me.searchbox.SetFocus
Me.listdata.Requery
End Sub
Bây giờ hãy kiểm tra nút xóa
Bước 6: ẩn khung searchtext
- Chọn searchtext mục Visible chọn No
Vậy là xong, muốn đẹp bạn phải tự thiết kế theo ý muốn của bạn nhé.