summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--wizards/source/access2base/Control.xba155
-rw-r--r--wizards/source/access2base/DataDef.xba11
-rw-r--r--wizards/source/access2base/Dialog.xba22
-rw-r--r--wizards/source/access2base/Field.xba18
-rw-r--r--wizards/source/access2base/Form.xba62
-rw-r--r--wizards/source/access2base/OptionGroup.xba10
-rw-r--r--wizards/source/access2base/Recordset.xba15
-rw-r--r--wizards/source/access2base/SubForm.xba42
-rw-r--r--wizards/source/access2base/acConstants.xba2
9 files changed, 1 insertions, 336 deletions
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba
index 4f4244e56057..66705d9d55f6 100644
--- a/wizards/source/access2base/Control.xba
+++ b/wizards/source/access2base/Control.xba
@@ -2160,159 +2160,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function ' _PropertySet V1.1.0
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set BackColor(ByVal pvValue As Variant)
- Call _PropertySet("BackColor", pvValue)
-End Property ' BackColor (set)
-
-Property Set BorderColor(ByVal pvValue As Variant)
- Call _PropertySet("BorderColor", pvValue)
-End Property ' BorderColor (set)
-
-Property Set BorderStyle(ByVal pvValue As Variant)
- Call _PropertySet("BorderStyle", pvValue)
-End Property ' BorderStyle (set)
-
-Property Set Cancel(ByVal pvValue As Variant)
- Call _PropertySet("Cancel", pvValue)
-End Property ' Cancel (set)
-
-Property Set Caption(ByVal pvValue As Variant)
- Call _PropertySet("Caption", pvValue)
-End Property ' Caption (set)
-
-Property Set ControlTipText(ByVal pvValue As Variant)
- Call _PropertySet("ControlTipText", pvValue)
-End Property ' ControlTipText (set)
-
-Property Set Default(ByVal pvValue As Variant)
- Call _PropertySet("Default", pvValue)
-End Property ' Default (set)
-
-Property Set DefaultValue(ByVal pvValue As Variant)
- Call _PropertySet("DefaultValue", pvValue)
-End Property ' DefaultValue (set)
-
-Property Set Enabled(ByVal pvValue As Variant)
- Call _PropertySet("Enabled", pvValue)
-End Property ' Enabled (set)
-
-Property Set FontBold(ByVal pvValue As Variant)
- Call _PropertySet("FontBold", pvValue)
-End Property ' FontBold (set)
-
-Property Set FontItalic(ByVal pvValue As Variant)
- Call _PropertySet("FontItalic", pvValue)
-End Property ' FontItalic (set)
-
-Property Set FontName(ByVal pvValue As Variant)
- Call _PropertySet("FontName", pvValue)
-End Property ' FontName (set)
-
-Property Set FontSize(ByVal pvValue As Variant)
- Call _PropertySet("FontSize", pvValue)
-End Property ' FontSize (set)
-
-Property Set FontUnderline(ByVal pvValue As Variant)
- Call _PropertySet("FontUnderline", pvValue)
-End Property ' FontUnderline (set)
-
-Property Set FontWeight(ByVal pvValue As Variant)
- Call _PropertySet("FontWeight", pvValue)
-End Property ' FontWeight (set)
-
-Property Set ForeColor(ByVal pvValue As Variant)
- Call _PropertySet("ForeColor", pvValue)
-End Property ' ForeColor (set)
-
-Property Set Format(ByVal pvValue As Variant)
- Call _PropertySet("Format", pvValue)
-End Property ' Format (set)
-
-Property Set ListIndex(ByVal pvValue As Variant)
- Call _PropertySet("ListIndex", pvValue)
-End Property ' ListIndex (set)
-
-Property Set Locked(ByVal pvValue As Variant)
- Call _PropertySet("Locked", pvValue)
-End Property ' Locked (set)
-
-Property Set MultiSelect(ByVal pvValue As Variant)
- Call _PropertySet("MultiSelect", pvValue)
-End Property ' MultiSelect (set)
-
-Property Set OptionValue(ByVal pvValue As Variant)
- Call _PropertySet("OptionValue", pvValue)
-End Property ' OptionValue (set)
-
-Property Set Page(ByVal pvValue As Variant)
- Call _PropertySet("Page", pvValue)
-End Property ' Page (set)
-
-Property Set Required(ByVal pvValue As Variant)
- Call _PropertySet("Required", pvValue)
-End Property ' Required (set)
-
-Property Set RowSource(ByVal pvValue As Variant)
- Call _PropertySet("RowSource", pvValue)
-End Property ' RowSource (set)
-
-Property Set RowSourceType(ByVal pvValue As Variant)
- Call _PropertySet("RowSourceType", pvValue)
-End Property ' RowSourceType (set)
-
-Property Set Selected(ByVal pvValue As Variant) ' , ByVal Optional pvIndex As Variant)
-' If IsMissing(pvIndex) Then Call _PropertySet("Selected", pvValue) Else Call _PropertySet("Selected", pvValue, pvIndex)
- Call _PropertySet("Selected", pvValue)
-End Property ' Selected (set)
-
-Property Set SelLength(ByVal pvValue As Variant)
- Call _PropertySet("SelLength", pvValue)
-End Property ' SelLength (set)
-
-Property Set SelStart(ByVal pvValue As Variant)
- Call _PropertySet("SelStart", pvValue)
-End Property ' SelStart (set)
-
-Property Set SelText(ByVal pvValue As Variant)
- Call _PropertySet("SelText", pvValue)
-End Property ' SelText (set)
-
-Property Set SpecialEffect(ByVal pvValue As Variant)
- Call _PropertySet("SpecialEffect", pvValue)
-End Property ' SpecialEffect (set)
-
-Property Set TabIndex(ByVal pvValue As Variant)
- Call _PropertySet("TabIndex", pvValue)
-End Property ' TabIndex (set)
-
-Property Set TabStop(ByVal pvValue As Variant)
- Call _PropertySet("TabStop", pvValue)
-End Property ' TabStop (set)
-
-Property Set Tag(ByVal pvValue As Variant)
- Call _PropertySet("Tag", pvValue)
-End Property ' Tag (set)
-
-Property Set TextAlign(ByVal pvValue As Variant)
- Call _PropertySet("TextAlign", pvValue)
-End Property ' TextAlign (set)
-
-Property Set TripleState(ByVal pvValue As Variant)
- Call _PropertySet("TripleState", pvValue)
-End Property ' TripleState (set)
-
-Property Set Value(ByVal pvValue As Variant)
- Call _PropertySet("Value", pvValue)
-End Property ' Value (set)
-
-Property Set Visible(ByVal pvValue As Variant)
- Call _PropertySet("Visible", pvValue)
-End Property ' Visible (set)
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba
index 874428ad3fb8..e151b28ab024 100644
--- a/wizards/source/access2base/DataDef.xba
+++ b/wizards/source/access2base/DataDef.xba
@@ -560,15 +560,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set SQL(ByVal pvValue As Variant)
- Call _PropertySet(&quot;SQL&quot;, pvValue)
-End Property &apos; SQL (set)
-
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/Dialog.xba b/wizards/source/access2base/Dialog.xba
index 3e6fbd70aa00..7847438056c2 100644
--- a/wizards/source/access2base/Dialog.xba
+++ b/wizards/source/access2base/Dialog.xba
@@ -659,26 +659,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set Caption(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Caption&quot;, pvValue)
-End Property &apos; Caption (set)
-
-Property Set Height(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Height&quot;, pvValue)
-End Property &apos; Height (set)
-
-Property Set Visible(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Visible&quot;, pvValue)
-End Property &apos; Visible (set)
-
-Property Set Width(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Width&quot;, pvValue)
-End Property &apos; Width (set)
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index 9c9ac727fccc..4bd9154f42e2 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -767,22 +767,4 @@ Error_Function:
TraceError(TRACEABORT, Err, _CalledSub, Erl)
GoTo Exit_Function
End Function &apos; WriteAll
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set DefaultValue(ByVal pvDefaultValue As Variant)
- Call _PropertySet(&quot;DefaultValue&quot;, pvDefaultValue)
-End Property &apos; DefaultValue (set)
-
-Property Set Description(ByVal pvDescription As Variant)
- Call _PropertySet(&quot;Description&quot;, pvDescription)
-End Property &apos; Description (set)
-
-Property Set Value(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Value&quot;, pvValue)
-End Property &apos; Value (set)
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba
index 039551e142ca..a787dfec6257 100644
--- a/wizards/source/access2base/Form.xba
+++ b/wizards/source/access2base/Form.xba
@@ -871,66 +871,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set AllowAdditions(ByVal pvValue As Variant)
- Call _PropertySet(&quot;AllowAdditions&quot;, pvValue)
-End Property &apos; AllowAdditions (set)
-
-Property Set AllowDeletions(ByVal pvValue As Variant)
- Call _PropertySet(&quot;AllowDeletions&quot;, pvValue)
-End Property &apos; AllowDeletions (set)
-
-Property Set AllowEdits(ByVal pvValue As Variant)
- Call _PropertySet(&quot;AllowEdits&quot;, pvValue)
-End Property &apos; AllowEdits (set)
-
-Property Set Bookmark(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Bookmark&quot;, pvValue)
-End Property &apos; Bookmark (set)
-
-Property Set Caption(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Caption&quot;, pvValue)
-End Property &apos; Caption (set)
-
-Property Set CurrentRecord(ByVal pvValue As Variant)
- Call _PropertySet(&quot;CurrentRecord&quot;, pvValue)
-End Property &apos; CurrentRecord (set)
-
-Property Set Filter(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Filter&quot;, pvValue)
-End Property &apos; Filter (set)
-
-Property Set FilterOn(ByVal pvValue As Variant)
- Call _PropertySet(&quot;FilterOn&quot;, pvValue)
-End Property &apos; FilterOn (set)
-
-Property Set Height(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Height&quot;, pvValue)
-End Property &apos; Height (set)
-
-Property Set OrderBy(ByVal pvValue As Variant)
- Call _PropertySet(&quot;OrderBy&quot;, pvValue)
-End Property &apos; OrderBy (set)
-
-Property Set OrderByOn(ByVal pvValue As Variant)
- Call _PropertySet(&quot;OrderByOn&quot;, pvValue)
-End Property &apos; OrderByOn (set)
-
-Property Set RecordSource(ByVal pvValue As Variant)
- Call _PropertySet(&quot;RecordSource&quot;, pvValue)
-End Property &apos; RecordSource (set)
-
-Property Set Visible(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Visible&quot;, pvValue)
-End Property &apos; Visible (set)
-
-Property Set Width(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Width&quot;, pvValue)
-End Property &apos; Width (set)
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba
index 7b8e4a78503c..1fe523034419 100644
--- a/wizards/source/access2base/OptionGroup.xba
+++ b/wizards/source/access2base/OptionGroup.xba
@@ -302,14 +302,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set Value(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Value&quot;, pvValue)
-End Property &apos; Value (set)
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba
index 144a9f440561..4a9c83354adb 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -1108,19 +1108,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set Bookmark(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Bookmark&quot;, pvValue)
-End Property &apos; Bookmark (set)
-
-Property Set Filter(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Filter&quot;, pvValue)
-End Property &apos; Filter (set)
-
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/SubForm.xba b/wizards/source/access2base/SubForm.xba
index e42c53e19fdc..a28f251f5901 100644
--- a/wizards/source/access2base/SubForm.xba
+++ b/wizards/source/access2base/SubForm.xba
@@ -558,46 +558,4 @@ Error_Function:
_PropertySet = False
GoTo Exit_Function
End Function &apos; _PropertySet
-
-REM -----------------------------------------------------------------------------------------------------------------------
-REM --- CLASS PROPERTY SETs ---
-REM --- Workaround to bug https://www.libreoffice.org/bugzilla/show_bug.cgi?id=60752 (LibreOffice 4.0) ---
-REM -----------------------------------------------------------------------------------------------------------------------
-
-Property Set AllowAdditions(ByVal pvValue As Variant)
- Call _PropertySet(&quot;AllowAdditions&quot;, pvValue)
-End Property &apos; AllowAdditions (set)
-
-Property Set AllowDeletions(ByVal pvValue As Variant)
- Call _PropertySet(&quot;AllowDeletions&quot;, pvValue)
-End Property &apos; AllowDeletions (set)
-
-Property Set AllowEdits(ByVal pvValue As Variant)
- Call _PropertySet(&quot;AllowEdits&quot;, pvValue)
-End Property &apos; AllowEdits (set)
-
-Property Set CurrentRecord(ByVal pvValue As Variant)
- Call _PropertySet(&quot;CurrentRecord&quot;, pvValue)
-End Property &apos; CurrentRecord (set)
-
-Property Set Filter(ByVal pvValue As Variant)
- Call _PropertySet(&quot;Filter&quot;, pvValue)
-End Property &apos; Filter (set)
-
-Property Set FilterOn(ByVal pvValue As Variant)
- Call _PropertySet(&quot;FilterOn&quot;, pvValue)
-End Property &apos; FilterOn (set)
-
-Property Set OrderBy(ByVal pvValue As Variant)
- Call _PropertySet(&quot;OrderBy&quot;, pvValue)
-End Property &apos; OrderBy (set)
-
-Property Set OrderByOn(ByVal pvValue As Variant)
- Call _PropertySet(&quot;OrderByOn&quot;, pvValue)
-End Property &apos; OrderByOn (set)
-
-Property Set RecordSource(ByVal pvValue As Variant)
- Call _PropertySet(&quot;RecordSource&quot;, pvValue)
-End Property &apos; RecordSource (set)
-
</script:module> \ No newline at end of file
diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba
index d8b16c58e351..4876d1c682fe 100644
--- a/wizards/source/access2base/acConstants.xba
+++ b/wizards/source/access2base/acConstants.xba
@@ -8,7 +8,7 @@ REM ============================================================================
Option Explicit
REM Access2Base -----------------------------------------------------
-Global Const Access2Base_Version = &quot;1.1.0d&quot;
+Global Const Access2Base_Version = &quot;1.1.0e&quot;
REM AcCloseSave
REM -----------------------------------------------------------------