From f990a468ef28295c3db885230772e559f0704e83 Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Sun, 26 Mar 2017 12:34:21 +0200 Subject: Access2Base Missing parentheses - tdf#106710 Due to more severe Basic interpreter on final parentheses missing parentheses were revealed (complement to commit cc16dfb11dfc275317bb535a62b11935c562b670) Change-Id: I45b43bca4a5ee938e9c4dc0b0f8b2d5856f710da Reviewed-on: https://gerrit.libreoffice.org/35717 Tested-by: Jenkins Reviewed-by: Mike Kaganski (cherry picked from commit c317670eb6b5d29f0447feff0c33d528a88f4c8a) --- wizards/source/access2base/Application.xba | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'wizards') diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 783fca73541e..3383e7bd009a 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1147,7 +1147,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) -- cgit v1.2.3