Dò tìm khách hàng

[nvthien1967]

Chào các bạn, trong form tôi có danh sách khách hàng & mã khách hàng. Trường hợp tôi không nhớ được mã khách hàng thì có cách nào tìm thông qua tên khách hàng không? (Tôi thấy các chương trình kế toán có chức năng tìm qua mã hoặc tên ngăn gọn) Nhờ các bạn hướng dẫn.

 

[ThuNghi]

Chào các bạn, trong form tôi có danh sách khách hàng & mã khách hàng. Trường hợp tôi không nhớ được mã khách hàng thì có cách nào tìm thông qua tên khách hàng không? (Tôi thấy các chương trình kế toán có chức năng tìm qua mã hoặc tên ngăn gọn) Nhờ các bạn hướng dẫn.

Tạo listview hay listbox tham chiếu theo 2 field Makh và TenKH thì sợ nặng máy. Vậy default là Makh nếu not thì TenKH
Nếu không nhớ để tìm theo mã KH, tạo 1 nút mở DM Khách hàng ra và cho phép tìm theo tên, thậm chí mở luôn Sh DMKH và Ctr F. Còn cụ thể thì ...

 

[hoangdanh282vn]

Theo em thì ta viết một macro tìm và trả về danh sách thòa mãn đk dò tìm, sau đó đưa vào listbox hay combobox để ta chọn.

 

[Mr Okebab]

Chào các bạn, trong form tôi có danh sách khách hàng & mã khách hàng. Trường hợp tôi không nhớ được mã khách hàng thì có cách nào tìm thông qua tên khách hàng không? (Tôi thấy các chương trình kế toán có chức năng tìm qua mã hoặc tên ngăn gọn) Nhờ các bạn hướng dẫn.

Bạn tham khảo File này nhé: Dò tìm khách hàng

Thân!

 

[sealand]

Bạn lập 1 Macro và sử dụng đoạn code gợi ý như sau là được (Giả sử bạn có sheet Ma_KH và chứa cột Ma, Ten ):

chon=inputbox("Neu chon theo ma nhap so 1, ten so 2:")
select case chon
case is:=1
sheets("Ma_KH").Active
sheets("Ma_KH").AutoFilter Field:=1, Criteria1:=tam&"*" 'Lọc mã bắt đàu bằng ABC
case is:=2
sheets("Ma_KH").Active
sheets("Ma_KH").AutoFilter Field:=2, Criteria1:="=*"&tam&"*"'Lọc tên có chữ Hong
case else
msgbox "Ban chon sai quy dinh"
end select

còn ABC hay Hồng thì bạn cứ nhâp vào ô ma và gán vào biến tam chẳng hạn, ở đây mình đồng tình với ThuNghi là nhập trực tiếp tránh nặng nề (Nếu cần gửi File giả định lên)

 

[tong hop]

mình đã tải về, chưa xem nhưng cũng xin cám ơn