From fc45d4ae3ab0fb42739571df97bd2cdd46341467 Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Sat, 25 Aug 2018 15:19:50 +0200 Subject: Access2Base - Fix typo Typo error in commit f903dd5e21265e0b520c312bc41cd65a1ab74851 Change-Id: I3c770296d1d4063c6bd3190eb90df0389ecf8f26 --- wizards/source/access2base/Database.xba | 2 +- wizards/source/access2base/DoCmd.xba | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'wizards/source/access2base') 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() -- cgit