Nhờ sửa code của Form tìm kiếm cho phù hợp (1 người xem)

[hoangquanghn]

Em có cái Form tim kiếm dữ liệu em nhờ các anh chị GPE sửa giúp e cho hoàn thiện.
Mục đích là khi đánh ký tự tìm kiếm sẽ hiện đầy đủ thông số bảng Excel trên Form này
em xin chân thành cảm ơn

 

[leonguyenz]

Em có cái Form tim kiếm dữ liệu em nhờ các anh chị GPE sửa giúp e cho hoàn thiện.
Mục đích là khi đánh ký tự tìm kiếm sẽ hiện đầy đủ thông số bảng Excel trên Form này
em xin chân thành cảm ơn

Xem lại trong file nhé, có gì thắc mắc cứ gửi bài và file đính kèm lên.

 

[hoangquanghn]

Cảm ơn anh đã giúp đỡ em.
Anh có thể sửa cho em thêm 1 chút ở file là
1.khi tìm kiếm theo số thửa VD: số thửa tìm là 15 thì chỉ có danh sách liên quan thửa 15 xuất hiện còn những danh sách khác liên quan như 155 hay 151 không xuất hiện.
2.Khi tìm kiếm theo tên thì không phân biết chữ hoa chữ thường

 

[viehoai]

Cảm ơn anh đã giúp đỡ em.
Anh có thể sửa cho em thêm 1 chút ở file là
1.khi tìm kiếm theo số thửa VD: số thửa tìm là 15 thì chỉ có danh sách liên quan thửa 15 xuất hiện còn những danh sách khác liên quan như 155 hay 151 không xuất hiện.
2.Khi tìm kiếm theo tên thì không phân biết chữ hoa chữ thường

Bạ sửa code của Private Sub TextBox1_Change() như sau:
1. Thay dòng code FilterText = "*" & TextBox1 & "*"
Thành:
If Me.OptionButton1 Then
FilterText = TextBox1
Else
FilterText = "*" & TextBox1 & "*"
End If
2. Thay dòng code If pri_ArrData(r, pri_Col) Like FilterText Then
Thành: If UCase(pri_ArrData(r, pri_Col)) Like UCase(FilterText) Then

 

[hoangquanghn]

các anh giúp e tý nữa cho nó hoàn thiện
cái bảng mới của em có STT danh sách đến 16393, nhưng danh sách hiện trên form chỉ đến 16177 nên không tìm hết danh sách

 

[hoangquanghn]

file mới của em nhờ các anh sửa lại giúp em
vì không upload được nên em phải up qua mediafire các anh download về giúp em
http://www.mediafire.com/view/829b82c2o65qysn/tong_ca_phuong1.xls