How to run a report once a day only?

[JojoKa]

Hi,
How can i allow a user to ran a report (using a command button in a form) ONLY once a day?

Thanks in advance

Joseph

 

[Golom]

Probably by building a table
[tt]
tblRunDate
LastRunDate
[/tt]

Sub cmdReport_Click()
    Dim LastRunDate As Date
    Dim AllowReport As Boolean
    LastRunDate = DMax("LastRunDate", "tblRunDate")
    If IsNull(LastRunDate) Then
        AllowReport = True
        CurrentDb.Execute "INSERT INTO tblRunDate (LastRunDate) " & _
                          "VALUES(#" & Date & "#)"
    ElseIf LastRunDate < Date Then
        AllowReport = True
        CurrentDb.Execute "UPDATE tblRunDate " & _
                          "SET LastRunDate = #" & Date & "#"
    Else
        AllowReport = False
    End If

    If AllowReport Then
       [COLOR=Green]' Run the Report[/color]
    Else
       MsgBox "Report has already been run today."
    End If

End Sub

[small]No! No! You're not thinking ... you're only being logical.
- Neils Bohr[/small]

 

[JojoKa]

Worked thanks so much.