Sửa lỗi tạo Mã và Tên khách hàng mới!

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Em có tạo 1 form ghi nhận công nợ có sử dụng code lấy dữ liệu và lọc trùng trên diễn đàn nhưng khi em mở form lên tạo mã mới lại không được.
Em chưa tìm ra nguyên nhân sửa được lỗi này, mong anh/chị diễn đàn hướng dẫn sửa lỗi giúp em ạ!

Cám ơn anh/chị đã xem file ạ!
 

File đính kèm

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Mình không thể mở được file đính kèm của bạn; . . . . .
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Cho phép mình quảng cáo đến bạn bộ mã nhân sự của mình; Nếu bạn ưng ý, mình sẽ chuyển giao

SttHọ và tênMã BPChức vụ
1BHK00Bùi Hồng KhảiĐÓNG GÓICông nhân
2BVK00Bùi Văn KhangPX ÔXYHÓATrưởng xưởng
3CVT00Chu Quang TiếnPX ÉP ĐÙNTrưởng phòng
4DJT00Dương ThắngP. KTNhân viên
5DTL00Dương Thị LuânP. TCKTNhân viên
6FBH00Đào Bá HưngĐÓNG GÓICông nhân
7FCD00Đinh Công DânP. KTNhân viên
8FKL00Đoàn Thị Khánh LinhP. KDNhân viên
9FMH00Đinh Mỹ HuyềnP. KDNhân viên
10FQF00Đặng Quốc ĐạiP. KDNhân viên
11FTH00Đào Trọng HùngTỔ KHUÔNNhân viên
12FTV00Đào Thị VânP. TCKTNhân viên
13FTV01Đặng Tuấn ViệtPX ÔXYHÓACông nhân
14FVC00Đỗ Văn CôngBỐC XẾPCông nhân PXE
15FVH00Đặng Văn HiếuBỐC XẾPCông nhân
16HAQ00Hoàng Anh QuangPX ÉP ĐÙNCông nhân PXE
17HFH00Hà Đức HậuP. KTKCS
18HHT00Hồ Hữu TâmTỔ KHUÔNTrưởng phòng
19HKA00Hà Thị Kim OanhP.TCHCTrưởng phòng
20HQK00Hoàng Quang KhánhP. TCKTNhân viên
21HTH00Hoàng Thế HảiP. KTNhân viên
22HTN00Hoàng Thị NguyệtP. TCKTKCS
23HTT00Hoàng Thanh TùngBỐC XẾPTổ trưởng
24LCT00Lê Chiến ThắngPQLKiểm soát
25LFT00Lê Đức ThịnhTỔ KHUÔNKỹ thuật
26LNH00Lê Ngọc HiếuP. TCKTTrưởng phòng
 

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Cho phép mình quảng cáo đến bạn bộ mã nhân sự của mình; Nếu bạn ưng ý, mình sẽ chuyển giao

SttHọ và tênMã BPChức vụ
1BHK00Bùi Hồng KhảiĐÓNG GÓICông nhân
2BVK00Bùi Văn KhangPX ÔXYHÓATrưởng xưởng
3CVT00Chu Quang TiếnPX ÉP ĐÙNTrưởng phòng
4DJT00Dương ThắngP. KTNhân viên
5DTL00Dương Thị LuânP. TCKTNhân viên
6FBH00Đào Bá HưngĐÓNG GÓICông nhân
7FCD00Đinh Công DânP. KTNhân viên
8FKL00Đoàn Thị Khánh LinhP. KDNhân viên
9FMH00Đinh Mỹ HuyềnP. KDNhân viên
10FQF00Đặng Quốc ĐạiP. KDNhân viên
11FTH00Đào Trọng HùngTỔ KHUÔNNhân viên
12FTV00Đào Thị VânP. TCKTNhân viên
13FTV01Đặng Tuấn ViệtPX ÔXYHÓACông nhân
14FVC00Đỗ Văn CôngBỐC XẾPCông nhân PXE
15FVH00Đặng Văn HiếuBỐC XẾPCông nhân
16HAQ00Hoàng Anh QuangPX ÉP ĐÙNCông nhân PXE
17HFH00Hà Đức HậuP. KTKCS
18HHT00Hồ Hữu TâmTỔ KHUÔNTrưởng phòng
19HKA00Hà Thị Kim OanhP.TCHCTrưởng phòng
20HQK00Hoàng Quang KhánhP. TCKTNhân viên
21HTH00Hoàng Thế HảiP. KTNhân viên
22HTN00Hoàng Thị NguyệtP. TCKTKCS
23HTT00Hoàng Thanh TùngBỐC XẾPTổ trưởng
24LCT00Lê Chiến ThắngPQLKiểm soát
25LFT00Lê Đức ThịnhTỔ KHUÔNKỹ thuật
26LNH00Lê Ngọc HiếuP. TCKTTrưởng phòng
Tuyệt vời ạ.
Bộ mã này tự động tạo mã nhân viên luôn hay sao anh ạ?
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Vâng, Ta có thể tạo mã cho toàn bộ danh sách của CQ (1)
Hay tạo mã cho từng người mới bổ sung vô CQ (2)
(1) Mình thực hiện cho bạn
(2) Mình chuyển giao cho bạn
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Cho em hỏi thêm trường hợp file của em bị lỗi gì và sửa thế nào để có thể nhập mã và tên khách hàng mới bằng form vào ạ?
Để tìm ra lỗi gì thì trước khi mở Form, bạn thử nhập 2 dòng dữ liệu như sau:

