diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2016-12-27 14:40:08 +0100 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-01-12 11:40:49 +0100 |
commit | e2a1e22288a4fbe0681a8e33d25816f80799e687 (patch) | |
tree | c006763f829ecccdf5b5a1de43a58963d6d237de /wizards/source/access2base/Recordset.xba | |
parent | de5222082f6652a0ff8715ad9e908b45e893db64 (diff) |
Access2Base - Use Empty() builtin function
... i.o. uninitialized variable
Change-Id: I732705df11ea25c2b106d542f9e97f3f32cc9867
Diffstat (limited to 'wizards/source/access2base/Recordset.xba')
-rw-r--r-- | wizards/source/access2base/Recordset.xba | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index 81061bdad875..d04f2e6bf382 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -1135,8 +1135,7 @@ Dim cstThisSub As String cstThisSub = "Recordset.get" Utils._SetCalledSub(cstThisSub & psProperty) -Dim vEMPTY As Variant - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Select Case UCase(psProperty) Case UCase("AbsolutePosition") @@ -1203,7 +1202,7 @@ Exit_Function: Exit Function Trace_Error: TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Trace_Forward: TraceError(TRACEFATAL, ERRRECORDSETFORWARD, Utils._CalledSub(), 0) @@ -1213,7 +1212,7 @@ Trace_Closed: Goto Exit_Function Error_Function: TraceError(TRACEABORT, Err, cstThisSub & "._PropertyGet", Erl) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY GoTo Exit_Function End Function ' _PropertyGet |