Skip to content

C
core
Kaydet (Commit) e2a1e222 authored tarafından Jean-Pierre Ledure's avatar Jean-Pierre Ledure
Dosyalara gözat
Seçenekler

Access2Base - Use Empty() builtin function 

... i.o. uninitialized variable

Change-Id: I732705df11ea25c2b106d542f9e97f3f32cc9867
üst de522208
Hide whitespace changes
Inline Side-by-side
Showing with 52 additions and 53 deletions
wizards/source/access2base/Application.xba
Dosyayı görüntüle @ e2a1e222
...@@ -734,13 +734,13 @@ Public Function Controls(ByVal Optional pvObject As Variant, Optional ByVal pvIn ...@@ -734,13 +734,13 @@ Public Function Controls(ByVal Optional pvObject As Variant, Optional ByVal pvIn
' If no pvIndex argument, return a Collection type ' If no pvIndex argument, return a Collection type
If _ErrorHandler() Then On Local Error Goto Error_Function If _ErrorHandler() Then On Local Error Goto Error_Function
Dim vObject As Object, vEMPTY As variant Dim vObject As Object
Const cstThisSub = "Controls" Const cstThisSub = "Controls"
Utils._SetCalledSub(cstThisSub) Utils._SetCalledSub(cstThisSub)
If IsMissing(pvObject) Then Call _TraceArguments() If IsMissing(pvObject) Then Call _TraceArguments()
If IsNull(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments() If IsNull(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments()
Controls = vEMPTY Controls = EMPTY
If VarType(pvObject) = vbString Then If VarType(pvObject) = vbString Then
Set vObject = Forms(pvObject) Set vObject = Forms(pvObject)
......
wizards/source/access2base/Control.xba
Dosyayı görüntüle @ e2a1e222
...@@ -1381,10 +1381,10 @@ REM ---------------------------------------------------------------------------- ...@@ -1381,10 +1381,10 @@ REM ----------------------------------------------------------------------------
Private Function _PropertyGet(ByVal psProperty As String, ByVal Optional pvIndex As Variant) As Variant Private Function _PropertyGet(ByVal psProperty As String, ByVal Optional pvIndex As Variant) As Variant
' Return property value of the psProperty property name ' 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 If _ErrorHandler() Then On Local Error Goto Error_Function
Utils._SetCalledSub("Control.get" & psProperty) Utils._SetCalledSub("Control.get" & psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
'Check Index argument 'Check Index argument
Dim iArgNr As Integer Dim iArgNr As Integer
...@@ -1759,7 +1759,7 @@ Dim vSelection As Variant, sSelectedText As String ...@@ -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, "StringItemList") Then Goto Trace_Error
If Not Utils._hasUNOProperty(ControlModel, "SelectedItems") Then Goto Trace_Error If Not Utils._hasUNOProperty(ControlModel, "SelectedItems") Then Goto Trace_Error
If UBound(ControlModel.SelectedItems) > 0 Then ' Several items selected 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 Else ' Mono selection
Select Case _ParentType Select Case _ParentType
Case CTLPARENTISDIALOG Case CTLPARENTISDIALOG
...@@ -1768,7 +1768,7 @@ Dim vSelection As Variant, sSelectedText As String ...@@ -1768,7 +1768,7 @@ Dim vSelection As Variant, sSelectedText As String
If lListIndex > -1 And lListIndex <= UBound(ControlModel.StringItemList) Then If lListIndex > -1 And lListIndex <= UBound(ControlModel.StringItemList) Then
vGet = ControlModel.StringItemList(lListIndex) vGet = ControlModel.StringItemList(lListIndex)
Else Else
vGet = vEMPTY vGet = EMPTY
End If End If
End If End If
Case Else Case Else
...@@ -1838,15 +1838,15 @@ Exit_Function: ...@@ -1838,15 +1838,15 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Trace_Error_Index: Trace_Error_Index:
TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty) TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, "Control._PropertyGet", Erl) TraceError(TRACEABORT, Err, "Control._PropertyGet", Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function ' _PropertyGet V0.9.1 End Function ' _PropertyGet V0.9.1
......
wizards/source/access2base/DataDef.xba
Dosyayı görüntüle @ e2a1e222
...@@ -477,8 +477,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant ...@@ -477,8 +477,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant
Dim cstThisSub As String Dim cstThisSub As String
cstThisSub = Utils._PCase(_Type) cstThisSub = Utils._PCase(_Type)
Utils._SetCalledSub(cstThisSub & ".get" & psProperty) Utils._SetCalledSub(cstThisSub & ".get" & psProperty)
Dim vEMPTY As Variant, sSql As String, sVerb As String, iType As Integer Dim sSql As String, sVerb As String, iType As Integer
_PropertyGet = vEMPTY _PropertyGet = EMPTY
If Not hasProperty(psProperty) Then Goto Trace_Error If Not hasProperty(psProperty) Then Goto Trace_Error
Select Case UCase(psProperty) Select Case UCase(psProperty)
...@@ -517,11 +517,11 @@ Exit_Function: ...@@ -517,11 +517,11 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, cstThisSub & "._PropertyGet", Erl) TraceError(TRACEABORT, Err, cstThisSub & "._PropertyGet", Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function ' _PropertyGet End Function ' _PropertyGet
......
wizards/source/access2base/Database.xba
Dosyayı görüntüle @ e2a1e222
...@@ -1657,8 +1657,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant ...@@ -1657,8 +1657,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant
If _ErrorHandler() Then On Local Error Goto Error_Function If _ErrorHandler() Then On Local Error Goto Error_Function
Utils._SetCalledSub("Database.get" & psProperty) Utils._SetCalledSub("Database.get" & psProperty)
Dim vEMPTY As Variant
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase("Connect") Case UCase("Connect")
...@@ -1679,11 +1679,11 @@ Exit_Function: ...@@ -1679,11 +1679,11 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, "Database._PropertyGet", Erl) TraceError(TRACEABORT, Err, "Database._PropertyGet", Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function ' _PropertyGet End Function ' _PropertyGet
......
wizards/source/access2base/Dialog.xba
Dosyayı görüntüle @ e2a1e222
...@@ -565,8 +565,7 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant ...@@ -565,8 +565,7 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant
Utils._SetCalledSub("Dialog.get" & psProperty) Utils._SetCalledSub("Dialog.get" & psProperty)
'Execute 'Execute
Dim vEMPTY As Variant _PropertyGet = EMPTY
_PropertyGet = vEMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase("Name"), UCase("IsLoaded") Case UCase("Name"), UCase("IsLoaded")
...@@ -599,15 +598,15 @@ Exit_Function: ...@@ -599,15 +598,15 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Trace_Error_Dialog: Trace_Error_Dialog:
TraceError(TRACEFATAL, ERRDIALOGNOTSTARTED, Utils._CalledSub(), 0, 1, _Name) TraceError(TRACEFATAL, ERRDIALOGNOTSTARTED, Utils._CalledSub(), 0, 1, _Name)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, "Dialog._PropertyGet", Erl) TraceError(TRACEABORT, Err, "Dialog._PropertyGet", Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function ' _PropertyGet End Function ' _PropertyGet
......
wizards/source/access2base/Event.xba
Dosyayı görüntüle @ e2a1e222
...@@ -420,8 +420,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant ...@@ -420,8 +420,8 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant
If _ErrorHandler() Then On Local Error Goto Error_Function If _ErrorHandler() Then On Local Error Goto Error_Function
Utils._SetCalledSub("Event.get" & psProperty) Utils._SetCalledSub("Event.get" & psProperty)
Dim vEMPTY As Variant
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase("ButtonLeft") Case UCase("ButtonLeft")
...@@ -486,11 +486,11 @@ Exit_Function: ...@@ -486,11 +486,11 @@ Exit_Function:
Trace_Error: Trace_Error:
' Errors are not displayed to avoid display infinite cycling ' Errors are not displayed to avoid display infinite cycling
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, False, psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, False, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, "Event._PropertyGet", Erl) TraceError(TRACEABORT, Err, "Event._PropertyGet", Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function ' _PropertyGet V1.1.0 End Function ' _PropertyGet V1.1.0
</script:module> </script:module>
\ No newline at end of file
wizards/source/access2base/Field.xba
Dosyayı görüntüle @ e2a1e222
...@@ -398,12 +398,12 @@ Dim cstThisSub As String ...@@ -398,12 +398,12 @@ Dim cstThisSub As String
If Not hasProperty(psProperty) Then Goto Trace_Error If Not hasProperty(psProperty) Then Goto Trace_Error
Dim vEMPTY As Variant, bCond1 As Boolean, bCond2 As Boolean, vValue As Variant, oValue As Object, sValue As String Dim bCond1 As Boolean, bCond2 As Boolean, vValue As Variant, oValue As Object, sValue As String
Dim oSize As Object, lSize As Long, bNullable As Boolean, bNull As Boolean Dim oSize As Object, lSize As Long, bNullable As Boolean, bNull As Boolean
Const cstMaxTextLength = 65535 Const cstMaxTextLength = 65535
Const cstMaxBinlength = 2 * 65535 Const cstMaxBinlength = 2 * 65535
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase(&quot;DataType&quot;) Case UCase(&quot;DataType&quot;)
...@@ -490,7 +490,7 @@ Const cstMaxBinlength = 2 * 65535 ...@@ -490,7 +490,7 @@ Const cstMaxBinlength = 2 * 65535
End If End If
oSize.closeInput() oSize.closeInput()
Else Else
_PropertyGet = vEMPTY _PropertyGet = EMPTY
End If End If
Case UCase(&quot;Name&quot;) Case UCase(&quot;Name&quot;)
_PropertyGet = _Name _PropertyGet = _Name
...@@ -594,15 +594,15 @@ Exit_Function: ...@@ -594,15 +594,15 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Trace_Length: Trace_Length:
TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(lSize, &quot;GetChunk&quot;)) TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(lSize, &quot;GetChunk&quot;))
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, cstThisSub, Erl) TraceError(TRACEABORT, Err, cstThisSub, Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function &apos; _PropertyGet V1.1.0 End Function &apos; _PropertyGet V1.1.0
......
wizards/source/access2base/Form.xba
Dosyayı görüntüle @ e2a1e222
...@@ -845,10 +845,10 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant ...@@ -845,10 +845,10 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant
Utils._SetCalledSub(&quot;Form.get&quot; &amp; psProperty) Utils._SetCalledSub(&quot;Form.get&quot; &amp; psProperty)
&apos;Execute &apos;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 Dim i As Integer, oObject As Object
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase(&quot;Name&quot;), UCase(&quot;IsLoaded&quot;) Case UCase(&quot;Name&quot;), UCase(&quot;IsLoaded&quot;)
...@@ -937,15 +937,15 @@ Exit_Function: ...@@ -937,15 +937,15 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Trace_Error_Form: Trace_Error_Form:
TraceError(TRACEFATAL, ERRFORMNOTOPEN, Utils._CalledSub(), 0, 1, _Name) TraceError(TRACEFATAL, ERRFORMNOTOPEN, Utils._CalledSub(), 0, 1, _Name)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, &quot;Form._PropertyGet&quot;, Erl) TraceError(TRACEABORT, Err, &quot;Form._PropertyGet&quot;, Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function &apos; _PropertyGet End Function &apos; _PropertyGet
......
wizards/source/access2base/OptionGroup.xba
Dosyayı görüntüle @ e2a1e222
...@@ -216,9 +216,9 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant ...@@ -216,9 +216,9 @@ Private Function _PropertyGet(ByVal psProperty As String) As Variant
Utils._SetCalledSub(&quot;OptionGroup.get&quot; &amp; psProperty) Utils._SetCalledSub(&quot;OptionGroup.get&quot; &amp; psProperty)
&apos;Execute &apos;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 Dim iValue As Integer, i As Integer
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase(&quot;Count&quot;) Case UCase(&quot;Count&quot;)
_PropertyGet = _Count _PropertyGet = _Count
...@@ -244,15 +244,15 @@ Exit_Function: ...@@ -244,15 +244,15 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Trace_Error_Index: Trace_Error_Index:
TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty) TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, &quot;OptionGroup._PropertyGet&quot;, Erl) TraceError(TRACEABORT, Err, &quot;OptionGroup._PropertyGet&quot;, Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function &apos; _PropertyGet End Function &apos; _PropertyGet
......
wizards/source/access2base/Recordset.xba
Dosyayı görüntüle @ e2a1e222
...@@ -1135,8 +1135,7 @@ Dim cstThisSub As String ...@@ -1135,8 +1135,7 @@ Dim cstThisSub As String
cstThisSub = &quot;Recordset.get&quot; cstThisSub = &quot;Recordset.get&quot;
Utils._SetCalledSub(cstThisSub &amp; psProperty) Utils._SetCalledSub(cstThisSub &amp; psProperty)
Dim vEMPTY As Variant _PropertyGet = EMPTY
_PropertyGet = vEMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase(&quot;AbsolutePosition&quot;) Case UCase(&quot;AbsolutePosition&quot;)
...@@ -1203,7 +1202,7 @@ Exit_Function: ...@@ -1203,7 +1202,7 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Trace_Forward: Trace_Forward:
TraceError(TRACEFATAL, ERRRECORDSETFORWARD, Utils._CalledSub(), 0) TraceError(TRACEFATAL, ERRRECORDSETFORWARD, Utils._CalledSub(), 0)
...@@ -1213,7 +1212,7 @@ Trace_Closed: ...@@ -1213,7 +1212,7 @@ Trace_Closed:
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, cstThisSub &amp; &quot;._PropertyGet&quot;, Erl) TraceError(TRACEABORT, Err, cstThisSub &amp; &quot;._PropertyGet&quot;, Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function &apos; _PropertyGet End Function &apos; _PropertyGet
......
wizards/source/access2base/SubForm.xba
Dosyayı görüntüle @ e2a1e222
...@@ -570,8 +570,8 @@ Dim iArgNr As Integer ...@@ -570,8 +570,8 @@ Dim iArgNr As Integer
End If End If
&apos;Execute &apos;Execute
Dim oDatabase As Object, vBookmark As Variant, vEMPTY As Variant Dim oDatabase As Object, vBookmark As Variant
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Select Case UCase(psProperty) Select Case UCase(psProperty)
Case UCase(&quot;AllowAdditions&quot;) Case UCase(&quot;AllowAdditions&quot;)
...@@ -652,15 +652,15 @@ Exit_Function: ...@@ -652,15 +652,15 @@ Exit_Function:
Exit Function Exit Function
Trace_Error: Trace_Error:
TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty) TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Trace_Error_Index: Trace_Error_Index:
TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty) TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
Goto Exit_Function Goto Exit_Function
Error_Function: Error_Function:
TraceError(TRACEABORT, Err, &quot;SubForm._PropertyGet&quot;, Erl) TraceError(TRACEABORT, Err, &quot;SubForm._PropertyGet&quot;, Erl)
_PropertyGet = vEMPTY _PropertyGet = EMPTY
GoTo Exit_Function GoTo Exit_Function
End Function &apos; _PropertyGet End Function &apos; _PropertyGet
......
wizards/source/access2base/Utils.xba
Dosyayı görüntüle @ e2a1e222
...@@ -211,7 +211,7 @@ Public Function _CVar(ByRef psArg As String, ByVal Optional pbStrDate As Boolean ...@@ -211,7 +211,7 @@ Public Function _CVar(ByRef psArg As String, ByVal Optional pbStrDate As Boolean
&apos; Return values may of types Array, Long, Double, Date, Boolean, String, Null or Empty &apos; Return values may of types Array, Long, Double, Date, Boolean, String, Null or Empty
&apos; pbStrDate = True keeps dates as strings &apos; pbStrDate = True keeps dates as strings
Dim cstEscape1 As String, cstEscape2 As String, vEMPTY As Variant Dim cstEscape1 As String, cstEscape2 As String
cstEscape1 = Chr(14) &apos; Form feed used as temporary escape character for \\ cstEscape1 = Chr(14) &apos; Form feed used as temporary escape character for \\
cstEscape2 = Chr(27) &apos; ESC used as temporary escape character for \; cstEscape2 = Chr(27) &apos; ESC used as temporary escape character for \;
...@@ -242,7 +242,7 @@ Dim sArg As String, vArgs() As Variant, vVars() As Variant, i As Integer ...@@ -242,7 +242,7 @@ Dim sArg As String, vArgs() As Variant, vVars() As Variant, i As Integer
&apos; Usual case &apos; Usual case
Select Case True Select Case True
Case sArg = &quot;[EMPTY]&quot; : _CVar = vEMPTY Case sArg = &quot;[EMPTY]&quot; : _CVar = EMPTY
Case sArg = &quot;[NULL]&quot; Or sArg = &quot;[VARIANT]&quot; : _CVar = Null Case sArg = &quot;[NULL]&quot; Or sArg = &quot;[VARIANT]&quot; : _CVar = Null
Case sArg = &quot;[OBJECT]&quot; : _CVar = Nothing Case sArg = &quot;[OBJECT]&quot; : _CVar = Nothing
Case sArg = &quot;[TRUE]&quot; : _CVar = True Case sArg = &quot;[TRUE]&quot; : _CVar = True
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment