diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2014-05-31 12:11:28 +0200 |
|---|---|---|
| committer | Andras Timar <andras.timar@collabora.com> | 2014-06-02 19:01:58 +0200 |
| commit | 13d7e7c0764ca77f0d22f998d436e3a21da28944 (patch) | |
| tree | c9f639d2899beb64f9b15ded2a085c58415398aa /wizards | |
| parent | a2e8593ebc126cbecd7bf0be36b88d74d886adb5 (diff) | |
Access2Base : bugs fixings in LO 4.3 retrofitted to 4.2
1. Typo in OpenForm
2. Find(Record/Next) error when search done in gridcontrol of subform
Change-Id: I914c3da021a47ef0410e3b6be038e8e2bad8fa81
Reviewed-on: https://gerrit.libreoffice.org/9598
Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu>
Tested-by: Lionel Elie Mamane <lionel@mamane.lu>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index 4f72c126cc99..457d68730dec 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -135,6 +135,7 @@ Dim vFindValue As Variant, oFindrecord As Object If .FindRecord = 0 Then Goto Error_FindRecord .FindRecord = 0 Set ofForm = getObject(.Form) + If ofForm._Type = OBJCONTROL Then Set ofForm = ofForm.Form ' Bug Tombola Set ocGrid = getObject(.GridControl) ' Move cursor to the initial row. Operation based on last FindRecord, not on user interactions done inbetween @@ -330,6 +331,7 @@ Dim oFindRecord As _FindParams If vParentGrid.SubType <> CTLGRIDCONTROL Then Goto Error_Target .GridControl = vParentGrid._Shortcut ofParentForm = getObject(_getUpperShortcut(vParentGrid._Shortcut, vParentGrid._Name)) + If ofParentForm._Type = OBJCONTROL Then Set ofParentForm = ofParentForm.Form ' Bug Tombola If IsNull(ofParentForm.DatabaseForm) Then Goto Error_DatabaseForm .Target = ocTarget._Shortcut Set vDataField = ocTarget.ControlModel.BoundField @@ -798,7 +800,7 @@ Dim sFilter As String, oForm As Object, oFormsCollection As Object With ofForm Select Case pvDataMode Case acFormAdd - .setAllowAdditions = True + .AllowAdditions = True .AllowDeletions = False .AllowEdits = False Case acFormEdit |