G
Guest
Could someone tell me what I'm not doing right here??
Dim strEmail As String
Dim strReviewer As String
strReviewer = Me.txtReviewer
Me.txtReviewer.Enabled = True
strEmail = DLookup("", "qryMKEmail", "[ID]=" & strReviewer)
DoCmd.SendObject acSendNoObject, , , strEmail, , "Return Tracker"
Me.txtReviewer.Enabled = False
Dim strEmail As String
Dim strReviewer As String
strReviewer = Me.txtReviewer
Me.txtReviewer.Enabled = True
strEmail = DLookup("", "qryMKEmail", "[ID]=" & strReviewer)
DoCmd.SendObject acSendNoObject, , , strEmail, , "Return Tracker"
Me.txtReviewer.Enabled = False