Tùy chọn
Tìm tên 2 hoặc nhiều mã khách hàng, có cách nhau dấu phẩy
- Tìm tên 2 hoặc nhiều mã khách hàng, có cách nhau dấu phẩy
-
Tìm tên 2 hoặc nhiều mã khách hàng, có cách nhau dấu phẩy
dotrung > 10-10-24, 09:15 PM
Em có 1 field đã gộp các mã khách hàng cách nhau dấu phẩy (add từ dữ liệu ngoài access)
Do nhu cầu muốn lấy tên khách hàng từ table danh mục khách hàng của filed trên vào report báo cáo, nhưng chưa biết cách làm. Rất mong các anh em cao thủ hướng dẫn code giúp dotrung ạ, chân thành cảm ơn!
ví dụ : CTNLOA, CTNBET => Mong muốn : cty Long An, Cty Bến Tre -
RE: Tìm tên 2 hoặc nhiều mã khách hàng, có cách nhau dấu phẩy
ongke0711 > 10-10-24, 10:14 PM
(10-10-24, 09:15 PM)dotrung Đã viết: Em có 1 field đã gộp các mã khách hàng cách nhau dấu phẩy (add từ dữ liệu ngoài access)
Do nhu cầu muốn lấy tên khách hàng từ table danh mục khách hàng của filed trên vào report báo cáo, nhưng chưa biết cách làm. Rất mong các anh em cao thủ hướng dẫn code giúp dotrung ạ, chân thành cảm ơn!
ví dụ : CTNLOA, CTNBET => Mong muốn : cty Long An, Cty Bến Tre
Dùng hàm Split để tách chuỗi sau đó Dlookup để lấy tên Cty tương ứng.
Ví dụ:
Mã PHP:Dim arrCty As Variant, sMaCty As String, sChuoiTenCty As String, i As Long
s = "CTNLOA,CTNBET"
arrCty = Split (s,",")
sChuoiTenCy = ""
For i=1 to Ubound(arrCty)
sChuoiTenCty = sChuoiTenCty & Nz(DLookup("TenCty","tblDanhMucKH","MaKH ='" & arrCty(i) & "'"),"")) & ","
Next
sChuoiTenCty = Left(sChuoiTenCty, Len(sChuoiTenVCty)-1) -
RE: Tìm tên 2 hoặc nhiều mã khách hàng, có cách nhau dấu phẩy
dotrung > 12-10-24, 10:18 PM
Em nhờ anh ongke0711 có thể viết thành hàm được ko ạ, để em sử dụng trong query cho tiện, cảm ơn anh nhiều !
-
RE: Tìm tên 2 hoặc nhiều mã khách hàng, có cách nhau dấu phẩy
ongke0711 > 15-10-24, 11:16 AM
(12-10-24, 10:18 PM)dotrung Đã viết: Em nhờ anh ongke0711 có thể viết thành hàm được ko ạ, để em sử dụng trong query cho tiện, cảm ơn anh nhiều !
Bạn tham khảo hàm này. Trong đó tham số đầu tiên là tên field chuỗi mà bạn cần tách.
Mã PHP:Function layTenKH(ByRef fldChuoiMaKH As String, Optional delimiter As String = ",") As String
Dim arrMaKH() As String, i As Long, sChuoiTenKH As String
arrMaKH = Split(fldChuoiMaKH, ",")
For i = 0 To UBound(arrMaKH)
sChuoiTenKH = sChuoiTenKH & Nz(DLookup("TenKH", "tblDMKH", "MaKH ='" & arrMaKH(i) & "'"), "") & ", "
Next
layTenKH = Left(sChuoiTenKH, Len(sChuoiTenKH) - 2)
End Function
Ví dụ:
Mã PHP:Ds_TenKhachHang: layTenKH([chuoiMaKH])