Hi Guy's, I have 5 HTML table setup for Monday to Friday, all works a dream but unsure if or how i can add a separator
separator being a blank row in the HTML table ? the code below will add schedules for all "drivers" for that particular day of week, can or how can I add a blank row after each driver ?
The below is all drivers schedules for Friday
Code:
strHTML5 = "<HTML><Body><table border='3' width=auto'><font color='blue' size='3' face='Arial'>" & _ "<tr><th>Day</th><th>Delivery Date</th></th><th>Driver</th><th>Del No</th><th>Delivery To</th><th>Town</th><th>PostCode</th><th>Qty</th><th>ETA</th><tr>"
strBody5 = strHTML5
strSQL5 = "SELECT tblRoutes.DayName, tblRoutes.DelDate, tblRoutes.Driver, tblRoutes.DelNo, tblRoutes.DelTo, tblRoutes.Town, tblRoutes.PostCode, tblRoutes.Qty, tblRoutes.ETA " _
& "From tblRoutes " _
& "GROUP BY tblRoutes.DelDate, tblRoutes.DayName, tblRoutes.Driver, tblRoutes.DelNo, tblRoutes.DelTo, tblRoutes.Town, tblRoutes.PostCode, tblRoutes.Qty, tblRoutes.ETA " _
& "HAVING (((tblRoutes.DayName) = ""Friday"")) " _
& "ORDER BY tblRoutes.Driver, tblRoutes.DelDate, tblRoutes.DelNo;"
Set rs5 = CurrentDb.OpenRecordset(strSQL5)
Do While Not rs5.EOF
If IsNull(rs5.Fields("DayName")) Then
sDayName = "No Date Set"
Else
sDayName = rs5.Fields("DayName")
End If
strBody5 = strBody5 & "<tr>" & _
"<td style='background-color:#F5F5F5'>" & strFS & sDayName & strFE & "</td>" & _
"<td style='background-color:#F8F8FF'>" & strFS & Format(rs4.Fields("DelDate"), "dd-mmm-yyyy") & strFE & "</td>" & _
"<td style='background-color:#F5F5F5'>" & strFS & rs4.Fields("Driver") & strFE & "</td>" & _
"<td style='background-color:#F8F8FF'>" & strFS & rs4.Fields("DelNo") & strFE & "</td>" & _
"<td style='background-color:#F8F8FF'>" & strFS & rs4.Fields("DelTo") & strFE & "</td>" & _
"<td style='background-color:#F8F8FF'>" & strFS & rs4.Fields("Town") & strFE & "</td>" & _
"<td style='background-color:#F8F8FF'>" & strFS & rs4.Fields("PostCode") & strFE & "</td>" & _
"<td style='background-color:#F8F8FF'>" & strFS & rs.Fields("Qty") & strFE & "</td>" & _
"<td style='background-color:#F8F8FF'>" & strFS & rs.Fields("ETA") & strFE & "</td></tr>" & "|"
rs5.MoveNext
Loop
Hope i have asked this clearly
After each driver (Add a blank row to sperate)
Or a suggested method to make separation ?
Thank you indeed