Not sure if this will work or not. Make a new standard module and add the
following to it.
Finction GetMDLTest()
Dim mdl As Module
Dim mdlTxt As String
Dim LineCnt As Long
DoCmd.OpenForm "<name of table>", acDesign, , , , acHidden
Set mdl = Forms("<name of table>").Module
LineCnt = mdl.CountOfLines
mdlTxt = mdl.Lines(1, LineCnt)
Debug.Print mdlTxt
End Function
If it does not crash on you, then you should be able to open the Debug
window and then copy and paste the code.
If it does, not sure how to get at it, as it will need to be opened in
someway.
Mike Storr
www.veraccess.com
"Jan" <ob*@sorco.no> wrote in message
news:6a*************************@posting.google.co m...
I have a form with a large procedure in MS Access 2000. I had just
added some more code and performed Compress and Repair when the
following problem came up:
When I try to open the procedue from the form I get the error message
Out of memory, and the VBA window does not open.
I have tried to enlarge virtual memory and stacks, without this having
any effect. I therefore suspect that this is a problem due to the
procedure exceeding the 64k size limit. As I am not able to open the
procedure, I cannot make it smaller. Does anybody know how to gain
access to the procedure when this limit is overrun?