NgàyMã KHHọ tênDiễn giải Ghi nợ Ghi có
NMH00Nguyễn Minh Hồng
TMH00Trần Minh Hồng
Sau đó mở form & sẽ phát hiện ra cách mà các control hoạt động có đúng ý bạn không
Còn chuyện sửa như thế nào thì hạ hồi phân giải!
 

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Để tìm ra lỗi gì thì trước khi mở Form, bạn thử nhập 2 dòng dữ liệu như sau:

NgàyMã KHHọ tênDiễn giảiGhi nợGhi có
NMH00Nguyễn Minh Hồng
TMH00Trần Minh Hồng
Sau đó mở form & sẽ phát hiện ra cách mà các control hoạt động có đúng ý bạn không
Còn chuyện sửa như thế nào thì hạ hồi phân giải!
Theo hướng dẫn của anh, em nhập vào form excel trước nhưng userform chỉ chọn được mã khách hàng chứ không tạo được mã khách hàng mới ạ!
Anh xem lại giúp em xem lỗi ở đâu được không ạ? Cám ơn anh!

223317
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Nếu mình là bạn, thì sẽ làm vầy:
Lập danh sách khách hàng, gồm các trường [STT], [Mã KH], [HoTen], [Ngày Sinh], [Địa chỉ], [SDT],. . . .
Danh sách này để ở trang 'DMuc' cùng với các danh sách khác tương tự'

Lấy 2 cột [Mã KH] & [HoTen] làm nguồn cho ComboBox
Mình chỉ đủ khả năng giúp bạn làm mới thôi; Sửa Form của bạn thì xin miễn cho mình đi nha!
 

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Nếu mình là bạn, thì sẽ làm vầy:
Lập danh sách khách hàng, gồm các trường [STT], [Mã KH], [HoTen], [Ngày Sinh], [Địa chỉ], [SDT],. . . .
Danh sách này để ở trang 'DMuc' cùng với các danh sách khác tương tự'

Lấy 2 cột [Mã KH] & [HoTen] làm nguồn cho ComboBox
Mình chỉ đủ khả năng giúp bạn làm mới thôi; Sửa Form của bạn thì xin miễn cho mình đi nha!
Dạ em cám ơn anh đã giúp em.
Bài đã được tự động gộp:

Có anh/chị nào giúp em được vấn đề này không ạ?
 

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Bạn thao tác thử Form này lúc rỗi.
 

File đính kèm

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Bạn thao tác thử Form này lúc rỗi.
Em có ứng dụng cách tạo mã tự động của anh vào file của em nhưng lại không đúng ý em
Anh @SA_DQ có thể giúp em chỉnh sửa chút được không ạ?

Em có đính kèm cách tạo mã trong file. Anh xem giúp em nhé.

1581755694864.png
 

File đính kèm

SA_DQ

