diff options
| -rw-r--r-- | wizards/source/access2base/Database.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 69988fb4c9af..46592218e1f2 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -228,7 +228,7 @@ Const cstThisSub = "Database.Close" If _DbConnect <> DBCONNECTANY Then Goto Error_NotApplicable With Connection - If Utils.hasUNOMethod(Connection, "flush") Then .flush + If Utils._hasUNOMethod(Connection, "flush") Then .flush .close() .dispose() End With diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index 161b544a87fe..447cd7736856 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -275,6 +275,7 @@ Const cstProgressMeterLimit = 100 _ConvertDataDescriptor oSourceCol, oSourceDatabase._RDBMS, oTargetCol, oDatabase oTarget.Columns.appendByDescriptor(oTargetCol) Next i + ' Copy keys Set oSourceKeys = oSourceTable.Keys Set oTargetKey = oTarget.Keys.createDataDescriptor() |