I have this code for the email part, can someone show me how to validate the Y/N Check box named "EmailCB"? I only know how to code a few things.
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
Dim stDocName As String
stDocName = "frmVendorSearchEditCommodity"
' DoCmd.SendObject acReport, stDocName
DoCmd.SendObject acSendNoObject, stDocName, acFormatXLS, Me.VendorCompanyEmail, , , "", , True
Exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command65_Click
End Sub
Thank you
I figured out something better to do for this-Thanks tho!