summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorJean-Pierre Ledure <jp@ledure.be>2020-05-06 12:55:04 +0200
committerJean-Pierre Ledure <jp@ledure.be>2020-05-06 12:55:04 +0200
commit38d12da637e745cec290d1ae58e2b8d59f77dfa7 (patch)
tree4d0d0a9ba1ae499077a99b7ee0261ba017a0c65c /wizards
parent3e131bffde3deb7229077aa0d1fd98fe1854a45e (diff)
Access2Base - Version number 7.0
Change-Id: Ia75b4e02bd6def84d66ae89c1c4a688e8a027c23
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/access2base/Application.xba2
-rw-r--r--wizards/source/access2base/Form.xba2
-rw-r--r--wizards/source/access2base/acConstants.xba2
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 &apos; _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
&apos;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 = &quot;6.4.0&quot; &apos; Alignment on LibreOffice versions
+Global Const Access2Base_Version = &quot;7.0.0&quot; &apos; Alignment on LibreOffice versions
REM AcCloseSave
REM -----------------------------------------------------------------