diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/CommandBarControl.xba | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/wizards/source/access2base/CommandBarControl.xba b/wizards/source/access2base/CommandBarControl.xba index a6bdcbc577e6..286dc07daa6d 100644 --- a/wizards/source/access2base/CommandBarControl.xba +++ b/wizards/source/access2base/CommandBarControl.xba @@ -152,24 +152,25 @@ Const cstThisSub = "CommandBarControl.Execute" Utils._SetCalledSub(cstThisSub) Dim sExecute As String - Execute = False + + Execute = True sExecute = _GetPropertyValue(_Element, "CommandURL", "") Select Case True - Case sExecute = "" + Case sExecute = "" : Execute = False Case _IsLeft(sExecute, ".uno:") Execute = DoCmd.RunCommand(sExecute) Case _IsLeft(sExecute, "vnd.sun.star.script:") Execute = Utils._RunScript(sExecute, Array(Nothing)) Case Else End Select - + Exit_Function: Utils._ResetCalledSub(cstThisSub) Exit Function Error_Function: TraceError(TRACEABORT, Err, cstThisSub, Erl) - Reset = False + Execute = False GoTo Exit_Function End Function ' Execute V1.3.0 |