Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hướng dẫn] Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
24-06-12, 06:45 PM (Được chỉnh sửa: 14-06-14 07:41 AM bởi khanhduycsgt.)
Bài viết: #1
Lightbulb Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
Mình cũng biết được cách làm thông qua 1 trang web hướng dẫn trên mạng, mình cũng tự mò và cũng phát triển thêm về cách thức tạo form tìm kiếm theo nhiều tiêu chí khác nhau này.

Cách này dựa trên tìm kiếm bằng câu lệnh SQL.
Ví dụ ta có table tblTHONGTIN có các field như sau: MaCB, Hovaten, Ngaysinh, Quequan, Dantoc
Giờ ta muốn tạo 1 form tìm kiếm với tất cả các tiêu thí hoặc một vài tiêu chí trong các field trên, dạng như form này:

[Hình: 1.jpg]

- Ta tạo các textbox để nhập khóa tìm kiếm lần lượt có tên là: txtMaCB, txtHovaten, txtNgaysinh, txtQuequan, txtDantoc
- Tạo 1 Listbox tên là lstDANHSACH để chứa kết quả tìm kiếm, listbox này không cần thiết phải đặt rowsource, ta chỉ chỉnh số CoulumWidths sao cho hiển thị đẹp và phù hợp với độ dài text trong field là được.

Code cho nút cmdTimkiem như sau:
Mã:
Dim s, s1, s2, s3, s4, s5 As String 'Khai bao cac bien chua thong tin

'Day la dong lenh SQL de apply cho lstDANHSACH.rowsource:
s = "SELECT tblTHONGTIN.MaCB, tblTHONGTIN.Hovaten, tblTHONGTIN.Ngaysinh, tblTHONGTIN.Quequan, tblTHONGTIN.Dantoc FROM tblTHONGTIN WHERE (1=1"

