diff options
Diffstat (limited to 'wizards/source/access2base/Application.xba')
-rw-r--r-- | wizards/source/access2base/Application.xba | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index ae7483b0ac8e..95f81dffb5ea 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1112,7 +1112,7 @@ Public Function OpenDatabase ( _ ' Return a database object based on input arguments: ' Call template: -' Call OpenConnection("... databaseURL ..."[, "", "", True/False]) +' Call OpenDatabase("... databaseURL ..."[, "", "", True/False]) ' pvDatabaseURL maby be the name of a registered database or the URL of the targeted .odb file ' Might be called from any AOO/LibO application, independently from OpenConnection @@ -1120,7 +1120,10 @@ Dim odbDatabase As Variant, oBaseContext As Object, sDbNames() As String, oBaseS Dim i As Integer, bFound As Boolean Dim sDatabaseURL As String - If IsEmpty(_A2B_) Then Call Application._RootInit() ' First use of Access2Base in current AOO/LibO session + If IsEmpty(_A2B_) Then ' First use of Access2Base in current AOO/LibO session + Call Application._RootInit() + TraceLog(TRACEANY, Utils._GetProductName() & " - " & Application.ProductCode(), False) + End If Set OpenDatabase = Nothing If _ErrorHandler() Then On Local Error Goto Error_Function @@ -1173,7 +1176,6 @@ Const cstThisSub = "OpenDatabase" Set OpenDatabase = odbDatabase - TraceLog(TRACEANY, Utils._GetProductName() & " - " & Application.ProductCode(), False) TraceLog(TRACEANY, odbDatabase.MetaData.getDatabaseProductName() & " " & odbDatabase.MetaData.getDatabaseProductVersion, False) TraceLog(TRACEANY, UCase(cstThisSub) & " " & odbDatabase.URL, False) |