Form using VBA to update field on table

[comicwizard]

Hello, I have a simple form which has two things. One a cbo box which contains names. The other is a button. This button does two things. It checks the choosen name from the cbo box then using that name filters a report and opens that report and attaches that report to an email.



I need to do one more thing. I have a table where these names are pulled from. There is a yes/no field labeled email. I need to be able to check that field when I send out the report to that particular person. I have included my code. The codes does everything but update the email yes/no field. Please help. Btw I have a deadline for this.

Private Sub Open_Feedback_Click()
On Error GoTo Err_Open_Feedback_Click

Dim stDocName As String
stDocName = "Daily_Feedback"

DoCmd.OpenReport "Daily_Feedback", acPreview, , "[Sup_Email]='" & Me.cbosupervisor_name & "'"

DoCmd.SendObject acReport, "Daily_Feedback", "SnapshotFormat(*.snp)", "", "", "", "Daily Feedback Report", "Included is the daily Feedback Report", True, ""

Exit_Open_Feedback_Click:
Exit Sub

Err_Open_Feedback_Click:
MsgBox Err.Description
Resume Exit_Open_Feedback_Click

End Sub

[orange]

How many times do you send an email to a specific person? You do not indicate WHEN this email was sent. Seems it would be important.

[comicwizard]

ah let me provide more information. The cbo box has a filter for the email yes/no field. So once a name is choosen, the report sent and the email yes/no field updated it shouldn't show up there again. This way as the report go out to different people, they won't be send the report again.

Is there anything else I may provide? I can show screen shots, and other things if that would help.

[orange]

So you only send one email to people in your table. OK
So you will need code like this

Dim mySQL as string

mySQL = "Update YourTable " _
& "Set EmailY_N = True " _
& "Where Person = '" & ThePersonYouSentEmailTo & ''"

db.Execute mySQL, dbfailonerror

Put the Dim under your existing Dim

Put the rest after the Docmd.SendObject line

I'm not sure how you are getting the name of the person so some adjustment to the sql my be required.