diff options
Diffstat (limited to 'wizards/source/access2base/Event.xba')
| -rw-r--r-- | wizards/source/access2base/Event.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/access2base/Event.xba b/wizards/source/access2base/Event.xba index de6aa2a6e4c6..32ec17cc3937 100644 --- a/wizards/source/access2base/Event.xba +++ b/wizards/source/access2base/Event.xba @@ -420,8 +420,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant If _ErrorHandler() Then On Local Error Goto Error_Function Utils._SetCalledSub("Event.get" & psProperty) -Dim vEMPTY As Variant - _PropertyGet = vEMPTY + + _PropertyGet = EMPTY Select Case UCase(psProperty) Case UCase("ButtonLeft") @@ -486,11 +486,11 @@ Exit_Function: Trace_Error: ' Errors are not displayed to avoid display infinite cycling TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, False, psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Error_Function: TraceError(TRACEABORT, Err, "Event._PropertyGet", Erl) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY GoTo Exit_Function End Function ' _PropertyGet V1.1.0 </script:module>
\ No newline at end of file |