Tùy chọn

tìm kiếm theo nhiều tiêu chí

Trang chủ
tìm kiếm theo nhiều tiêu chí
tìm kiếm theo nhiều tiêu chí

Godspear > 21-03-17, 10:13 AM

Em đã từng tạo topic về vấn đề này mà chưa hiểu thấu lắm nên mún nhờ mọi người chỉ giáo them

Em dg làm một search form có thể tìm kiếm dựa trên nhiều tiêu chí 1 text box và 5 combo box, như trong file, link file ở cuối bài

em đã thử mày mò và làm theo 2 topic

http://thuthuataccess.com/forum/post-183...l#pid18364
http://thuthuataccess.com/forum/thread-5319.html

và viết lại đoạn code như phía dưới để search và cho kêt quả ra list box lstDanhsach

Private Sub cmdSearch2_Click()
' ------------------   ham cho nut tim kiem --------------------------:
If IsNull(Trim(Me.txtSearch)) = True Then
Me.lstDANHSACH.RowSource = ""
Me.txtSearch.SetFocus
Me.lstDANHSACH.Enabled = False
Else
    Dim s, s1, s2, s3, s4, s5, s6 As String 'Khai bao cac bien chua thong tin:
    'Day la dong lenh SQL de apply cho lstDANHSACH.rowsource :
    s = "SELECT All_Staff.Last_Name, All_Staff.Given_names, All_Staff.Building, All_Staff.Campus, All_Staff.Unit, All_Staff.Position_Title,All_Staff.Contract FROM All_Staff WHERE (1=1"

    'Day la cac phan mo rong de chen vao sau doan SQL tren :
    s1 = " AND ((All_Staff.Last_Name) = like '" & "*" & Me.txtSearch & "*" & "') OR (All_Staff.Given_names) = like '" & "*" & Me.txtSearch & "*" & "'))"
    s2 = " AND ((All_Staff.Building) = " & Me.cboBuilding & ")"
    s3 = " AND ((All_Staff.Campus) = " & Me.cboCampus & ")"
    s4 = " AND ((All_Staff.Unit) = " & Me.cboUnit & ")"
    s5 = " AND ((All_Staff.Position_Title) = " & Me.cboPosition_Title & ")"
    s6 = " AND ((All_Staff.Contract) = " & Me.cboContract & ")"
    'Cu moi textbox co du lieu thi se chen dieu kien loc vao doan SQL tren:

    If IsNull(Trim(txtSearch)) = False Then
    s = s + s1
    End If
    If IsNull(Trim(Me.cboBuilding)) = False Then
    s = s + s2
    End If
    If IsNull(Trim(Me.cboCampus)) = False Then
    s = s + s3
    End If
    If IsNull(Trim(Me.cboUnit)) = False Then
    s = s + s4
    End If
    If IsNull(Trim(Me.cboPosition_Title)) = False Then
    s = s + s5
    End If
    If IsNull(Trim(Me.cboContract)) = False Then
    s = s + s6
    End If
    Me.lstDANHSACH.RowSource = s & ") ORDER BY All_Staff.ID; "
    '-------------------------------
    Me.lstDANHSACH.Requery
    Me.lstDANHSACH.Enabled = True
    If lstDANHSACH.ListCount - 1 = -1 Then
    MsgBox "No Record!", vbOKOnly + vbInformation
    Me.lstDANHSACH.Enabled = False
    End If
    End If
End Sub

đoạn code này áp dung trong Form - Search Form

nhưng khi em xài thử thì ko ra kết quả nào nên dg ko biết là code sai ở chỗ nào nên cần các cao nhân vào chỉ giáo giúp

em cug dg tìm cách để đưa kết quả vào trong subform nữa

đồng thời em cũng dg thử làm theo video youtube này : https://www.youtube.com/watch?v=CTiA_4Me...F93973C4D8

nhưng dg bí ở đoạn làm sao để đưa kết quả tìm kiếm ra ở querry vào trong subform dc ????????? dg ko biết access có thể làm dc điều này ko, nên tiện hỏi mọi người một lượt luôn

cách như trong youtube thì trong file của em là form - Search by Querry, dg tìm cách áp dung cách này cho subform hoặc là splitform cug dc

Link File: https://drive.google.com/file/d/0Byhaxbq...sp=sharing
RE: tìm kiếm theo nhiều tiêu chí

Godspear > 24-03-17, 11:23 AM

mình đã thử làm theo cách của video youtube này : https://www.youtube.com/watch?v=CTiA_4Me...F93973C4D8 này

áp dung đc cho subform luôn r, đến đây thì vẫn thành công và code hoạt động tốt

nhưng mà khi mình thử xài cho checkbox thì kết quả tìm kiếm ra lại it hơn so với trong table mình check thử

vd như là áp dung vs checkbox ECRU thì vs querry sẽ tìm ra dc là 68 kết quả

nhưng khi tìm bang form thì lại chỉ ra có 22 kết quả

ko biết có ai biết về vấn đề này chỉ giáo giúp với

link file: https://drive.google.com/open?id=0Byhaxb...FFiTGtFVVE
RE: tìm kiếm theo nhiều tiêu chí

ongke0711 > 25-03-17, 06:08 PM

