diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2014-10-17 17:09:20 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2014-10-17 17:15:41 +0200 |
| commit | f55a0a54b235d55db3f6e839053be04bfc1ed2d4 (patch) | |
| tree | e92ef9078c0eba6069694915328f6494a8a11a18 /wizards/source/access2base/Collect.xba | |
| parent | 01552f1e77c67f70ffd879294288612f9ab64e3b (diff) | |
Access2Base - Internal redesign of root structure into a separate class module
Redesign of CurrentDb, CurrentDoc interfaces.
Creation of new Root_.xba class module.
Console logs, TempVars and Dialog collections are unchanged.
Change-Id: I573a75e8fb54b277aef84d4518cc8e5cc21d7270
Diffstat (limited to 'wizards/source/access2base/Collect.xba')
| -rw-r--r-- | wizards/source/access2base/Collect.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/access2base/Collect.xba b/wizards/source/access2base/Collect.xba index ebbf6fcc14b3..b8a722318cfd 100644 --- a/wizards/source/access2base/Collect.xba +++ b/wizards/source/access2base/Collect.xba @@ -187,7 +187,7 @@ Dim vObject As Variant, oTempVar As Object Select Case _CollType Case COLLTABLEDEFS - If Not Utils._CheckArgument(pvObject, 1, vbObject) Then Goto Exit_Function + If Not Utils._CheckArgument(pvNew, 1, vbObject) Then Goto Exit_Function Set vObject = pvNew With vObject Set odbDatabase = ._ParentDatabase @@ -206,7 +206,7 @@ Dim vObject As Variant, oTempVar As Object If Not Utils._CheckArgument(pvNew, 1, vbString) Then Goto Exit_Function If pvNew = "" Then Goto Error_Name If IsMissing(pvValue) Then Call _TraceArguments() - If Application._hasItem(COLLTEMPVARS, pvNew) Then Goto Error_Name + If _A2B_.hasItem(COLLTEMPVARS, pvNew) Then Goto Error_Name Set oTempVar = New TempVar oTempVar._Name = pvNew oTempVar._Value = pvValue @@ -252,7 +252,7 @@ Dim odbDatabase As Object, oColl As Object, vName As Variant Select Case _CollType Case COLLTABLEDEFS, COLLQUERYDEFS - If Application._CurrentDoc <> 0 Then Goto Error_NotApplicable + If _A2B_.CurrentDocIndex() <> 0 Then Goto Error_NotApplicable Set odbDatabase = Application._CurrentDb() If odbDatabase._DbConnect <> DBCONNECTBASE Then Goto Error_NotApplicable If _CollType = COLLTABLEDEFS Then Set oColl = odbDatabase.Connection.getTables() Else Set oColl = odbDatabase.Connection.getQueries() @@ -319,7 +319,7 @@ Dim oColl As Object, vName As Variant Select Case _CollType Case COLLTEMPVARS - If Not _hasItem(COLLTEMPVARS, pvName) Then Goto Error_Name + If Not _A2B_.hasItem(COLLTEMPVARS, pvName) Then Goto Error_Name _A2B_.TempVars.Remove(UCase(pvName)) Case Else Goto Error_NotApplicable |