Here's the code, user supplies a project start date, combo62 equals a
department name, and combo64 equals a project id number.
Private Sub Combo62_AfterUpdate()
Me.Combo64 = Null
Me.Combo64.Requery
Me.Combo64 = Me.Combo64.ItemData(0)
End Sub
Private Sub Combo64_AfterUpdate()
With Forms!FRMTEST1
..SetFocus
..Requery
End With
End Sub
Private Sub Exit_Click()
On Error GoTo Err_Exit_Click
DoCmd.Close
DoCmd.OpenForm "Switchboard", acNormal
Exit_Exit_Click:
Exit Sub
Err_Exit_Click:
MsgBox Err.Description
Resume Exit_Exit_Click
End Sub
Private Sub Mail_Project_Notice_Click()
On Error GoTo Err_Mail_Report_Click
Dim stDocName As String
Dim stDocName1 As String
stDocName = "qryt2"
stDocName1 = "rptProject_Update_Email"
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SendObject acReport, stDocName1, "HTML(*.html)", , , , "Project Update
Notification"
DoCmd.Close acQuery, "qryt2"
Exit_Mail_Report_Click:
Exit Sub
Err_Mail_Report_Click:
MsgBox Err.Description
Resume Exit_Mail_Report_Click
End Sub