Bạn xem cái demo của bạn MatTroiNguQuen : Demo Print Option 2. Trong form có dùng lệnh tìm kiếm kết hợp textbox và checkbox.
Link: http://thuthuataccess.com/forum/post-226...l#pid22643
Tôi thấy có cái form tìm kiếm mà bạn thay đổi cách tìm kiếm xoành xoạch, người ta định hướng dẫn cho bạn xong, bạn lại thay đổi..Bạn nên chốt lại thiết kế form tìm kiếm rồi bắt đầu code cho nó.
RE: tìm kiếm theo nhiều tiêu chí

Godspear > 27-03-17, 06:02 AM

(25-03-17, 06:08 PM)ongke0711 Đã viết: Bạn xem cái demo của bạn MatTroiNguQuen : Demo Print Option 2. Trong form có dùng lệnh tìm kiếm kết hợp textbox và checkbox.
Link: http://thuthuataccess.com/forum/post-226...l#pid22643
Tôi thấy có cái form tìm kiếm mà bạn thay đổi cách tìm kiếm xoành xoạch, người ta định hướng dẫn cho bạn xong, bạn lại thay đổi..Bạn nên chốt lại thiết kế form tìm kiếm rồi bắt đầu code cho nó.

tại ko thấy ai hướng dẫn nên lại mày mò cách khác. làm đủ các cách coi như tìm hiểu
RE: tìm kiếm theo nhiều tiêu chí

Godspear > 27-03-17, 11:06 AM

(25-03-17, 06:08 PM)ongke0711 Đã viết: Bạn xem cái demo của bạn MatTroiNguQuen : Demo Print Option 2. Trong form có dùng lệnh tìm kiếm kết hợp textbox và checkbox.
Link: http://thuthuataccess.com/forum/post-226...l#pid22643
Tôi thấy có cái form tìm kiếm mà bạn thay đổi cách tìm kiếm xoành xoạch, người ta định hướng dẫn cho bạn xong, bạn lại thay đổi..Bạn nên chốt lại thiết kế form tìm kiếm rồi bắt đầu code cho nó.

vì sử dụng cách như ở bài đầu của mình thì chắc là code sẽ đỡ rối rắm hơn và có thể tùy biến nhiều hơn so vs cách như trong youtube, bạn chỉ giáo giúp mình cách như trong 2 topic này dc ko bạn ongke0711, thank bạn trc

http://thuthuataccess.com/forum/post-183...l#pid18364
http://thuthuataccess.com/forum/thread-5319.html
RE: tìm kiếm theo nhiều tiêu chí

ongke0711 > 27-03-17, 09:34 PM

Trong câu lệnh SQL tìm kiếm của bạn, nếu dấu ngoặc đơn nào không cần thiết thì cứ bỏ ra để tránh bị lỗi cú pháp, dò tìm lỗi dư hoặc thiếu dấu ngoặc cũng mệt.
Link file: http://www.mediafire.com/file/uhfw5kaknt...base.accdb
RE: tìm kiếm theo nhiều tiêu chí

Godspear > 02-05-17, 10:36 AM

(27-03-17, 09:34 PM)ongke0711 Đã viết: Trong câu lệnh SQL tìm kiếm của bạn, nếu dấu ngoặc đơn nào không cần thiết thì cứ bỏ ra để tránh bị lỗi cú pháp, dò tìm lỗi dư hoặc thiếu dấu ngoặc cũng mệt.
Link file: http://www.mediafire.com/file/uhfw5kaknt...base.accdb

bạn ơi, có thể kết hợp cách search trong mã code với date field ko bạn, như là kết hợp thêm tìm trong khoảng thời gian nhất định ấy ??????
RE: tìm kiếm theo nhiều tiêu chí

ongke0711 > 02-05-17, 06:22 PM

(02-05-17, 10:36 AM)Godspear Đã viết: bạn ơi, có thể kết hợp cách search trong mã code với date field ko bạn, như là kết hợp thêm tìm trong khoảng thời gian nhất định ấy ??????

Làm được hết bạn à. Làm theo cái bài của bạn.
Ví dụ: bạn đã kết hợp các điều kiện khác tạo được một chuỗi tìm kiếm “strSearch” rồi thì bạn thêm tiếp đk [Từ ngày], [Đến ngày] vô thôi.
- Bạn phải định dạng ngày tháng năm theo qui ước của Access VBA - “mm/dd/yyyy” để tránh hệ thống hiểu làm ngày/tháng.
- Khai báo biến conJetDate: để dùng trong hàm Format()

Const conJetDate = "\#mm\/dd\/yyyy\#"

s7 = s6 & “AND TenTable.Ngay >= “ & Format (Me.txtTuNgay, conJetDate)
s8 = s7 & “AND TenTable.Ngay <= “ & Format (Me.txtDenNgay, conJetDate)

If IsNull (Me.txtTuNgay) = False Then
s=s+s7
End If
If IsNull (Me.txtTuNgay) = False Then
s=s+s8
End If
Bài trước Bài tiếp

tìm kiếm theo nhiều tiêu chí

Trang chủ

tìm kiếm theo nhiều tiêu chí

RE: tìm kiếm theo nhiều tiêu chí

RE: tìm kiếm theo nhiều tiêu chí

RE: tìm kiếm theo nhiều tiêu chí

RE: tìm kiếm theo nhiều tiêu chí

RE: tìm kiếm theo nhiều tiêu chí

RE: tìm kiếm theo nhiều tiêu chí

RE: tìm kiếm theo nhiều tiêu chí