https://bugs.documentfoundation.org/show_bug.cgi?id=121342
--- Comment #5 from tsultana <[email protected]> ---
I have worked around the bug in CloseAllRecordsets() by using the following
code.
Dim recBug1 as Object
Dim recBug2 as Object
recBug1 = CurrentDb().OpenRecordset("table") ' needlessly open a recordset
recBug2 = CurrentDb().OpenRecordset("table") ' do it again
CurrentDb().CloseAllRecordsets()
This makes sure two recordsets are open in the collection to force the code to
skip the If IsNull() and If .Count < 1 lines which then closes the two open
recordsets and resets the RecordsetMax variable to 0.
--
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
