03/04/2025 - sihsandrea ha scritto:
L'altra alternativa è PHP eti costruisci il report senza passare da access. Non so se è intranet collegandoti al PC web server o su host.
Si si si ... molto carino! e poi dinamico.
Io avrei preparato una sorta di demo per scrivere direttamente in vba il file html... me piace come solution ;-))
... fatto tanto per passare il tempo, quindi chiedo venia per eventuali imprecisioni.. ;-)
Esempio, poniamo di avere una Query e un Report.
Si prende il recordset che alimenta il report , in questo caso la Query.
Poi si prende il Vba e si scrive il file Html.
Questo il codice di esempio molto molto semplice:
Sub ExportToHTMLVr2()
Dim db As Database
Dim rs As Recordset
Dim htmlFile As Integer
Dim filePath As String
' Set fullpath html file
filePath = "C:\xxxxxxx\Query_File.html"
' Create file html
htmlFile = FreeFile
Open filePath For Output As htmlFile
' Initialize html and css style
Print #htmlFile, "<HTML><HEAD><META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html;charset=windows-1252"">"
Print #htmlFile, "<TITLE>ReportTbl_Demo</TITLE>"
Print #htmlFile, "<STYLE>"
Print #htmlFile, "BODY {font-family: 'Franklin Gothic Book', sans-serif; font-size: 11pt; color: #404040; text-align: center;} "
Print #htmlFile, "TABLE {border-collapse: collapse; width: 50%; max-width: 900px; margin: 0 auto;}"
Print #htmlFile, "TD, TH {border: 1px solid #ccc; padding: 5px 10px; text-align: left;}"
Print #htmlFile, "TH {background-color: #f2f2f2; font-weight: bold; color: blue;}"
Print #htmlFile, "TR:nth-child(even) {background-color: #f9f9f9;}"
Print #htmlFile, "TD.right-align, TH.right-align {text-align: right;}"
Print #htmlFile, "H1 {font-size: 16pt; font-weight: bold; color: #2C3E50; text-align: center; padding-bottom: 2px;}"
Print #htmlFile, "</STYLE>"
Print #htmlFile, "</HEAD><BODY>"
' Add title
Print #htmlFile, "<H1>Demo Report" & " " & Date & "</H1>"
' Add columns of the table
Print #htmlFile, "<TABLE>"
Print #htmlFile, "<TR>"
Print #htmlFile, "<TH WIDTH='225'>Name</TH>"
Print #htmlFile, "<TH WIDTH='225'>City</TH>"
Print #htmlFile, "<TH WIDTH='100' class='right-align'>Double Nr</TH>"
Print #htmlFile, "<TH WIDTH='100' class='right-align'>Date</TH>"
Print #htmlFile, "<TH WIDTH='70' class='right-align'>Flag</TH>"
Print #htmlFile, "</TR>"
' Open recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("QueryTbl_Demo", dbOpenSnapshot)
' Read and write
Do While Not rs.EOF
' Populate all cells
Print #htmlFile, "<TR>"
Print #htmlFile, "<TD WIDTH='225'>" & rs.Fields("DemoTxt").Value & "</TD>"
Print #htmlFile, "<TD WIDTH='225'>" & rs.Fields("DemoMemo").Value & "</TD>"
Print #htmlFile, "<TD WIDTH='100' class='right-align'>" & rs.Fields("DemoDbl").Value & "</TD>"
Print #htmlFile, "<TD WIDTH='100' class='right-align'>" & Format(rs.Fields("DemoDate").Value, "DD/MM/YYYY") & "</TD>"
Print #htmlFile, "<TD WIDTH='70' class='right-align'>" & _
IIf(rs.Fields("DemoBln").Value = True, "<input type='checkbox' checked>", "<input type='checkbox'>") & "</TD>"
Print #htmlFile, "</TR>"
' Move record next
rs.MoveNext
Loop
' Close body and html
Print #htmlFile, "</TABLE></BODY></HTML>"
' Close file html
Close htmlFile
' Close recordset
rs.Close
Set rs = Nothing
Set db = Nothing
' Message end
MsgBox "HTML completed export"
End Sub
e si ottiene il nostro Html :
 | Ecco l'elenco che si scorre come un unica pagina
(penso che intendevi ottenere tale effetto)  |
.... detail ;-)
Molto semplice e veloce .... e a proprio piacimento si imposta lo stile e la formattazione che si desidera proprio come si fa in designer per il report.
Ovviamente, in questo caso, non ti serve più creare il report, ti basta una Query o una Sql string con le Select, join, Where, Order By,etc etc.... e puoi fare tutto da Vba.
Se ti vuoi divertire OsvaldoLaviosa, con questa piccola demo una base adesso ce l'hai... male non fa... prova a provare ;-)