ACCESS FEED: Re: [MS_AccessPros] Send specific report with SendReportHTML function

Minggu, 08 November 2015

Re: [MS_AccessPros] Send specific report with SendReportHTML function

Yes, I think so. The comment in A.D.'s code says: "Insert lines in lieu of line markers" - I just assumed it's replacing "line markers" in the HTML generated by Access with something that generates a line in the HTML. <hr> is the tag to create a "horizontal rule" in HTML.

I need to see the raw HTML that is being generated. Can you post a sample in Assistance Needed? Change the code to not KILL the file, then upload the file.

John Viescas, Author

Microsoft Access 2010 Inside Out

Microsoft Access 2007 Inside Out

Microsoft Access 2003 Inside Out

Building Microsoft Access Applications

SQL Queries for Mere Mortals

http://www.viescas.com/

(Paris, France)

On Nov 8, 2015, at 2:11 PM, Kevin zhaoliqingoffice@163.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

John-

Replace lines is supposed to replace something with lines right?

Best Regards,

Kevin

发自我的小米手机

在 "John Viescas JohnV@msn.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2015年11月8日下午8:40写道：

Kevin-

I don't understand what I'm seeing here. Are you sending a snippet of code as the HTML body?

Perhaps this: 第一章

.. is the line generated on a Chinese machine?

If that's the case, then you need to do:

' Replace lines
strHTML = Replace(strHTML, "第一章", "<hr>")

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

On Nov 8, 2015, at 12:48 PM, 'zhaoliqingoffice@163.com' zhaoliqingoffice@163.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

John-
The text below is the output html in email. You see there's table line.
Best Regards,
Kevin

第一章
On Error GoTo ErrHandle
If IsNull(Me.GroupBookingID) Then

Forms!frmGroupBooking!subPart.
Forms!frmGroupBooking!subPartService.
Forms!frmGroupBooking!subPartItinerary.
Forms!frmGroupBooking!subPartItineraryCityTour.
Forms!frmGroupBooking!subPartItineraryCityTourDayService.
Forms!frmGroupBooking!subPartItineraryCityTourSpot.

Else
Forms!frmGroupBooking!subPart.
Forms!frmGroupBooking!subPartService.
Forms!frmGroupBooking!subPartItinerary.
Forms!frmGroupBooking!subPartItineraryCityTour.
Forms!frmGroupBooking!subPartItineraryCityTourDayService.
Forms!frmGroupBooking!subPartItineraryCityTourSpot.
End If

ErrExit:
Exit Sub
ErrHandle:
Resume ErrExit

zhaoliqingoffice@163.com