diff options
Diffstat (limited to 'wizards/source/access2base/Field.xba')
| -rw-r--r-- | wizards/source/access2base/Field.xba | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba index d08bcfbd37d6..35d5bc6bddb8 100644 --- a/wizards/source/access2base/Field.xba +++ b/wizards/source/access2base/Field.xba @@ -398,12 +398,12 @@ Dim cstThisSub As String 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 Const cstMaxTextLength = 65535 Const cstMaxBinlength = 2 * 65535 - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Select Case UCase(psProperty) Case UCase("DataType") @@ -490,7 +490,7 @@ Const cstMaxBinlength = 2 * 65535 End If oSize.closeInput() Else - _PropertyGet = vEMPTY + _PropertyGet = EMPTY End If Case UCase("Name") _PropertyGet = _Name @@ -594,15 +594,15 @@ Exit_Function: Exit Function Trace_Error: TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Trace_Length: TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(lSize, "GetChunk")) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY Goto Exit_Function Error_Function: TraceError(TRACEABORT, Err, cstThisSub, Erl) - _PropertyGet = vEMPTY + _PropertyGet = EMPTY GoTo Exit_Function End Function ' _PropertyGet V1.1.0 |