Last day of the last Month Code

[Bob Vance]

Trying to add the last day of the last month to this part of my code for
emailing

& "Attached is your Statement " & " Dated " & DateAdd("d", -1# *
DatePart("d", Today), Today) & eMailSignature("Best Regards", True) &
Chr(10) & Chr(10) _

 

[John W. Vinson]

Trying to add the last day of the last month to this part of my code for
emailing

& "Attached is your Statement " & " Dated " & DateAdd("d", -1# *
DatePart("d", Today), Today) & eMailSignature("Best Regards", True) &
Chr(10) & Chr(10) _

Try instead: "Attached is your Statement Dated " & DateSerial(Year(Date()),
Month(Date()) + 1, 0) & emailSignature("Best Regards", True) & vbCrLf & vbCrLf

There is no Today in Access; Date() is today's date.

I presume you have a function eMailSignature.

 

[Bob Vance]

Try instead: "Attached is your Statement Dated " &
DateSerial(Year(Date()),
Month(Date()) + 1, 0) & emailSignature("Best Regards", True) & vbCrLf &
vbCrLf

There is no Today in Access; Date() is today's date.

I presume you have a function eMailSignature.

Thanks John did it on todays date BRILLIANT!! regards Bob
Yes do have an emailsignature thanks

strBodyMsg = "Dear "
strBodyMsg = strBodyMsg & Nz(DLookup("[ClientTitle]",
"tblOwnerInfo", _
"[OwnerID]=" & lngID), " ") & " "
strBodyMsg = strBodyMsg & Nz(DLookup("[OwnerLastName]",
"tblOwnerInfo", _
"[OwnerID]=" & lngID), " Owner")
strBodyMsg = strBodyMsg & "," & Chr(10) & Chr(10) & Chr(13) _
& "Attached is your Statement " & eMailSignature("Best
Regards", True) & Chr(10) & Chr(10) _
& DownloadMessage("snp")

 

[John W. Vinson]

John W. Vinson [MVP]

Thanks John did it on todays date BRILLIANT!! regards Bob
Yes do have an emailsignature thanks

strBodyMsg = "Dear "
strBodyMsg = strBodyMsg & Nz(DLookup("[ClientTitle]",
"tblOwnerInfo", _
"[OwnerID]=" & lngID), " ") & " "
strBodyMsg = strBodyMsg & Nz(DLookup("[OwnerLastName]",
"tblOwnerInfo", _
"[OwnerID]=" & lngID), " Owner")
strBodyMsg = strBodyMsg & "," & Chr(10) & Chr(10) & Chr(13) _
& "Attached is your Statement " & eMailSignature("Best
Regards", True) & Chr(10) & Chr(10) _
& DownloadMessage("snp")

Just note that Chr(10) is a LineFeed character. A newline is a carriage return
followed by a linefeed - either

Chr(13) & Chr(10)

or you can use the VBA constant vbCrLf. A plain linefeed will probably show up
as a little box character.