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






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

1.Use Row Level Locking
2.Default Record Locking
3.use optimictic lock to open recordset
4.Configuration of LockType as a Property of the Recordset Object
5.Set Lock Type to adLockOptimistic