Public Function Split(Ten As String, Kieu As Byte)Dim bytSpace As BytebytSpace = InStrRev(Ten, " ", -1)If bytSpace = 0 ThenSplit = TenExit FunctionEnd IfIf Kieu = 0 ThenSplit = Right(Ten, Len(Ten) - bytSpace)ElseSplit = Left(Ten, bytSpace - 1)End IfEnd FunctionGiải thích
ublic Function Split(Ten As String, Kieu As Byte) : Ten ở đây là chuỗi bạn muốn cắt, Kieu ở đây là kiểu cắt của bạn : 0 là tách tên, khác 0 là tách họbytSpace dùng để lấy khoảng trắng cuối cùng của chuỗi.Ví dụ : Table tblDanhSach có field Name. Dữ liệu :Thiên Mỹ Sao BăngHuỳnh Thu NhạnBạn làm ra (tạo) Query mới với Table này và gõ vào công thức : Split(Name,0) 'Kết quả làBăngNhạnCòn nếu bạn gõ Split(Name,1) 'Có thể thay số 1 bằng bất cứ số nào từ 1 đến 255. Kết quảThiên Mỹ SaoHuỳnh ThuĐể đơn giản hơn bạn có thể tách ra làm 2 hàm khác nhauPublic Function TachTen(Ten As String) As StringDim bytSpace As BytebytSpace = InStrRev(Ten, " ", -1)TachTen = Right(Ten, Len(Ten) - bytSpace )End FunctionPublic Function TachHo(Ten As String) As StringDim bytSpace As BytebytSpace = InStrRev(Ten, " ", -1)If bytSpace =0 thenTachHo = TenExit FunctionEnd IfTachHo = Left(Ten, bytSpace )End Functionvà dùng hàm TachTen khi cần tách tên, TachHo khi cần tách họVí dụ : TachTen("Lê Minh Tiến") -' + '-' + '-> TiếnTachHo("Lê Minh Tiến") -' + '-' + '-> Lê Minh