G
Guest
I Have Just added the following to the end of this code.
& POC_Name = DLookup("[C1_PM_POC]", "Col_1St_PM"), , True
When I run it I only get a 0 in the Msg text. I also added Dim POC_Name As
String. If I take it out
Dim POC_Name As String
& POC_Name = DLookup("[C1_PM_POC]", "Col_1St_PM")
It works
DoCmd.SendObject acSendNoObject, , , "(e-mail address removed)", , ,
"College First Pay Inquiry for " & [indiv_name] & ", SSN:" & [ind_ssn], "" _
& "A Pay Inquiry is being requested For " & [indiv_name] & ", SSN:" _
& [ind_ssn] & vbCrLf & vbCrLf & "DEP In Date:" & [DEPInDate] & vbCrLf &
vbCrLf & "Enrollment Dates:" _
& vbCrLf & [REMARKS] & vbCrLf & vbCrLf & POC_Name = DLookup("[C1_PM_POC]",
"Col_1St_PM"), , True
& POC_Name = DLookup("[C1_PM_POC]", "Col_1St_PM"), , True
When I run it I only get a 0 in the Msg text. I also added Dim POC_Name As
String. If I take it out
Dim POC_Name As String
& POC_Name = DLookup("[C1_PM_POC]", "Col_1St_PM")
It works
DoCmd.SendObject acSendNoObject, , , "(e-mail address removed)", , ,
"College First Pay Inquiry for " & [indiv_name] & ", SSN:" & [ind_ssn], "" _
& "A Pay Inquiry is being requested For " & [indiv_name] & ", SSN:" _
& [ind_ssn] & vbCrLf & vbCrLf & "DEP In Date:" & [DEPInDate] & vbCrLf &
vbCrLf & "Enrollment Dates:" _
& vbCrLf & [REMARKS] & vbCrLf & vbCrLf & POC_Name = DLookup("[C1_PM_POC]",
"Col_1St_PM"), , True