Tùy chọn
Search dựa trên nhiều tiêu chí
- Search dựa trên nhiều tiêu chí
-
RE: Search dựa trên nhiều tiêu chí
Quynhhihi > 02-07-21, 06:30 PM
(02-07-21, 05:24 PM)ongke0711 Đã viết:
chuoõi strsearch của mình không hề báo lỗi, vẫn chạy bình thường(02-07-21, 01:42 PM)Quynhhihi Đã viết: mình cũng đang quan tâm vấn đề này và cũng đang sử dụng afterupdate một control . mình đang có combox(combo24,combo28,combo30,combo6) và textbox (nsearch) vẫn muốn sử dụng afterupdate thì không biết thêm AND thế nào.
Mã:...
strsearch = "Select * from CONTACTQR where ([Contact Name] like ""*" & strtext & "*"") or ([Job Title] like ""*" & strtext & "*"") or ([Company] like ""*" & strtext & "*"") or ([Address] like ""*" & strtext & "*"") or ([Dictrict] like ""*" & strtext & "*"") or ([City] like ""*" & strtext & "*"") or ([Country] like ""*" & strtext & "*"") or ([Mobile Phone] like ""*" & strtext & "*"") or ([Email Personal] like ""*" & strtext & "*"") or ([Business Phone] like ""*" & strtext & "*"") or ([Email Company] Like ""*" & strtext & "*"")"
Me.CONTACTQRsubform.Form.RecordSource = strsearch
Bài bên kia tôi có nói bạn chuỗi strSearch sai cú pháp, kêu bạn bỏ các dấu ngoặc đi để tránh thiếu dấu, để kiểm tra. Sau khi bỏ dấu ngoặc đi hoặc bạn thêm dấu ngoặc cho đầy đủ thì nó hết báo lỗi.
Còn các link trong bài trên có những ví dụ, hướng dẫn code tìm kiếm nhiều điều kiện, bạn đọc tham khảo cách làm đi.
((((
-
RE: Search dựa trên nhiều tiêu chí
ongke0711 > 02-07-21, 09:27 PM
(02-07-21, 06:30 PM)Quynhhihi Đã viết:
(02-07-21, 01:42 PM)Quynhhihi Đã viết: mình cũng đang quan tâm vấn đề này và cũng đang sử dụng afterupdate một control . mình đang có combox(combo24,combo28,combo30,combo6) và textbox (nsearch) vẫn muốn sử dụng afterupdate thì không biết thêm AND thế nào.
Mã:...
strsearch = "Select * from CONTACTQR where ([Contact Name] like ""*" & strtext & "*"") or ([Job Title] like ""*" & strtext & "*"") or ([Company] like ""*" & strtext & "*"") or ([Address] like ""*" & strtext & "*"") or ([Dictrict] like ""*" & strtext & "*"") or ([City] like ""*" & strtext & "*"") or ([Country] like ""*" & strtext & "*"") or ([Mobile Phone] like ""*" & strtext & "*"") or ([Email Personal] like ""*" & strtext & "*"") or ([Business Phone] like ""*" & strtext & "*"") or ([Email Company] Like ""*" & strtext & "*"")"
Me.CONTACTQRsubform.Form.RecordSource = strsearch
Trích dẫn:Bài bên kia tôi có nói bạn chuỗi strSearch sai cú pháp, kêu bạn bỏ các dấu ngoặc đi để tránh thiếu dấu, để kiểm tra. Sau khi bỏ dấu ngoặc đi hoặc bạn thêm dấu ngoặc cho đầy đủ thì nó hết báo lỗi.
chuoõi strsearch của mình không hề báo lỗi, vẫn chạy bình thường
Còn các link trong bài trên có những ví dụ, hướng dẫn code tìm kiếm nhiều điều kiện, bạn đọc tham khảo cách làm đi.((((
- Tôi chạy thử trên file bạn gửi bên bài post bên kia thì thấy vậy. File mới của bạn nếu sửa rồi thì nó không lỗi thôi.
- Bạn nên diễn đạt rõ để người bên ngoài không biết bạn đang làm gì trên file hiểu được, chứ họ không phải như bạn (đang ngồi thiết kế), nói vắn tắt là họ có thể hiểu được bạn muốn cái gì.
- "Muốn sử dụng AfterUpdate thì thêm AND như thế nào"?? thì thay OR bằng AND thôi. Hình như bạn đang có vấn đề về mô tả yêu cầu mình muốn.
- Nếu bạn giải thích rõ logic bạn đang muốn làm cho Form tìm kiếm ví dụ như: "Tôi muốn tìm kiếm theo nhiều điều kiện, cứ khi thêm 1 điều kiện tìm kiếm thì sẽ thu hẹp thêm dữ liệu tìm kiếm trả về" --> khi đó người đọc sẽ hiểu và suy ra bạn muốn tìm kiếm dạng "AND" cho tất cả các điều kiện.
- Nếu bạn diễn giải: tôi muốn tìm dữ liệu có chứa bất kỳ điều kiện nào ở các ComboBox, Textbox tôi nhập liệu..." --> khi đó người đọc sẽ suy ra logic tìm kiếm dạng "OR".
Bạn xem và làm theo bài #1 link bên dưới là đúng với như cầu tìm kiếm dạng AND của bạn. (link này đã đề cập ở bài trước rồi.)
Link: https://thuthuataccess.com/forum/thread-5319.html -
RE: Search dựa trên nhiều tiêu chí
worker > 03-07-21, 02:32 PM
chào mọi người.
mình đang có form tìm kiếm nhân viên bao gồm 1 "combobox mã phòng" 1 "combobox khách sạn" và 1 text serch tìm kiếm tất cả nội dung trong subform ,1 nút search, 1 subform
mình đã tham khảo mấy bài trên các bạn viết nhưng tất cả đều thực hiện đồng thời cả chọn combobox và textsearch khi chọn nút search.
mong muốn của mình là "[b]combobox khách sạn" [/b] lọc ra kết quả 1
thực hiện tìm kiếm "combobox mã phòng" trên kết quả 1 trả lại được kết quả 2
[b]textserch [/b]sẽ tìm kiếm trên kết quả 2 khi kich chọn nút [b]search[/b] và hiển thị trong [b]subform[/b][b]. [/b]
mình chưa tìm ra hướng giải quyết, mng có thể bớt chút thời gian giúp mình không -
RE: Search dựa trên nhiều tiêu chí
worker > 03-07-21, 02:51 PM
(03-07-21, 02:32 PM)worker Đã viết: chào mọi người.
mình đang có form tìm kiếm nhân viên bao gồm 1 "combobox mã phòng" 1 "combobox khách sạn" và 1 text serch tìm kiếm tất cả nội dung trong subform ,1 nút search, 1 subform
mình đã tham khảo mấy bài trên các bạn viết nhưng tất cả đều thực hiện đồng thời cả chọn combobox và textsearch khi chọn nút search.
mong muốn của mình là "[b]combobox khách sạn" [/b] lọc ra kết quả 1
thực hiện tìm kiếm "combobox mã phòng" trên kết quả 1 trả lại được kết quả 2
[b]textserch [/b]sẽ tìm kiếm trên kết quả 2 khi kich chọn nút [b]search[/b] và hiển thị trong [b]subform[/b][b]. [/b]
mình chưa tìm ra hướng giải quyết, mng có thể bớt chút thời gian giúp mình không
MÌNH đã làm để trả được kết quả 2 nhưng không làm được phần texsearch tìm trên kết quả 2 đấy của mình(((((
-
RE: Search dựa trên nhiều tiêu chí
ongke0711 > 03-07-21, 03:06 PM
(03-07-21, 02:32 PM)worker Đã viết: chào mọi người.
mình đang có form tìm kiếm nhân viên bao gồm 1 "combobox mã phòng" 1 "combobox khách sạn" và 1 text serch tìm kiếm tất cả nội dung trong subform ,1 nút search, 1 subform
mình đã tham khảo mấy bài trên các bạn viết nhưng tất cả đều thực hiện đồng thời cả chọn combobox và textsearch khi chọn nút search.
mong muốn của mình là "[b]combobox khách sạn" [/b] lọc ra kết quả 1
thực hiện tìm kiếm "combobox mã phòng" trên kết quả 1 trả lại được kết quả 2
[b]textserch [/b]sẽ tìm kiếm trên kết quả 2 khi kich chọn nút [b]search[/b] và hiển thị trong [b]subform[/b][b]. [/b]
mình chưa tìm ra hướng giải quyết, mng có thể bớt chút thời gian giúp mình không
Có file mẫu dễ xử lý hơn bạn. Giờ ngồi hình dung trong đầu ra bối cảnh Form của bạn thì khó quá. -
RE: Search dựa trên nhiều tiêu chí
worker > 03-07-21, 03:44 PM
(03-07-21, 03:06 PM)ongke0711 Đã viết:
(03-07-21, 02:32 PM)worker Đã viết: chào mọi người.
mình đang có form tìm kiếm nhân viên bao gồm 1 "combobox mã phòng" 1 "combobox khách sạn" và 1 text serch tìm kiếm tất cả nội dung trong subform ,1 nút search, 1 subform
mình đã tham khảo mấy bài trên các bạn viết nhưng tất cả đều thực hiện đồng thời cả chọn combobox và textsearch khi chọn nút search.
mong muốn của mình là "[b]combobox khách sạn" [/b] lọc ra kết quả 1
thực hiện tìm kiếm "combobox mã phòng" trên kết quả 1 trả lại được kết quả 2
[b]textserch [/b]sẽ tìm kiếm trên kết quả 2 khi kich chọn nút [b]search[/b] và hiển thị trong [b]subform[/b][b]. [/b]
mình chưa tìm ra hướng giải quyết, mng có thể bớt chút thời gian giúp mình không
Có file mẫu dễ xử lý hơn bạn. Giờ ngồi hình dung trong đầu ra bối cảnh Form của bạn thì khó quá.
mình mới tham gia không biết trèn file lên thế nào mình gửi đoạn code được không ạ
code cho combobox khach san
Private Sub cbokhachsan_AfterUpdate()
Call searchcreteria
End Sub
code cho combobox ma phong
Private Sub cbomaphong_AfterUpdate()
Call searchcreteria
End Sub
sub code cho combobox khach san va ma phong
Function searchcreteria()
Dim strkhachsan, strmaphong As String
Dim i, s As String
If IsNull(Me.cbokhachsan) Then
strkhachsan = "[khach san] like '*'"
Else
strkhachsan = "[khach san] = '" & Me.cbokhachsan & "'"
End If
If IsNull(Me.cbomaphong) Then
strmaphong = "[ma phong] like '*'"
Else
strmaphong = "[ma phong] = '" & Me.cbomaphong & "'"
End If
s = strkhachsan & "and" & strmaphong
i = "select * from TOTALKHACHSAN where" & s
Me.TOTALKHACHSANsubform.Form.RecordSource = i
Me.TOTALKHACHSANsubform.Form.Requery
End Function
code cho nút search
Private Sub nutTK_Click()
Dim strtimkiem As String
Dim strtext As String
strtext = Me.keyword.Value
strtimkiem = "Select * from TOTALKHACHSAN where ([dia chi] like ""*" & strtext & "*"") or ([so phong] like ""*" & strtext & "*"")"
Me.TOTALKHACHSANsubform.Form.RecordSource = strtimkiem
End Sub -
RE: Search dựa trên nhiều tiêu chí
ongke0711 > 03-07-21, 04:19 PM
(03-07-21, 03:44 PM)worker Đã viết: mình mới tham gia không biết trèn file lên thế nào
mình gửi đoạn code được không ạ
"Trèn" file thì upload file đó lên các dịch vụ lưu trữ miễn phí trên mạng như: mediafire.com, oneDrive, googleDrive... Sau đó bạn chia sẻ Full quyền file đó và copy đường dẫn lên đây. -
RE: Search dựa trên nhiều tiêu chí
worker > 03-07-21, 04:26 PM
(03-07-21, 04:19 PM)ongke0711 Đã viết:
(03-07-21, 03:44 PM)worker Đã viết: mình mới tham gia không biết trèn file lên thế nào
mình gửi đoạn code được không ạ
"Trèn" file thì upload file đó lên các dịch vụ lưu trữ miễn phí trên mạng như: mediafire.com, oneDrive, googleDrive... Sau đó bạn chia sẻ Full quyền file đó và copy đường dẫn lên đây.
mình rất xin lỗi access mình đang làm cần tính bảo mật không thể chia sẻ lên được. bạn giúp mình nên thêm gì ở đoạn code trên được không ạ
-
RE: Search dựa trên nhiều tiêu chí
ongke0711 > 03-07-21, 05:57 PM
(03-07-21, 04:26 PM)worker Đã viết: mình rất xin lỗi access mình đang làm cần tính bảo mật không thể chia sẻ lên được. bạn giúp mình nên thêm gì ở đoạn code trên được không ạ
Làm dữ liệu giả lập mà cũng khó vậy sao!
Nhìn qua câu lệnh của bạn thì thấy là sai cú pháp. Thông thường người lập trình sẽ thêm dòng Debug.Print chuỗi cần kiểm để khi chạy nó in ra cái chuỗi câu lệnh xem có đúng không.
s = strkhachsan & "and" & strmaphong
Chuỗi này sai vì thiếu khoảng trắng với từ khoá "AND"
Phải sửa lại: s = strkhachsan & " AND " & strmaphong
Chuỗi này:
i = "select * from TOTALKHACHSAN where" & s
Thiếu khoảng trắng sau "where".
Sửa lại: i = "select * from TOTALKHACHSAN where " & s
Khai báo: Dim i, s As String --> biến i sẽ và Variant, biến s sẽ là String
----------------------------------------------------------------------------------------------
Về nút TK: nếu [so phong] là dạng Number thì bỏ cặp dấu nháy đơn đi.
strtimkiem = "Select * from TOTALKHACHSAN where ([dia chi] like ""*" & strtext & "*"") or ([so phong] like ""*" & strtext & "*"")"
Me.TOTALKHACHSANsubform.Form.RecordSource = strtimkiem
Me.TOTALKHACHSANsubform.Requery
Sau khi gán RecordSource cho Form thì phải Requery nó để cập nhật. -
RE: Search dựa trên nhiều tiêu chí
worker > 03-07-21, 06:36 PM
(03-07-21, 05:57 PM)ongke0711 Đã viết:
(03-07-21, 04:26 PM)worker Đã viết: mình rất xin lỗi access mình đang làm cần tính bảo mật không thể chia sẻ lên được. bạn giúp mình nên thêm gì ở đoạn code trên được không ạ
Làm dữ liệu giả lập mà cũng khó vậy sao!
Nhìn qua câu lệnh của bạn thì thấy là sai cú pháp. Thông thường người lập trình sẽ thêm dòng Debug.Print chuỗi cần kiểm để khi chạy nó in ra cái chuỗi câu lệnh xem có đúng không.
s = strkhachsan & "and" & strmaphong
Chuỗi này sai vì thiếu khoảng trắng với từ khoá "AND"
Phải sửa lại: s = strkhachsan & " AND " & strmaphong
Chuỗi này:
i = "select * from TOTALKHACHSAN where" & s
Thiếu khoảng trắng sau "where".
Sửa lại: i = "select * from TOTALKHACHSAN where " & s
Khai báo: Dim i, s As String --> biến i sẽ và Variant, biến s sẽ là String
----------------------------------------------------------------------------------------------
Về nút TK: nếu [so phong] là dạng Number thì bỏ cặp dấu nháy đơn đi.
strtimkiem = "Select * from TOTALKHACHSAN where ([dia chi] like ""*" & strtext & "*"") or ([so phong] like ""*" & strtext & "*"")"
Me.TOTALKHACHSANsubform.Form.RecordSource = strtimkiem
Me.TOTALKHACHSANsubform.Requery
Sau khi gán RecordSource cho Form thì phải Requery nó để cập nhật.
cảm ơn ông nhé, tôi đã sửa lại, nhưng text của tôi vẫn độc lập tìm kiếm mà không dựa vào kết quả của combobox.