Tìm thủ thuật nhanh hơn với chức năng tìm trong Blog

11/14/09

Hàm Tách Tên, Họ trong Access

Mình xin giới thiệu 1 hàm tự tách tên, họ trong Access:

Public Function Split(Ten As String, Kieu As Byte)
Dim bytSpace As Byte
bytSpace = InStrRev(Ten, " ", -1)

If bytSpace = 0 Then
Split = Ten
Exit Function
End If

If Kieu = 0 Then
Split = Right(Ten, Len(Ten) - bytSpace)
Else
Split = Left(Ten, bytSpace - 1)
End If
End Function





Chú Thích: Hàm này dùng hiệu quả trong việc tách tên họ. Truyền đối số như sau:
Ten: Tên đầy đủ ( fullname)
Kiểu: 0 : Tách Tên, 1 Tách Họ

Ví Dụ:

Name=Phạm Thị Mỹ Hạnh
msgbox Split(Name,0)  => Hạnh
msgbox Split(Name,1) => Phạm Thị Mỹ
____________________________________________________________________________________
Thảo luận thêm tại: http://thuthuataccess.com/forum

3 comments:

  1. Mình đã vào Macro-Visua Basic Editor và copy đoạn mã đó vào; nhưng lúc lấy ra mình có viết như sau : trong phần Query Expry: tachten([ten],0); nhưng lại ko được. chuong trình báo lỗi là Undefined function 'tachten' in expression.
    Mong U nghien cuu và nhắn giúp mình cách sử dụng.
    YH: canhnho
    mail: canhnho@yaho.com

    ReplyDelete
  2. Bạn cho biết bạn copy vào ...nhưng là vào đâu.Nếu có thể bạn post file của bạn vào 1 host trung gian rồi gửi link cho mình được không?

    ReplyDelete
  3. cái đó giờ viết vào trong access chổ nào bạn,bạn thử gọi trong access coi thế nào, bọn mình chưa biết cách sử dụng nó

    ReplyDelete

» Hãy để lại tên, email của bạn khi bạn post comment, để mình có thể dễ dàng trả lời comment của bạn khi cần.
» Có thể sử dụng các thẻ < b>,< i>,< a>. Và các icon thông dụng trên YM