diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Application.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 9fc7308955cb..6bd29a6d86f4 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1301,7 +1301,7 @@ Const cstThisSub = "OpenDatabase" Set oBaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") sDbNames() = oBaseContext.getElementNames() bFound = False - For i = 0 To UBound(sDbNames() ' Enumerate registered databases and check non case-sensitive equality + For i = 0 To UBound(sDbNames()) ' Enumerate registered databases and check non case-sensitive equality If UCase(sDbNames(i)) = UCase(pvDatabaseURL) Then sDatabaseURL = sDbNames(i) Set oBaseSource = oBaseContext.getByName(sDatabaseURL) |