Hvis feltet me.account (combobox) ikke er udfyldt fåes en fejl.

Hvis feltet me.account (combobox) ikke er udfyldt  skal der komme en meddelse msgbox "Husk at indtaste"

Hvis intet valgt fra combo box så skal der komme en meddelse.
Hvis vælgt skal den køre nedestående kode med sendobject...

Hvad gør jeg galt!

On Error GoTo Err_E_mail_Click

    Dim stDocName As String
   
    If Me.account = thrue Then
   

    stDocName = "Purchase Order"
    DoCmd.SendObject acReport, stDocName, acFormatRTF, "purchase@herning-shipping.dk", , , ShipName() + ", Purchase Order, " + Me.PurchaseOrderNumber, "ORDER FOR GOODS " + " " + Me.PurchaseOrderNumber
Else
MsgBox "Husk at vælge fra combo box?", vbOKOnly, "Manglende oplysninger"
End If

Exit_E_mail_Click:
    Exit Sub

Err_E_mail_Click:
    MsgBox Err.Description
    Resume Exit_E_mail_Click
   
End Sub