Set and get the lock type : Lock « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Lock

Set and get the lock type

 

Sub SetAndGetLocking(strLockType As String)
    Dim intLockIndex As Integer
    Dim strLockDesc As String
    Select Case strLockType
        Case "Optimistic"
            intLockIndex = 6
        Case "Exclusive"
            intLockIndex = 1
        Case "Pessimistic"
            intLockIndex = 2
        Case Else
            intLockIndex = -1
    End Select
    If intLockIndex <> -1 Then
        Application.SetOption "Default Record Locking", intLockIndex
    End If
    Select Case Application.GetOption("Default Record Locking")
        Case 0
            MsgBox "The default locking method is optimistic."
        Case 1
            MsgBox "The default locking method is exclusive."
        Case 2
            MsgBox "The default locking method is pessimistic."
    End Select

End Sub

 

Related examples in the same category