diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2020-05-06 12:55:04 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2020-05-06 12:55:04 +0200 |
commit | 38d12da637e745cec290d1ae58e2b8d59f77dfa7 (patch) | |
tree | 4d0d0a9ba1ae499077a99b7ee0261ba017a0c65c /wizards | |
parent | 3e131bffde3deb7229077aa0d1fd98fe1854a45e (diff) |
Access2Base - Version number 7.0
Change-Id: Ia75b4e02bd6def84d66ae89c1c4a688e8a027c23
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/access2base/Application.xba | 2 | ||||
-rw-r--r-- | wizards/source/access2base/Form.xba | 2 | ||||
-rw-r--r-- | wizards/source/access2base/acConstants.xba | 2 |
3 files changed, 4 insertions, 2 deletions
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 7268e8216144..224cc394a99d 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1866,4 +1866,4 @@ Public Sub _RootInit(Optional ByVal pbForce As Boolean) End Sub ' _RootInit V1.1.0 -</script:module> +</script:module>
\ No newline at end of file diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba index 84dee353413a..df18feb34678 100644 --- a/wizards/source/access2base/Form.xba +++ b/wizards/source/access2base/Form.xba @@ -503,6 +503,7 @@ Dim oDatabaseForm As Object, iCtlCount As Integer If Not IsLoaded Then Goto Trace_Error_NotOpen 'Count number of controls thru the forms collection iControlCount = 0 + iCount = FormsCollection.Count For i = 0 To iCount - 1 If i = 0 Then Set oDatabaseForm = DatabaseForm Else Set oDatabaseForm = FormsCollection.getByIndex(i) @@ -833,6 +834,7 @@ Dim oDoc As Object, oDatabase As Object End If Case DBCONNECTFORM Set ContainerWindow = oDoc.Document.CurrentController.Frame.ContainerWindow + Set FormsCollection = oDoc.Document.getDrawPage.Forms Set oDatabase = Application._CurrentDb(_DocEntry, _DbEntry) With oDatabase Set DatabaseForm = .Form diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba index e1c04bd6f9be..9678a5b205dc 100644 --- a/wizards/source/access2base/acConstants.xba +++ b/wizards/source/access2base/acConstants.xba @@ -9,7 +9,7 @@ REM ============================================================================ Option Explicit REM Access2Base ----------------------------------------------------- -Global Const Access2Base_Version = "6.4.0" ' Alignment on LibreOffice versions +Global Const Access2Base_Version = "7.0.0" ' Alignment on LibreOffice versions REM AcCloseSave REM ----------------------------------------------------------------- |