https://bugs.documentfoundation.org/show_bug.cgi?id=121342

--- Comment #6 from Julien Nabet <[email protected]> ---
Created attachment 146541
  --> https://bugs.documentfoundation.org/attachment.cgi?id=146541&action=edit
Recordset.xba test

Thought this patch may help
diff --git a/wizards/source/access2base/Recordset.xba
b/wizards/source/access2base/Recordset.xba
index cc46790532d9..f7193b22c65c 100644
--- a/wizards/source/access2base/Recordset.xba
+++ b/wizards/source/access2base/Recordset.xba
@@ -400,7 +400,10 @@ Dim i As Integer
        _Fields = Array()
        Set RowSet = Nothing
        If IsMissing(pbRemove) Then pbRemove = True
-       If pbRemove Then _ParentDatabase.RecordsetsColl.Remove(_Name)
+       If pbRemove Then
+               With _ParentDatabase
+                       .RecordsetMax = .RecordsetMax - 1
+                       .RecordsetsColl.Remove(_Name)

tony: you can give a try by retrieving the file and putting it in your profile
(search in https://wiki.documentfoundation.org/UserProfile#Windows).

-- 
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs

Reply via email to