Tạo mã GUIDs trong VBA Access

• Vba Access kết nối với Store Procedure
• Mở form và gọi sự kiện 1 nút lệnh vba access

GUID là viết tắt của từ gì ? Cụm từ được viết tắt bằng GUID là “Globally Unique Identifier”.

Mã định danh duy nhất toàn cầu

 Code VBA

Function GUID$(Optional lowercase As Boolean, Optional parens As Boolean)
    Dim k&, h$
    GUID = Space(36)
    For k = 1 To Len(GUID)
        Randomize
        Select Case k
            Case 9, 14, 19, 24: h = "-"
            Case 15:            h = "4"
            Case 20:            h = Hex(Rnd * 3 + 8)
            Case Else:          h = Hex(Rnd * 15)
        End Select
        Mid$(GUID, k, 1) = h
    Next
    If lowercase Then GUID = LCase$(GUID)
    If parens Then GUID = "{" & GUID & "}"
End Function