I need to get a report to run automatically in access database once a day that will then send the report by e-mail.I have set up the following code which sends a report every 1hour 40 minutes
Sub Form_Load()
    Me.TimerInterval = 600000
End Sub

Sub Form_Timer()
 Dim stDocName As String
    Dim title As String

    title = " Call ID "


If IsNull(Me.Assignments) And IsNull(Me.CallID) <> True Then



DoCmd.SendObject acSendReport, "rptgpo1", acFormatTXT, "[email protected]", "", "", "Reports", "Hi here are the reports", False


End If
End Sub
Thanks

Brendan Bartley

__________________
Brendan Bartley

Hi,

Check this thread which shuts a database at specific time. You can just change the docmd. to run a report instead.

http://p2p.wrox.com/topic.asp?TOPIC_ID=25910

Jon

Option Compare Database
Option Explicit
' This code will run your report once a day, every day,
' at the specified time.
' Of cource, MSAccess and the form must remain open
' for the code to work 24/7.
'
Dim ReportRunDate As Date
' ReportRunDate will remember if your report has already been called today.
'
' In form properties, set can set timer interval to several seconds, no hurry.


Private Sub Form_Timer()
  CheckMyScheduler
End Sub


Sub CheckMyScheduler()
  Dim Ev1 As Integer

  Ev1 = 21 ' set the hour at which the event should occur.

  ' has report already run today?
  If Day(ReportRunDate) = Day(Now()) Then Exit Sub

  If Hour(Now()) >= Ev1 Then
     RunMyReport
     End If
End Sub
'

Sub RunMyReport()
  Beep ' insert code here to execute the report.
  ReportRunDate = Now()
  MsgBox "The report has done been runned"
End Sub