exportation en HTML statique (ACCESS)

Question

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 ?

cs_dragon · Answer

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


'*****************************************************************
'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, ""
    Print #1, "  "
    Print #1, "    Horaire " & jour_semaine(Int(sem), Int(année)) & " pour le(s) département(s) : " & Mid(dept, 2, Len(dept) - 2) & ""
    Print #1, "  "
    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, "    "
Print #1, "    "
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, "          "
    Print #1, "       "
    Print #1, "    "
    Print #1, "     

"
    
    'lecture des absences
    Set rst  = CurrentDb.OpenRecordset("SELECT * from rq_absence;")
    
    'création d'un double tableau
    Print #1, "    "
Print #1, "      "

'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] & \"\"
Print #1, \"          " & rst![Description] & ", \"
Print #1, \"        \"
rst.MoveNext
Wend

'fermer le dernier tableau
    Print #1, "
"
    Print #1, "    "
    
    'saut de ligne
    Print #1, "     

"
    
    'pompier et premier soins
    Set rst  = CurrentDb.OpenRecordset("SELECT * from texte2;")
    Print #1, "    \"
While Not rst.EOF
Print #1, \"      ----
\"
Print #1, \"        " & IIf(rst![texte] = "", "", 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, "    \"
Print #1, \"      \"
Print #1, \"        Date d'impression : \" & rst![texte]
Print #1, \"      \"
    Print #1, "
"
    
    'fermer la page HTML
    Print #1, "  "
    Print #1, ""
    
    'fermer le fichier
    Close #1
    
End Function

cclin · Answer

en effet c'est bien avec ACCESS 97. Je vais essayer en me basant sur ton code. Merci

cs_dragon · Answer

si t'as des question gêne toi pas, je sais que je joue beaucoup avec les tableau dans mon code

cclin · Answer

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 !!!

cs_dragon · Answer

bof, le résultat est plus beau quand je le code moi même, pis ,est pas très long a faire

Exportation en HTML statique (ACCESS)

5 réponses

Discussions similaires