There isn't enough memory.... Error

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi there
I have the following code which sends reports via e-mail to managers listed
in the table.

With rst
Do Until .EOF
strSQL = Left(BaseSQL, Len(BaseSQL) - 3) & " WHERE [tblmanager].[id] = " &
!ID
qdf.SQL = strSQL
DoCmd.SendObject acSendReport, "rptTimesAm", "Snapshot Format", !Email, ,
, "Vehicle Reports Mornings", "See attachment", False
.MoveNext
qdf.SQL = BaseSQL
Loop
.Close
End With

After the the first e-mail is sent I get the following error

"There isn't enough memory to perform thsi operation. Close unneeded
programs and try this operation again"

My machine is running Win2000Pro & Office 2000 with 128mb ram
I then tried it on an XP machine with 1GB ram and get the same error .

Which makes me thing that the error message is wrong.

If I use the same code and use this
DoCmd.OutputTo acOutputReport, "rptTimesam", "snapshot format", strPath &
"Morning Report " & !ManagerID & ".snp"

then the reports are created ok

Any help greatfully appreciated.
If this is the wrong forum please let me know.

Thanks
Graham
 
Back
Top