title image


Smiley TIPP: HTML-Export selber schreiben...
z.B. so:



Public Function TableToHTML(Optional TblName As String = "Tabelle1", _

Optional FName As String = "I:\samples\test.htm")

Dim OChan As Long, rs As DAO.Recordset, DB As DAO.Database, fld As DAO.Field

OChan = FreeFile()

Open FName For Output As #1

Print #1, "<html><head>"

Print #1, "<meta http-equiv=""Content-Type"" content=""text/html; charset=windows-1252"">"

Print #1, "<title>Ausgabe von Tabelle: " & TblName & "</title>"

Print #1, "<base target=""_self"">"

Print #1, "</head>"

Print #1, "<body><table border=""1"" cellpadding=""0"" cellspacing=""1"" width=""100%"">"

Print #1, "<h2>Tabelle: " & TblName & "</h2><tr><b>"

Set DB = CurrentDb

Set rs = DB.OpenRecordset(TblName, dbOpenDynaset)

For Each fld In rs.Fields

Print #1, " <th>" & fld.Name & "</th>"

Next

Print #1, "</tr></b>"

Do Until rs.EOF

Print #1, "<tr>"

For Each fld In rs.Fields

Print #1, " <td>" & Nz(fld.value, "&nbsp;") & "</td>"

Next

Print #1, "</tr>"

rs.MoveNext

Loop

Print #1, "</tr></table>"

Print #1, "</body></html>"

rs.Close

DB.Close

Close #1

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: