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/OptionGroup.xba | |
| parent | de5222082f6652a0ff8715ad9e908b45e893db64 (diff) | |
Access2Base - Use Empty() builtin function
... i.o. uninitialized variable
Change-Id: I732705df11ea25c2b106d542f9e97f3f32cc9867
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
| -rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index a1177aec4399..180591ae5b76 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -216,9 +216,9 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant Utils._SetCalledSub("OptionGroup.get" & psProperty) 'Execute -Dim oDatabase As Object, vBookmark As Variant, vEMPTY As Variant +Dim oDatabase As Object, vBookmark As Variant Dim iValue As Integer, i As Integer - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Select Case UCase(psProperty) Case UCase("Count") _PropertyGet = _Count @@ -244,15 +244,15 @@ Exit_Function: Exit Function Trace_Error: TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Trace_Error_Index: TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Error_Function: TraceError(TRACEABORT, Err, "OptionGroup._PropertyGet", Erl) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY GoTo Exit_Function End Function ' _PropertyGet |