AnnUnlock example for Visual Basic

Note: Also works with Access 95 and 97.

Note: This topic is for Document/Medical only.

This is also the example for AnnGetLocked method.

If an object is found to be locked, using AnnGetLocked method, the object is unlocked, by AnnUnlock, using the key "IkeStarnes".

Dim bLocked As Boolean

    bLocked = Lead1.AnnGetLocked(ghObject)
    If bLocked = True Then
        Lead1.AnnUnlock ghObject, "IkeStarnes"
    End If