Báo trùng khi trùng nhà cung cấp và tên hàng hóa (1 người xem)

[Rùa Con 1080]

Chào mọi người, em có tạo form nhập danh mục hàng hóa.
Em nhờ mọi người giúp em viết code để khi nếu nhập trùng nhà cung cấp và tên hàng hóa thì báo trùng. như là nếu nhập nhà cung cấp là "Chị Thơm" và tên hang hóa là "Dầu Ăn" thì hiện MsgBox" da trung roi, ban oi!" và cũng nhờ mọi người giúp cho ghi dữ lieu tới đâu thì Border tới đó.
Chờ tin mọi người.(nhấn "Sao" hiện Form)

 

[befaint]

Dim text as string, sArr(), r as long
text=tenNCC&tenhang
sArr=vung_du_lieu (vùng chứa nhà cung cấp và tên hàng)
For r=1 to ubound(sArr,1)
if text like sArr(r,1)&sArr(r,2) then
msgbox "Thong bao trung"
'Clear textbox
'Setfocus
Exit for
end if
next r

 

[Rùa Con 1080]

Mong Anh Befaint viết hoàn chỉnh vào code của file dùm được không ah!!!(và code Border nữa Anh)

 

[befaint]

Mong Anh Befaint viết hoàn chỉnh vào code của file dùm được không ah!!!(và code Border nữa Anh)

........................

 

[NguyenthiH]

Cám Ơn Anh befaint nhiều.
Chúc Anh ngày vui.

 

[befaint]

Cám Ơn Anh befaint nhiều.
Chúc Anh ngày vui.

ủa, có gì lạ lạ.

Chúc bạn ngày vui!

 

[NguyenthiH]

Tại em thấy File này giống (Same Same) với File của em, nên em Cám Ơn Anh đã giúp cho bạn Rùa con 1080.(cũng là cho em)

 

[Rùa Con 1080]

Cám Ơn anh befaint!!!

 

[VetMini]

Dim text as string, sArr(), r as long
text=tenNCC&tenhang
sArr=vung_du_lieu (vùng chứa nhà cung cấp và tên hàng)
For r=1 to ubound(sArr,1)
if text like sArr(r,1)&sArr(r,2) then
msgbox "Thong bao trung"
'Clear textbox
'Setfocus
Exit for
end if
next r

@befaint:
Thường thường ngừoi ta so sánh bằng mã. Lý do là mã có hy vọng chính xác 99% trong khi chuỗi tên thì độ chính xác bất định (tuỳ theo mức độ nhà nghề của người nhập, trung bình thì tương đối thấp).
Nếu phải bắt buộc dùng tên thì thường ngừoi ta sử dụng 1 hàm chuẩn hoá cái phần textbox input (tối thiểu là loại bớt khoảng trắng, viết hoa tên...). Sau khi chuẩn hoá xong thì mới so sánh được.
Những phần mềm chuyên nghiệp có cả một thuật toán để tìm gần đúng tên. Nhưng đây là kỹ thuật rất cao, khong cần phải biết tới.

 

[befaint]

@befaint:
Thường thường ngừoi ta so sánh bằng mã. Lý do là mã có hy vọng chính xác 99% trong khi chuỗi tên thì độ chính xác bất định (tuỳ theo mức độ nhà nghề của người nhập, trung bình thì tương đối thấp).
Nếu phải bắt buộc dùng tên thì thường ngừoi ta sử dụng 1 hàm chuẩn hoá cái phần textbox input (tối thiểu là loại bớt khoảng trắng, viết hoa tên...). Sau khi chuẩn hoá xong thì mới so sánh được.
Những phần mềm chuyên nghiệp có cả một thuật toán để tìm gần đúng tên. Nhưng đây là kỹ thuật rất cao, khong cần phải biết tới.

Vâng anh. Em chỉ làm cho trường hợp dữ liệu trong file bài #1.

Về việc gán mã duy nhất đã nhắc nhiều rồi nhưng không thấy áp dụng... nên tùy ý họ.

Chúc anh ngày vui!

 

[Rùa Con 1080]

Cám Ơn các Anh đã chỉ giáo. Nhưng em có File phụ liệu, có tới 600 loại phụ liệu, và không đặt mã, dò theo "tên phụ liệu"(Chuỗi), mà chả thấy có gì sai. (bắng chứng là file của em phải báo số lượng tồn cho bên kế toán nữa-và bên kế toán thì người ta dùng phần mềm)

 

[Hong.Van]

Cám Ơn các Anh đã chỉ giáo. Nhưng em có File phụ liệu, có tới 600 loại phụ liệu, và không đặt mã, dò theo "tên phụ liệu"(Chuỗi), mà chả thấy có gì sai. (bắng chứng là file của em phải báo số lượng tồn cho bên kế toán nữa-và bên kế toán thì người ta dùng phần mềm)

Sao bạn không kết hợp với phòng kế toán để xin Mã vật tư của họ, để 2 bên thống nhất với nhau!

 

[VetMini]

Đã so sánh chuỗi thì là có sai sót.
Vấn đề chỉ là nếu chịu khó tìm luật chuẩn hoá trước thì sẽ giảm thiểu được sai sót.

Nếu không có chuẩn hoá thì "Nồi cơm điện" sẽ khác với "Nồi Cơm Điện" và khác với "Nồi   cơm điện"

 

[Rùa Con 1080]

Bởi vậy khi nạp danh mục, em có sử dụng hàm Proper(Hoa đầu mỗi từ) và khi xét thì dùng Trim(tb_TPL & tb_NCC).