Exportation en HTML statique (ACCESS)

Signaler
Messages postés
4
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
14 janvier 2005
-
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
-
Lors de l'exportation d'un état en HTML statique, une fenètre apparait "erreur de compilation - projet ou bibliothèque introuvable". Dans Outils "références", 3 bibliothèques sont cochées et ne peuvent être décochées (VBA, Mst access 8.0 Oblect library et Mst DAO 3.51 Object Library).
Que faire ?

5 réponses

Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
laisse moi devienner, access 97 ???
si oui, j,ai eu le même problème, je me susi tannée pis j'ai fais mon propre compilateur HTML

Voici a quoi pourrais ressembler ton code, mais c'est sur faut le refaire a chaque fois, mais si on est bon en HTML, c'est pas ben ben compliquer, masi faut-être bon avec les tableau. sauf en gros, ça fini presque a ressembler a du php ou de l'ASP la façon de le coder

<code>
'*****************************************************************
'Fonction : début_création_html *
' Reçoi : *
' Année As String *
' sem As String *
' Retourne : rien *
' Projet : Rapports_Timetech *
' Par : Maxime Savard *
' Le : 2004-02-10 *
' description : Permet de créer la page html de façon dynamique *
' *
' http://wp.netscape.com/assist/net_sites/table_sample.html *
' *
'*****************************************************************
' Mise à jour le : 2004-02-18 *
' description : tous on le nom de horaire *
'*****************************************************************
Private Function début_création_html(année As String, sem As String, dept As String)
Dim temp As String
Dim temp2 As String
Dim rst As Recordset

temp = ""


'///////////
' Mise à jour le : 2004-02-18
' description : tous on le nom de horaire
'\\\\\\\\\ 'ouverture du fichier pour écrire le html, efface le contenu si existant
Open répertoireTemp & "horaire.html" For Output As #1

'Enthête HTML
Print #1, "<HTML>"
Print #1, " <HEAD>"
Print #1, " <TITLE>Horaire " & jour_semaine(Int(sem), Int(année)) & " pour le(s) département(s) : " & Mid(dept, 2, Len(dept) - 2) & "</TITLE>"
Print #1, " </HEAD>"
Print #1, " "

'lecture de la requête
Set rst = CurrentDb.OpenRecordset("SELECT * from Rq_Horaire order by departement, index, debut, fin, jour, job;")

Print #1, " \"
Print #1, \" ----
\"
Print #1, \" " & rst![departement] & " |\"
Print #1, \" " & rst![texte] & " |\"
Print #1, \" \"
Print #1, \" ----
\"
Print #1, \" "
temp2 = rst![departement]

While Not rst.EOF
'si le jour change
If temp2 <> rst![departement] Then
Print #1, " "
Print #1, "

"
Print #1, " <hr>"
Print #1, " <TABLE border= 0 WIDTH=100%>"
Print #1, " ----
"
Print #1, " \" & rst![departement] & \" |"
Print #1, " \" & rst![texte] & \" |"
Print #1, " "
Print #1, " ----
"
Print #1, ", \"
temp2 = rst![departement]
End If
If temp <> rst![jour] Then
'si c'est pas le premier coup, puisque le premier coup temps = \"\"
If temp <> \"\" Then
'fermer le tableau
Print #1, "
"
Print #1, "

"
End If
'temp est égal a la nouvelle journée
temp = rst![jour]

'Écriture des enthetes
Print #1, " \"
Print #1, \" ----
\"
Print #1, \" Heure |\"
Print #1, \" Poste |\"
Print #1, \" Dimanche |\"
Print #1, \" Lundi |\"
Print #1, \" Mardi |\"
Print #1, \" Mercredi |\"
Print #1, \" Jeudi |\"
Print #1, \" Vendredi |\"
Print #1, \" Samedi |\"
Print #1, \" \"
Print #1, \" ----
\"
Print #1, \" " & rst![jour] & "
|\"
Else
Print #1, \" ----
\"
Print #1, \"  
|\"
End If

