diff options
Diffstat (limited to 'wizards/source/access2base')
-rw-r--r-- | wizards/source/access2base/Application.xba | 4 | ||||
-rw-r--r-- | wizards/source/access2base/Recordset.xba | 4 | ||||
-rw-r--r-- | wizards/source/access2base/Utils.xba | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index a972b3ca6bab..9fc7308955cb 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -427,7 +427,7 @@ Const cstDot = "." If Not Utils._CheckArgument(pvIndex, 1, Utils._AddNumeric(vbString)) Then Goto Exit_Function If VarType(pvIndex) = vbString Then iMode = cstByName - ' Dtermine full name STORAGE.LIBRARY.MODULE + ' Determine full name STORAGE.LIBRARY.MODULE vNames = Split(pvIndex, cstDot) If UBound(vNames) = 2 Then ElseIf UBound(vNames) = 1 Then @@ -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>
\ No newline at end of file +</script:module> diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index b3b611359618..aeb7c1aaa416 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -686,7 +686,7 @@ Public Function OpenRecordset(ByVal Optional pvType As Variant _ , ByVal Optional pvOptions As Variant _ , ByVal Optional pvLockEdit As Variant _ , ByVal Optional pbClone As Boolean) As Object -'Return a Recordset object based on currentrecordset object with filter addition +'Return a Recordset object based on current recordset object with filter addition If _ErrorHandler() Then On Local Error Goto Error_Function Dim cstThisSub As String @@ -1267,4 +1267,4 @@ Error_Function: _PropertySet = False GoTo Exit_Function End Function ' _PropertySet -</script:module>
\ No newline at end of file +</script:module> diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index 1d7cd1dcc970..c4ec1cae71f0 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -849,7 +849,7 @@ Dim lChar As Long, sByte1 As String, sByte2 As String, sByte3 As String _PercentEncode = psChar Case Asc("-"), Asc("."), Asc("_"), Asc("~") _PercentEncode = psChar - Case Asc("!"), Asc("$"), Asc("&"), Asc("'"), Asc("("), Asc(")"), Asc("*"), Asc("+"), Asc(","), Asc(";"), Asc("=") ' Reserved characters used as delimitors in query strings + Case Asc("!"), Asc("$"), Asc("&"), Asc("'"), Asc("("), Asc(")"), Asc("*"), Asc("+"), Asc(","), Asc(";"), Asc("=") ' Reserved characters used as delimiters in query strings _PercentEncode = psChar Case Asc(" "), Asc("%") _PercentEncode = "%" & Right("00" & Hex(lChar), 2) @@ -1264,4 +1264,4 @@ Private Function _UTF8Encode(ByVal psChar As String) As String End Function ' _UTF8Encode V1.4.0 -</script:module>
\ No newline at end of file +</script:module> |