'Day la cac phan mo rong de chen vao sau doan SQL tren:
s1 = " AND ((tblTHONGTIN.MaCB) = " & [txtMaCB] & ")"
s2 = " AND ((tblTHONGTIN.Hovaten) like '" & "*" & [txtHovaten] & "*" & "')"
s3 = " AND ((tblTHONGTIN.Ngaysinh)=" & [txtNgaysinh & ")"
s4 = " AND ((tblTHONGTIN.Quequan) like '" & "*" & [txtQuequan] & "*" & "')"
s5 = " AND ((tblTHONGTIN.Dantoc)=" & Me.txtDantoc & ")"

'Cu moi textbox co du lieu thi se chen dieu kien loc vao doan SQL tren:
If IsNull(Trim(txtMaCB)) = False Then
s = s + s1
End If
If IsNull(Trim(txtHovaten)) = False Then
s = s + s2
End If
If IsNull(Trim(txtNgaysinh)) = False Then
s = s + s3
End If
If IsNull(Trim(txtQuequan)) = False Then
s = s + s4
End If
If IsNull(Trim(txtDantoc)) = False Then
s = s + s5
End If

'Chen them phan duoi ket thuc cu phap lenh SQL tren:
Me.lstDANHSACH.RowSource = s & ") ORDER BY tblTHONGTIN.MaCB; "
Me.lstDANHSACH.Requery

File demo là Phần mềm Quản lý Cán Bộ dành cho các cơ quan Hành Chính Đảng, phần mềm có tích hợp chức năng khóa menu, export file excel:

http://www.mediafire.com/?v5t1866h6hcdx7t
* Trong file đính kèm có file word hướng dẫn cách sử dụng

Cảm ơn các bạn đã đọc bài viết!

Chữ Ký của khanhduycsgtChào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Trả lời
 Những người đã cảm ơn Noname , pmt007 , tanthuc , yeubongdo01 , huelien75 , thanhk5tin@gmail.com , khactiep , conmeo , hugox03 , thenhatnguyen , sondanglam , hctol , huyvu333 , danhxetnghiem , duyetnc , hienchuoi9 , tiennd67
24-06-12, 06:51 PM (Được chỉnh sửa: 24-06-12 06:53 PM bởi uronmapu.)
Bài viết: #2
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
Thanks

Bài hay

Chữ Ký của uronmapuCảm ơn cả nhà

Để học Access không nên ngại đặt câu hỏi


Uron
Trả lời
 Những người đã cảm ơn khanhduycsgt , pmt007
24-06-12, 06:53 PM
Bài viết: #3
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
Thanks bạn, mình cũng thử tìm xem đã có chủ đề này hay chưa rồi mình mới viết. Cũng không bít là chủ đề đã có đăng rồi

Chữ Ký của khanhduycsgtChào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Trả lời
 Những người đã cảm ơn phongld , alilibababa , pmt007 , TruongVanTruong
12-07-12, 02:14 PM
Bài viết: #4
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
[font=Arial][size=medium]
Làm ơn cho mình hỏi!
Mình cần tạo Form lọc danh sách khách hàng theo khoản ngày như sau:
- Form gồm 2 textbox cho nhập: từ ngày, đến ngày (kiểu dd/mm/yyyy), 2 nút lệnh là "Tìm" và "Đóng"
- Yêu cầu:
+ Khi mở form này lên thì 2 ô textbox mặc định là rỗng (không có dữ liệu)
+ Khi bấm nút tìm: Nếu 1 trong hai hoặc cả 2 textbox rỗng thì báo "Vui lòng nhập ngày cần tìm". Nếu đã nhập thì cho mở Query mà chỉ hiển thị những khách hàng có "NgayTC" (tiêu đề của cột trong Query) nằm trong khoản ngày đã nhập ở 2 textbox trên.
+ Khi bấm nút đóng thì cho đóng form và không lưu.

Mình muốn viết bằng lệnh VBA, mong các bạn và admin giúp đỡ! Cảm ơn rất nhiều!

Chữ Ký của phongldXin chào, mình là phongld, Tham gia http://thuthuataccess.com/forum từ ngày 21-06 -12.
Trả lời
04-08-12, 10:01 AM
Bài viết: #5
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
+ Khi mở form này lên thì 2 ô textbox mặc định là rỗng (không có dữ liệu):
trong sự kiện form_load thì viết code đặt giá trị: textbox = ""

+ Khi bấm nút tìm: Nếu 1 trong hai hoặc cả 2 textbox rỗng thì báo "Vui lòng nhập ngày cần tìm". Nếu đã nhập thì cho mở Query mà chỉ hiển thị những khách hàng có "NgayTC" (tiêu đề của cột trong Query) nằm trong khoản ngày đã nhập ở 2 textbox trên:
Sử dụng hàm If...else:
If textboxTungay = "" or textboxDenngay = "" then
msgbox "Vui lòng nhập ngày cần tìm"
else
'viết code tìm kiếm ở đây
end if

+ Khi bấm nút đóng thì cho đóng form và không lưu:
If me.Dirty = True then
me.Undo
else
docmd.Close
end if

Chữ Ký của khanhduycsgtChào Guest, có mánh nào hay thì chia sẻ cho mình biết với nhé! Và hãy thanks bằng cách bấm nút Thanks để tỏ rõ mình là người lịch sự nào! ^^
Trả lời
30-09-12, 08:34 PM
Bài viết: #6
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
muôn tìm code của nút tìm kieems, nhưng ví dụ mình nhập vào tên thì sẽ hiển thị những nguoi tên tương tự, đại loại giống như anh gu gồ

Chữ Ký của pmt007Xin chào, mình là pmt007, Tham gia http://thuthuataccess.com/forum từ ngày 30-09 -12.
Trả lời
02-10-12, 08:29 PM
Bài viết: #7
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
Bạn tạo query có điều kiện IN(.......) và sử dụng even trong thuộc tính onchange của txtnoidungtimkiem

love struck
Lightbulb

Chữ Ký của cpucloiTôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cpucloi@gmail.com
Yahoo: cpucloi@yahoo.com.vn
Skype: cpucloi
Facebook: cpucloi
Two: cpucloi
ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Trả lời
21-04-13, 09:05 PM
Bài viết: #8
Rainbow RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
khó hiểu quá, do mình chưa hiểu thì phải, thanks nhé! Thấy hay!007

Chữ Ký của khactiepXin chào, mình là khactiep, Tham gia http://thuthuataccess.com/forum từ ngày 19-04 -13.
Trả lời
10-04-14, 07:26 PM
Bài viết: #9
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
Co pro nao chỉ mình với
tại sao access 2007 hok hiểu hàm "left" zậy??
vây mình phải dùng hàm zì để lọc
VD: MH001; MH002; MK001; MM002
Mình mún lọc theo chữ cái.
giúp minh với

Chữ Ký của huyvu333Xin chào, mình là huyvu333, Tham gia http://thuthuataccess.com/forum từ ngày 09-04 -14.
ღღღღღTài sản của huyvu333 (View All Items) ღღღღღ
Trả lời
12-04-14, 06:14 PM
Bài viết: #10
RE: Tạo form tìm kiếm theo nhiều tiêu chí khác nhau
Cách này rất hay.

Tôi có thêm 2 gợi ý khác mà bạn không cần hiểu biết biết nhiều về các hàm, về VBA.

1. Tìm theo ID duy nhất (form ko liên kết dữ liệu):

- Dùng Macro để lọc, trong code nút tìm kiếm cho chạy Macro này.

- Dùng hàm Dlookup trong VBA để hiển thị các thông tin cần hiển thị (tìm dựa trên ID kia)

2. Tìm theo ký tự bạn muốn tìm (form có liên kết dữ liệu).

- Dùng Macro để lọc, trong code nút tìm kiếm cho chạy Macro này.

- Định dạng form hiển thị kiểu danh sách ngang.

Tạm thời gợi ý như thế đã, mem nào quan tâm và cần thêm gì thì đăng đàn nhé.

Thân!

Chữ Ký của duyetncĐỗ Tiến Duyệt
Trả lời
 Những người đã cảm ơn dsvanminh , hienchuoi9


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Sad [Hỏi] lấy thông tin từ subform này sang subform khác dinhvu_37 1 30 Hôm nay 10:12 AM
Bài mới nhất: Minh Tiên
  [Help] Xin hướng dẫn giúp mình cách đánh số thứ tự trong Form Access. hoamua39 0 23 Hôm qua 11:58 PM
Bài mới nhất: hoamua39
  sắp xếp theo thời gian trong access thanhtruong 1 38 Hôm qua 02:14 PM
Bài mới nhất: cpucloi
  [Lỗi] Nhờ giúp vấn đề về Form DoquangLam 3 73 20-11-14 08:24 AM
Bài mới nhất: Xuân Thanh
Question [Help] Liệt kê giá trị lớn nhất khi nhấn 1 nút trên form huuviet_huu 5 116 16-11-14 09:59 AM
Bài mới nhất: huuviet_huu

Chuyển nhanh:


Thành viên đang đọc chủ đề: 1 Khách

Liên hệ | Thủ Thuật Access | Lên trên | Nội dung | Bản rút gọn | Tin RSS