diff options
Diffstat (limited to 'wizards/source/access2base/DoCmd.xba')
-rw-r--r-- | wizards/source/access2base/DoCmd.xba | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index fd6423963063..9b6500c30897 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -2302,15 +2302,9 @@ REM ---------------------------------------------------------------------------- Private Function _PromptFormat(ByVal pvList As Variant) As String ' Return user selection in Format dialog -Dim oDialog As Object, oDialogLib As Object, iOKCancel As Integer, oControl As Object - Set oDialogLib = DialogLibraries - If oDialogLib.hasByName("Access2BaseDev") Then - If Not oDialogLib.IsLibraryLoaded("Access2BaseDev") Then oDialogLib.loadLibrary("Access2BaseDev") - Set oDialog = CreateUnoDialog(DialogLibraries.Access2BaseDev.dlgFormat) - Else - If Not oDialogLib.IsLibraryLoaded("Access2Base") Then oDialogLib.loadLibrary("Access2Base") - Set oDialog = CreateUnoDialog(DialogLibraries.Access2Base.dlgFormat) - End If +Dim oDialog As Object, iOKCancel As Integer, oControl As Object + + Set oDialog = CreateUnoDialog(Utils._GetDialogLib().dlgFormat) oDialog.Title = _GetLabel("DLGFORMAT_TITLE") Set oControl = oDialog.Model.getByName("lblFormat") |