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/Application.xba | |
parent | de5222082f6652a0ff8715ad9e908b45e893db64 (diff) |
Access2Base - Use Empty() builtin function
... i.o. uninitialized variable
Change-Id: I732705df11ea25c2b106d542f9e97f3f32cc9867
Diffstat (limited to 'wizards/source/access2base/Application.xba')
-rw-r--r-- | wizards/source/access2base/Application.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 037d54b5091e..46cb24afac2d 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -734,13 +734,13 @@ Public Function Controls(ByVal Optional pvObject As Variant, Optional ByVal pvIn ' If no pvIndex argument, return a Collection type If _ErrorHandler() Then On Local Error Goto Error_Function -Dim vObject As Object, vEMPTY As variant +Dim vObject As Object Const cstThisSub = "Controls" Utils._SetCalledSub(cstThisSub) If IsMissing(pvObject) Then Call _TraceArguments() If IsNull(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments() - Controls = vEMPTY + Controls = EMPTY If VarType(pvObject) = vbString Then Set vObject = Forms(pvObject) |