diff options
Diffstat (limited to 'wizards/source/access2base/Database.xba')
-rw-r--r-- | wizards/source/access2base/Database.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 01c56a70e480..4d7513e8ad93 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1657,8 +1657,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant If _ErrorHandler() Then On Local Error Goto Error_Function Utils._SetCalledSub("Database.get" & psProperty) -Dim vEMPTY As Variant - _PropertyGet = vEMPTY + + _PropertyGet = EMPTY Select Case UCase(psProperty) Case UCase("Connect") @@ -1679,11 +1679,11 @@ Exit_Function: Exit Function Trace_Error: TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Error_Function: TraceError(TRACEABORT, Err, "Database._PropertyGet", Erl) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY GoTo Exit_Function End Function ' _PropertyGet |