/(hông là gì!
Thành viên danh dự
Tham gia ngày
8 Tháng sáu 2006
Bài viết
6,517
Được thích
10,675
Điểm
1,860
Với tên khách hàng như vầy, thì chỉ có nước lấy số CCCD làm mã mà thôi

Loại hìnhCửa hàng/khách hàng
ShopCô Ba
Khách sạnHoàng Anh
CaféHương Đồng
Cửa hàngTuyết
SạpChị Hoàng
Cửa hàng tiện lợiHồng Thúy

& mình không thể giúp được bạn nữa đâu.
 

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Với tên khách hàng như vầy, thì chỉ có nước lấy số CCCD làm mã mà thôi

Loại hìnhCửa hàng/khách hàng
ShopCô Ba
Khách sạnHoàng Anh
CaféHương Đồng
Cửa hàngTuyết
SạpChị Hoàng
Cửa hàng tiện lợiHồng Thúy

& mình không thể giúp được bạn nữa đâu.
Hihi, cám ơn anh
 

ongke0711

Thành viên tiêu biểu
Tham gia ngày
7 Tháng chín 2006
Bài viết
477
Được thích
501
Điểm
835
Nơi ở
HCM
Bạn đã phức tạp hoá việc tạo mã này rồi. Mã phức tạp thì việc tìm kiếm theo mã cũng làm mệt mỏi hệ thống một cách lãng phí.
Dùng cách tạo mã đơn giản cho loại hình khách hàng thôi. Loại khách hàng tiêu dùng này trước đây cty tôi có cả hơn 200.000 khách, tạo theo kiểu phối hợp Tên + Stt cũng không còn ý nghĩa gì nên cứ các đơn giản mà phang vô:

SHOP --> SO
CAFE --> CF
Convenient Store --> CV

Shop Hồng --> SOKH00001
Cafe Tuyết --> CFKH00001
CH Tiện lọi Hồng Thuý --> CVKH00001
 
Lần chỉnh sửa cuối:

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Bạn đã phức tạp hoá việc tạo mã này rồi. Mã phức tạp thì việc tìm kiếm theo mã cũng làm mệt mỏi hệ thống một cách lãng phí.
Dùng cách tạo mã đơn giản cho loại hình khách hàng thôi. Loại khách hàng tiêu dùng này trước đây cty tôi có cả hơn 200.000 khách, tạo theo kiểu phối hợp Tên + Stt cũng không còn ý nghĩa gì nên cứ các đơn giản mà phang vô:

SHOP --> SO
CAFE --> CF
Convenient Store --> CV

Shop Hồng --> SOKH00001
Cafe Tuyết --> CFKH00001
CH Tiện lọi Hồng Thuý --> CVKH00001
Dạ, em sẽ xem lại ạ
 

Minh Tùng

Thành viên hoạt động
Tham gia ngày
16 Tháng ba 2014
Bài viết
103
Được thích
56
Điểm
380
Bạn thao tác thử Form này lúc rỗi.
Mã:
Function LoaiDauTV(ByVal Text As String) As String
 Dim Charcode(), ResTxt(), I As Long, Tmp As String
 
 Tmp = Text
 Charcode = Array(224, 225, 226, 227, 259, 7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, _
    7863, 273, 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879, 236, 237, 297, 7881, 7883, 242, _
        243, 244, 245, 417, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907, 249, 250, _
            361, 432, 7909, 7911, 7913, 7915, 7917, 7919, 7921, 253, 7923, 7925, 7927, 7929)
 ResTxt = Array("a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", _
    "F", "e", "e", "e", "e", "e", "e", "e", "e", "e", "e", "e", "i", "i", "i", "i", "i", "o", "o", _
        "o", "o", "o", "o", "o", "o", "o", "o", "o", "o", "o", "o", "o", "o", "o", "u", "u", "u", "u", "u", _
            "u", "u", "u", "u", "u", "u", "y", "y", "y", "y", "y")      'd'
 For I = 0 To UBound(Charcode)
    Tmp = Replace(Tmp, ChrW(Charcode(I)), ResTxt(I))
    Tmp = Replace(Tmp, UCase(ChrW(Charcode(I))), UCase(ResTxt(I)))
 Next
 LoaiDauTV = Tmp
 End Function
Hôm nay em thử lại đoạn code tách ký tự đầu của anh thì em phát hiện chữ "Đ" sẽ tách thành chữ "F"

Em có sửa lại code chổ
Mã:
ResTxt = Array("a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", _

    "F",
thành
Mã:
ResTxt = Array("a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", _

    "d",
Em thử lại thì đã đúng chữ D
Anh xem lại giúp em xem đã đúng chưa ạ

Cám ơn anh @SA_DQ



1582378103975.png
 
Top Bottom