diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2017-03-30 16:23:09 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-03-30 16:23:09 +0200 |
| commit | 53c2507bf97867011fd2bfbbac6c86b7fc494338 (patch) | |
| tree | 471371dce7dd7cb020c265b1067d578ad0b7f258 /wizards | |
| parent | 0d658dfc8ffdc91f3dcb2bd34dde1dbae76ad8ae (diff) | |
Access2Base Missing parentheses - tdf#106710
Due to more severe Basic interpreter on final parentheses
missing parentheses were revealed
Cherry picking https://gerrit.libreoffice.org/#/c/35717/
was not sufficient as they were remaining cases in new LO5.4 code
Change-Id: I6a883ceed22ae20bb61cba8e3966c2dc680bdd0c
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Application.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/Recordset.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/UtilProperty.xba | 6 | ||||
| -rw-r--r-- | wizards/source/access2base/Utils.xba | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 6bd29a6d86f4..2c38590136d8 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1624,4 +1624,4 @@ Public Sub _RootInit(Optional ByVal pbForce As Boolean) If IsEmpty(_A2B_) Or pbForce Then _A2B_ = New Root_ End Sub ' _RootInit V1.1.0 -</script:module> +</script:module>
\ No newline at end of file diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index aeb7c1aaa416..8348b0f81207 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -1267,4 +1267,4 @@ Error_Function: _PropertySet = False GoTo Exit_Function End Function ' _PropertySet -</script:module> +</script:module>
\ No newline at end of file diff --git a/wizards/source/access2base/UtilProperty.xba b/wizards/source/access2base/UtilProperty.xba index 96e09552e948..500213fb0997 100644 --- a/wizards/source/access2base/UtilProperty.xba +++ b/wizards/source/access2base/UtilProperty.xba @@ -266,15 +266,15 @@ Const cstEqualArray = " = (", cstEqual = " = " lSearch = lPosition + Len(sName) + Len(cstEqualArray) - 1 sDim = Utils._RegexSearch(vString(i), "\([0-9]+\)", lSearch) ' e.g. (10) If sDim <> "" Then - iCols = CInt(Mid(sDim, 2, Len(sDim) - 2) + iCols = CInt(Mid(sDim, 2, Len(sDim) - 2)) iRows = 0 ReDim vValue(0 To iCols - 1) Else lSearch = lPosition + Len(sName) + Len(cstEqualArray) - 1 sDim = Utils._RegexSearch(vString(i), "\([0-9]+,", lSearch) ' e.g. (10, - iRows = CInt(Mid(sDim, 2, Len(sDim) - 2) + iRows = CInt(Mid(sDim, 2, Len(sDim) - 2)) sDim = Utils._RegexSearch(vString(i), ",[0-9]+\)", lSearch) ' e.g. ,20) - iCols = CInt(Mid(sDim, 2, Len(sDim) - 2) + iCols = CInt(Mid(sDim, 2, Len(sDim) - 2)) ReDim vValue(0 To iRows - 1) End If iArray = 0 diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index c4ec1cae71f0..7a1696f7a644 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -1264,4 +1264,4 @@ Private Function _UTF8Encode(ByVal psChar As String) As String End Function ' _UTF8Encode V1.4.0 -</script:module> +</script:module>
\ No newline at end of file |