Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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