diff options
Diffstat (limited to 'wizards/source/access2base/Control.xba')
| -rw-r--r-- | wizards/source/access2base/Control.xba | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba index 9319895a50af..859e44601328 100644 --- a/wizards/source/access2base/Control.xba +++ b/wizards/source/access2base/Control.xba @@ -1381,10 +1381,10 @@ REM ---------------------------------------------------------------------------- Private Function _PropertyGet(ByVal psProperty As String, ByVal Optional pvIndex As Variant) As Variant ' Return property value of the psProperty property name -Dim vEMPTY As Variant, iArg As Integer +Dim iArg As Integer If _ErrorHandler() Then On Local Error Goto Error_Function Utils._SetCalledSub("Control.get" & psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY 'Check Index argument Dim iArgNr As Integer @@ -1759,7 +1759,7 @@ Dim vSelection As Variant, sSelectedText As String If Not Utils._hasUNOProperty(ControlModel, "StringItemList") Then Goto Trace_Error If Not Utils._hasUNOProperty(ControlModel, "SelectedItems") Then Goto Trace_Error If UBound(ControlModel.SelectedItems) > 0 Then ' Several items selected - vGet = vEMPTY ' Listbox has no value, only an array of Selected flags to identify values + vGet = EMPTY ' Listbox has no value, only an array of Selected flags to identify values Else ' Mono selection Select Case _ParentType Case CTLPARENTISDIALOG @@ -1768,7 +1768,7 @@ Dim vSelection As Variant, sSelectedText As String If lListIndex > -1 And lListIndex <= UBound(ControlModel.StringItemList) Then vGet = ControlModel.StringItemList(lListIndex) Else - vGet = vEMPTY + vGet = EMPTY End If End If Case Else @@ -1838,15 +1838,15 @@ Exit_Function: Exit Function Trace_Error: TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , 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, "Control._PropertyGet", Erl) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY GoTo Exit_Function End Function ' _PropertyGet V0.9.1 |