MartyConnelly
martyconnelly at shaw.ca
Tue Oct 26 11:24:11 CDT 2004
Check your version of Jet, this was a problem corrected with Access97 SR-2 I think there were others http://support.microsoft.com/default.aspx?scid=kb;en-us;191743 Myke Myers wrote: >Does anyone see why the sub procedure below would result in an out of memory >condition when run about 100 times in a loop? > > > Public Sub ExecuteActionQuery(strQueryName As String) > > Dim db As Database > Dim qdf As QueryDef > > Set db = CurrentDb > Set qdf = db.QueryDefs(strQueryName) > qdf.Execute > > Set qdf = Nothing > Set db = Nothing > > Exit Sub > > > >TIA > >Myke > > > > -- Marty Connelly Victoria, B.C. Canada