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/Form.xba | |
| parent | de5222082f6652a0ff8715ad9e908b45e893db64 (diff) | |
Access2Base - Use Empty() builtin function
... i.o. uninitialized variable
Change-Id: I732705df11ea25c2b106d542f9e97f3f32cc9867
Diffstat (limited to 'wizards/source/access2base/Form.xba')
| -rw-r--r-- | wizards/source/access2base/Form.xba | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba index f890214929e0..66962d1c3de5 100644 --- a/wizards/source/access2base/Form.xba +++ b/wizards/source/access2base/Form.xba @@ -845,10 +845,10 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant Utils._SetCalledSub("Form.get" & psProperty) 'Execute -Dim oDatabase As Object, vBookmark As Variant, vEMPTY As Variant +Dim oDatabase As Object, vBookmark As Variant Dim i As Integer, oObject As Object - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Select Case UCase(psProperty) Case UCase("Name"), UCase("IsLoaded") @@ -937,15 +937,15 @@ Exit_Function: Exit Function Trace_Error: TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Trace_Error_Form: TraceError(TRACEFATAL, ERRFORMNOTOPEN, Utils._CalledSub(), 0, 1, _Name) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Error_Function: TraceError(TRACEABORT, Err, "Form._PropertyGet", Erl) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY GoTo Exit_Function End Function ' _PropertyGet |