Message Box

[banpreet]

Hi guys, I have a submit button that sends an email. The email gets send automatically based on the combo box value the user choses, which is who to send the email too. I would like this button that gives a message box instead of an error that warns the person to select the user so when they press submit they don't get an error but if they fill it out they don't get no message box, it just sends the email. Thanks!

[Homegrownandy]

Are you using VBA? if so please paste the code.

[banpreet]

Yes im using vba, I don't have any code of the message box but for the email, do you want me post the code for the email?

[Homegrownandy]

Yes please. All the code associated with the button.

[banpreet]

Private Sub cmdSendEmail_Click()



Dim Subject As String
Dim Body As String
Dim Email As String
Subject = "Test Request Approval"
Body = ""
Body = Body & "GTSR ID: " & GTSR_TR_ID.Value & vbNewLine & vbNewLine
Body = Body & "TR ID: " & TR_ID.Value & vbNewLine & vbNewLine
Body = Body & "Revision Test Request is on (starts at 0): " & Revisions.Value & vbNewLine & vbNewLine
Body = Body & "Test Title: " & Test_Title.Value & vbNewLine & vbNewLine
Body = Body & "Requestor's Name: " & cbofirst_name.Value & " " & cbolast_name.Value & vbNewLine & vbNewLine
Body = Body & "Requestor Clock #: " & cboclock.Value & vbNewLine & vbNewLine
Body = Body & "A/C Model: " & Combo58.Value & vbNewLine & vbNewLine
Body = Body & "This email was auto-generated!"
Email = GetApproverEmailFromName(Me.cboApprover)
DoCmd.SendObject acSendNoObject, "", "", Email, , , Subject, Body, True
DoCmd.Close acForm, "TR_Form"
DoCmd.Close acForm, "GTSR_ID_For_TR_Form", acSaveYes

[Homegrownandy]

Private Sub cmdSendEmail_Click()

 Dim Subject As String
 Dim Body As String
 Dim Email As String

If IsNull(Me.cboApprover) Then

MsgBox "This is fun"

exit sub

else 

Subject = "Test Request Approval"
 Body = ""
 Body = Body & "GTSR ID: " & GTSR_TR_ID.Value & vbNewLine & vbNewLine
 Body = Body & "TR ID: " & TR_ID.Value & vbNewLine & vbNewLine
 Body = Body & "Revision Test Request is on (starts at 0): " & Revisions.Value & vbNewLine & vbNewLine
 Body = Body & "Test Title: " & Test_Title.Value & vbNewLine & vbNewLine
 Body = Body & "Requestor's Name: " & cbofirst_name.Value & " " & cbolast_name.Value & vbNewLine & vbNewLine
 Body = Body & "Requestor Clock #: " & cboclock.Value & vbNewLine & vbNewLine
 Body = Body & "A/C Model: " & Combo58.Value & vbNewLine & vbNewLine
 Body = Body & "This email was auto-generated!"
 Email = GetApproverEmailFromName(Me.cboApprover)
 DoCmd.SendObject acSendNoObject, "", "", Email, , , Subject, Body, True
 DoCmd.Close acForm, "TR_Form"
 DoCmd.Close acForm, "GTSR_ID_For_TR_Form", acSaveYes

end sub

Hopefully this works, Let us know what line an error occurs if it does.

[banpreet]

no message box comes up it goes straight to the email

[banpreet]

nvm it worked thanks!

[banpreet]

it worked then stopped working, ill post my code

[banpreet]

It works but it doesn't work on the first record which is problem because if somebody does a filter search on a form to edit it and they forget to do it it won't work idk why. thanks!

[ssanfu]

The code in Post #6 is missing a line: "End If".

Maybe try this:

Private Sub cmdSendEmail_Click()

    Dim Subject As String
    Dim Body As String
    Dim Email As String

    '    If IsNull(Me.cboApprover) Then
    If Len(Trim(Me.cboApprover)) = 0 Then   '<- Me.cboApprover could have an empty string and not a NULL
        MsgBox "This is fun"
        Exit Sub
    End If

    Subject = "Test Request Approval"
    Body = ""
    Body = Body & "GTSR ID: " & GTSR_TR_ID.Value & vbNewLine & vbNewLine
    Body = Body & "TR ID: " & TR_ID.Value & vbNewLine & vbNewLine
    Body = Body & "Revision Test Request is on (starts at 0): " & Revisions.Value & vbNewLine & vbNewLine
    Body = Body & "Test Title: " & Test_Title.Value & vbNewLine & vbNewLine
    Body = Body & "Requestor's Name: " & cbofirst_name.Value & " " & cbolast_name.Value & vbNewLine & vbNewLine
    Body = Body & "Requestor Clock #: " & cboclock.Value & vbNewLine & vbNewLine
    Body = Body & "A/C Model: " & Combo58.Value & vbNewLine & vbNewLine
    Body = Body & "This email was auto-generated!"
    Email = GetApproverEmailFromName(Me.cboApprover)
    DoCmd.SendObject acSendNoObject, "", "", Email, , , Subject, Body, True
    DoCmd.Close acForm, "TR_Form"
    DoCmd.Close acForm, "GTSR_ID_For_TR_Form", acSaveYes
End Sub

Just curious:
Why are you using a function to get the value from "Me.cboApprover", instead of just getting the value from the combo box?

 Email = GetApproverEmailFromName(Me.cboApprover)

What is the code for the function?