'écriture des données
'si la lecture est null, remplacer par  , sinon le carré sera pas présent

Print #1, \" " & IIf(IsNull(rst![NAME]), " ", rst![NAME]) & "
|\"
Print #1, \" " & IIf(IsNull(rst![Dimanche]), " ", rst![Dimanche]) & "
, \"
Print #1, \" " & IIf(IsNull(rst![Lundi]), " ", rst![Lundi]) & "
, \"
Print #1, \" " & IIf(IsNull(rst![Mardi]), " ", rst![Mardi]) & "
, \"
Print #1, \" " & IIf(IsNull(rst![Mercredi]), " ", rst![Mercredi]) & "
, \"
Print #1, \" " & IIf(IsNull(rst![Jeudi]), " ", rst![Jeudi]) & "
, \"
Print #1, \" " & IIf(IsNull(rst![Vendredi]), " ", rst![Vendredi]) & "
, \"
Print #1, \" " & IIf(IsNull(rst![samedi]), " ", rst![samedi]) & "
, \"
Print #1, \" \"
rst.MoveNext
Wend
'fermeture du dernier tableau
Print #1, "
"
Print #1, " </TR>"
Print #1, " </TR>"
Print #1, " </TABLE>"
Print #1, "

"

'lecture des absences
Set rst = CurrentDb.OpenRecordset("SELECT * from rq_absence;")

'création d'un double tableau
Print #1, " "
Print #1, " <TABLE BORDER= 1 WIDTH=100%>"

'enthete
Print #1, " ----
"
Print #1, " Absence(s) |"
Print #1, " "

'ajouter les absents
While Not rst.EOF
Print #1, " ----
"
Print #1, " \" & rst![int_nom] & \" |"
Print #1, " \" & rst![Nom] & \" |"
Print #1, ", \" & rst![jour_absent] & \"</TD>\"
Print #1, \" " & rst![Description] & ", \"
Print #1, \" \"
rst.MoveNext
Wend

'fermer le dernier tableau
Print #1, "
"
Print #1, " </td></tr></TABLE>"

'saut de ligne
Print #1, "

"

'pompier et premier soins
Set rst = CurrentDb.OpenRecordset("SELECT * from texte2;")
Print #1, " <TD>\"
While Not rst.EOF
Print #1, \" ----
\"
Print #1, \" " & IIf(rst![texte] = "", "<hr size=5 color=#000000>", rst![texte]) & " |\"
Print #1, \" \"
rst.MoveNext
Wend
Print #1, "
"

'saut de ligne
Print #1, "

"

'Date d'impression
Set rst = CurrentDb.OpenRecordset("select * from [date]")
Print #1, " <TD>\"
Print #1, \" \"
Print #1, \" Date d'impression : \" & rst![texte]
Print #1, \" \"
Print #1, "
"

'fermer la page HTML
Print #1, " "
Print #1, "</HTML>"

'fermer le fichier
Close #1

End Function
</td></tr></table>
Messages postés
4
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
14 janvier 2005

en effet c'est bien avec ACCESS 97. Je vais essayer en me basant sur ton code. Merci
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
si t'as des question gêne toi pas, je sais que je joue beaucoup avec les tableau dans mon code
Messages postés
4
Date d'inscription
mercredi 23 juin 2004
Statut
Membre
Dernière intervention
14 janvier 2005

en fait, en réinstallant ACCESS j'ai vu qu'il y avait une option "exportation en html" qui n'avait pas été cochée lors de la 1ere installation ! Et donc ça marche. Essaie, ça marchera peut-être pour toi aussi !!!
Messages postés
2336
Date d'inscription
samedi 14 juillet 2001
Statut
Membre
Dernière intervention
5 mai 2009
6
bof, le résultat est plus beau quand je le code moi même, pis ,est pas très long a faire