diff options
Diffstat (limited to 'wizards/source/access2base/Application.xba')
-rw-r--r-- | wizards/source/access2base/Application.xba | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index f821cf270519..3bc2837aac2a 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -217,15 +217,20 @@ Const cstSepar = "!" Set vAllDialogs = Nothing - Set vCurrentDocument = _A2B_.CurrentDocument + Set vCurrentDocument = Nothing + If Not IsNull(_A2B_.CurrentDocument) Then + Set vCurrentDocument = _A2B_.CurrentDocument.Document + ElseIf Not IsNull(ThisComponent) Then + Set vCurrentDocument = ThisComponent + End If If IsNull(vCurrentDocument) Then Set oDocLibraries = Nothing vDocLibraries = Array() Else - Set oDocLibraries = _A2B_.CurrentDocument.Document.DialogLibraries ' ThisComponent.DialogLibraries + Set oDocLibraries = vCurrentDocument.DialogLibraries vDocLibraries = oDocLibraries.getElementNames() End If - Set oMacLibraries = DialogLibraries + Set oMacLibraries = GlobalScope.DialogLibraries vMacLibraries = oMacLibraries.getElementNames() 'Remove Access2Base from the list If _A2B_.ExcludeA2B Then |