diff options
Diffstat (limited to 'wizards/source/access2base/Recordset.xba')
| -rw-r--r-- | wizards/source/access2base/Recordset.xba | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index cc46790532d9..0dcb682157eb 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -16,8 +16,8 @@ REM --- CLASS ROOT FIELDS --- REM ----------------------------------------------------------------------------------------------------------------------- Private _Type As String ' Must be RECORDSET +Private _This As Object ' Workaround for absence of This builtin function Private _Name As String ' Unique, generated -Private _This As Object Private _Fields() As Variant Private _ParentName As String Private _ParentType As String @@ -51,8 +51,8 @@ REM --- CONSTRUCTORS / DESTRUCTORS --- REM ----------------------------------------------------------------------------------------------------------------------- Private Sub Class_Initialize() _Type = OBJRECORDSET - _Name = "" Set _This = Nothing + _Name = "" _Fields = Array() _ParentName = "" Set _ParentDatabase = Nothing @@ -496,6 +496,7 @@ Dim i As Integer, oFields As Object, iIndex As Integer ' No argument, return a collection If IsMissing(pvIndex) Then Set oObject = New Collect + Set oObject._This = oObject oObject._CollType = COLLFIELDS oObject._ParentType = OBJRECORDSET oObject._ParentName = _Name @@ -538,6 +539,7 @@ Dim i As Integer, oFields As Object, iIndex As Integer ' Otherwise create new field object Else Set oObject = New Field + Set oObject._This = oObject oObject._Name = sObjectName Set oObject.Column = oFields.getByName(sObjectName) If Utils._hasUNOProperty(oObject.Column, "Precision") Then oObject._Precision = oObject.Column.Precision |