[Libreoffice-bugs] [Bug 121342] Access2Base Counter for OpenRecordset usage is too low

[bugzilla-daemon at bugs.documentfoundation.org]

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

--- Comment #5 from tsultana <tony.sultana at pm.me> ---
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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20181111/b5d041cc/attachment.html>