Tùy chọn
Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
- Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
-
Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
vulhu06 > 14-04-14, 10:38 AM
Xin chào các A/C
Hôm nay em có vấn đề này muốn hỏi, số là em có 01 form tìm kiếm dữ liệu kiểu text tìm theo phòng ban. Em có đặt kiều kiện rồi tìm cũng đã được rồi, nhưng em có thắc mắc là em thấy một số chương trình tìm kiếm cho phép nhập dữ liệu không dấu và vẫn tìm được. Vậy xin hỏi trong Access làm thế nào ah ? Ví dụ dữ liệu của em là "Ban giám Đốc" thì chỉ cần nhập là "giam doc" là thỏa điều kiện, bỏ qua dấu tiếng việt
Mong mọi người giúp đỡ -
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
MTNQ > 14-04-14, 01:31 PM
Bạn sử dụng hàm ConvertToNotSign của Mod Xuân Thanh vào là được
Mình xin phép sử dụng file Company Info.accdb của bạn odakocek trong chủ đề Enter parameter Value để làm ví dụ
file Company Info.accdb của bạn odakocek mình đã thay đổi một số nội dung sau:
1/Chuyển sang AC 2003 và đổi tên thành "Demo Search Records .mdb" để tiện cho các bạn tham khảo
2/Cho phép bấm nút tìm kiếm khi không nhập thông tin nào trên form, khi đó sẽ hiển thị tất cả các mẩu tin
3/Hiển thị lại form Company_search khi đóng form Company_info
4/ Dùng hàm ConvertToNotSign (có chỉnh sửa đôi chút) để cho phép tìm kiếm có dấu TV cũng như không có dấu
5/Hàm ConvertToNotSign mình có thêm dòng lệnh If sContent = "" Then Exit Function để tránh lỗi trong trường hợp này
Download Demo
Chúc Vui!
-
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
vulhu06 > 17-04-14, 03:00 PM
(14-04-14, 01:31 PM)MatTroiNguQuen Đã viết: Bạn sử dụng hàm ConvertToNotSign của Mod Xuân Thanh vào là được
Mình xin phép sử dụng file Company Info.accdb của bạn odakocek trong chủ đề Enter parameter Value để làm ví dụ
file Company Info.accdb của bạn odakocek mình đã thay đổi một số nội dung sau:
1/Chuyển sang AC 2003 và đổi tên thành "Demo Search Records .mdb" để tiện cho các bạn tham khảo
2/Cho phép bấm nút tìm kiếm khi không nhập thông tin nào trên form, khi đó sẽ hiển thị tất cả các mẩu tin
3/Hiển thị lại form Company_search khi đóng form Company_info
4/ Dùng hàm ConvertToNotSign (có chỉnh sửa đôi chút) để cho phép tìm kiếm có dấu TV cũng như không có dấu
5/Hàm ConvertToNotSign mình có thêm dòng lệnh If sContent = "" Then Exit Function để tránh lỗi trong trường hợp này
Download Demo
Chúc Vui!
Cho bạn 01 thanks, nhân tiện cho mình hỏi mấy dòng lệnh case 272,... những số này là đại diện cho các dấu của chuỗi phải không ? Có những dòng như
Case 273
sConvert = sConvert & "d". Để làm gì nhỉ sao lại nối thêm với những chữ cái đó nữa -
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
Xuân Thanh > 17-04-14, 05:37 PM
Nói thêm về hàm ConvertToNotSign. Hàm này chỉ thực hiện chuyển đổi cho font Unicode.Vì thế các giá trị số như bạn thấy trong hàm là Char Code của các chữ. Ví dụ 272 là chữ Đ, 273 là chữ đ, 224 là chữ á....
Thân mến -
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
vulhu06 > 17-04-14, 08:09 PM
-
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
changkhoonline77 > 20-04-14, 05:53 PM
Hàm ConvertToNotSign của Xuân Thanh rất hay.
Cho mình hỏi giả sử tên là "Phan Xuân Thanh", mình gõ "Phan Thanh" chứ không phải "Xuan Thanh" hay " Phan Xuan" cũng ra Phan Xuân Thanh thì sửa code bên dưới như thế nào mọi người?
str1 = "AND (ConvertToNotSign(Table_Company_profiles.Company) like '" & "*" & ConvertToNotSign(Nz([Text1], "")) & "*" & "')" -
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
MTNQ > 21-04-14, 07:11 PM
(17-04-14, 05:37 PM)Xuân Thanh Đã viết: Nói thêm về hàm ConvertToNotSign. Hàm này chỉ thực hiện chuyển đổi cho font Unicode.
Cảm ơn Mod Xuân Thanh nhé, mình quên mất không nói rõ điểm này (Sorry các bạn)
Bản Demo trên chỉ là ví dụ minh họa thui, trên thực tế ta cần biến tấu một cách linh hoạt hơn
VD sau đây mình mình cho phép 4 lựa chọn khác nhau khi tìm kiếm:
1/Tìm kiếm có phân biệt chữ hoa và chữ thường
2/Tìm kiếm không phân biệt chữ hoa và chữ thường, phân biệt Có dấu và không có dấu TV
3/Tìm kiếm không phân biệt chữ hoa và chữ thường, Không phân biệt Có dấu và không dấu TV
4/Tìm tất cả các mẩu tin có các từ đã nhập cách nhau bởi khoảng trắng như yêu cầu của bạn changkhoonline77 (VD muốn tìm tên Huỳnh Văn Phát bạn có thể nhâp "h v p" hoặc "huynh phat")
Trong file VD mình đã nạp sẵn 60000 mẩu tin để test về tốc độ cho mỗi kiểu tìm kiếm, các bạn xem thử nhé
Demo Search Records 2 -
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
changkhoonline77 > 22-04-14, 07:12 PM
Quá hay đó MatTroiNguQuen. Cảm ơn nhiều.
Demo trên còn xếp được những record nào gần giống nhất xếp trên mới ghê chứ. Gần giống google rồi.
Bạn mà làm được như thế này nữa thì tuyệt. Chỉ 1 textbox mà có thể tìm kiếm tất cả các field luôn thì như google rối.
Ví dụ:
[img]![[Hình: Capture_zpsee1c88ab.png]](http://i834.photobucket.com/albums/zz262/changkhoonline77/Capture_zpsee1c88ab.png)
[/img]
thay vì gõ nội dung cần tìm ở những textbox khác nhau để tìm chính xác nhất thì chỉ cần gõ nội dung ở 1 text thì như thế nào?
P/s: được voi đòi tiên. -
RE: Tìm kiếm text nhưng không kiểm tra dấu tiếng việt
MTNQ > 28-04-14, 02:37 AM
(22-04-14, 07:12 PM)changkhoonline77 Đã viết: Quá hay đó MatTroiNguQuen. Cảm ơn nhiều.
Cảm ơn bạn!
Demo trên còn xếp được những record nào gần giống nhất xếp trên mới ghê chứ. Gần giống google rồi.
Hì, thực ra thì chưa được như bạn nói, để "xếp được những record nào gần giống nhất xếp trên" thì phải code cách khác, phức tạp hơn
(22-04-14, 07:12 PM)changkhoonline77 Đã viết: thay vì gõ nội dung cần tìm ở những textbox khác nhau để tìm chính xác nhất thì chỉ cần gõ nội dung ở 1 text thì như thế nào?
1/Bạn có thể xem ở chủ đề Tạo forms tìm kiếm nhiều đối tượng với nhiều điều kiện khác nhau bác paulsteigel có chia sẻ thủ thuật tìm kiếm rất hay
2/Mình phát triển tiếp file ví dụ ở trên theo yêu cầu của bạn, thêm Form frmSearchMulti:
Mình vừa sử dụng Query vừa dùng VBA để các bạn tiện tham khảo, bạn nào thấy VBA khó hiểu thì dùng Query cũng dc
-Đánh dấu vào các Check box dể chọn các trường cần tìm
-Ô "Tìm kiếm tự động:" sử dụng sự kiện On Change nên bạn thử nhập vào vài từ để tìm kiếm (dùng Query)
-Ô "Nhập từ cần tìm :" bạn nhập chuỗi cần tìm rồi bấm nút Search (dùng VBA)
File Download:
Demo
![[Hình: Capture_zpsee1c88ab.png]](http://s834.photobucket.com/user/changkhoonline77/media/Capture_zpsee1c88ab.png.html)