Discussion :

[Miss Ti]

Bonjour à tous,

Afin de générer des PDF dont le nom par défaut est le nom de l'enregistrement en cours, j'utilise la fonction DoCmd.Rename avant et après l'impression (le 1er renomme avec le nom du site, le second redonne le nom initial à l'état).

Sauf que j'ai noté que s'il y avait une erreur ou une annulation au cours de l'impression, la procédure s'arrête et ... Ben mon état ne reprend pas son nom initial.

Je voudrais écrire une procédure de sauvetage du genre:
Si Report("fiche_complete") n'existe pas alors
teste les noms des états.
si le nom <> "état1" et <> "état2" et <> "état3" et <> "état4" alors
renomme cet état avec "fiche_complete" (dans ce cas, il s'agit de l'état qui n'a pas repris son nom initial)

Le problème est que je n'arrive pas à tester les noms des états.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test_etats()
Dim etat_testé As Report
Dim tous_les_etats As Reports
 
For Each etat_testé In tous_les_etats
    If etat_testé.Name = "fiche_complete" Then
        Exit Sub
    Else
        If etat_testé.Name <> "etat1" And etat_testé.Name <> "etat2" And etat_testé.Name <> "etat3" And etat_testé.Name <> "etat4" Then
            DoCmd.Rename nom_ini_etat, acReport, etat_testé.Name
        End If
    End If
Next
 
End Sub

J'ai le message d'erreur "objet requis" pour la ligne For Each etat_testé In tous_les_etats car etat_testé = nothing

Pourquoi ne parcourt-il pas tous les états?

[Gabout]

Bonjour,

Que sont etat1 ... etat4 ?

Ton erreur ne serait-elle pas produite à cause de ton And donc ne faudrait-il pas utiliser des Or

Gabout

[Miss Ti]

Que sont etat1 ... etat4 ?

Ce sont les autres états (les sous-états composant "fiche_complete".

Ton erreur ne serait-elle pas produite à cause de ton And donc ne faudrait-il pas utiliser des Or

Je cherche le seul état dont le nom est différent de "etat"+n. donc il faut que le nom soit différent de "etat1" ET différent de "etat2" ET différent de "etat3" ET différent de "etat4".
De plus, ça m'étonnerai: l'exécution du code n'atteint même pas cette ligne là.

J'ai le message d'erreur "objet requis" pour la ligne For Each etat_testé In tous_les_etats car etat_testé = nothing

Visiblement, il ne trouve pas les états ou les noms. Manquerait-il quelques chose pour déclarer que les états sont ceux de la base en cours?

[Miss Ti]

J'ai essayé avec le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim etat_testé As Report
Dim tous_les_etats As Reports
Dim dbsA As Database
Set dbsA = CurrentDb
 
For Each etat_testé In dbsA.Reports
...

Mais son exécution bloque sur .reports avec le message

erreur de compilation: membre de méthode ou de données introuvable

Petite précision: j'ai posé tout ce code dans un module pour pouvoir l'utiliser depuis plusieurs formulaires. C'est mal pour gérer les états?

[Miss Ti]

Un coup de main? Une suggestion? Une remarque?
Je n'ai plus que cette procédure "de sauvetage" (qui sert en cas de bug sur un autre code) à finir avant de rendre l'appli...

[Lou Pitchoun]

Salut,

Je ne vois pas le rapport entre

Afin de générer des PDF dont le nom par défaut est le nom de l'enregistrement en cours, j'utilise la fonction DoCmd.Rename avant et après l'impression (le 1er renomme avec le nom du site, le second redonne le nom initial à l'état).

et

Je voudrais écrire une procédure de sauvetage du genre:
Si Report("fiche_complete") n'existe pas alors
teste les noms des états.
si le nom <> "état1" et <> "état2" et <> "état3" et <> "état4" alors
renomme cet état avec "fiche_complete" (dans ce cas, il s'agit de l'état qui n'a pas repris son nom initial)

Le problème est que je n'arrive pas à tester les noms des états.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test_etats()
Dim etat_testé As Report
Dim tous_les_etats As Reports
 
For Each etat_testé In tous_les_etats
    If etat_testé.Name = "fiche_complete" Then
        Exit Sub
    Else
        If etat_testé.Name <> "etat1" And etat_testé.Name <> "etat2" And etat_testé.Name <> "etat3" And etat_testé.Name <> "etat4" Then
            DoCmd.Rename nom_ini_etat, acReport, etat_testé.Name
        End If
    End If
Next
 
End Sub

J'ai le message d'erreur "objet requis" pour la ligne For Each etat_testé In tous_les_etats car etat_testé = nothing

Si ta question c'est de nommer le PDF en fonction de l'enregistrement courant : je ne vois pas pourquoi tu renommes l'état...

Pourquoi ne parcourt-il pas tous les états?

il faut parcourir le containers Reports.

[Miss Ti]

Merci pour le lien Lou Pitchoun.
C'était exactement ce qu'il me fallait.
Et c'est résolu.

Pour quand même répondre à ta question "je en vois pas le rapporte entre... et ..." voici la réponse:

Sauf que j'ai noté que s'il y avait une erreur ou une annulation au cours de l'impression, la procédure s'arrête et ... Ben mon état ne reprend pas son nom initial.
Je voudrais écrire une procédure de sauvetage du genre:

Si ta question c'est de nommer le PDF en fonction de l'enregistrement courant : je ne vois pas pourquoi tu renommes l'état...

Mon but était de pouvoir créer des PDF avec un nom de fichier par défaut correspondant à l'id. du site car l'utilisateur peut lancer la création de plusieurs PDF à la fois pour plusieurs sites. PDFCreator prend le nom de l'état par défaut. Donc comment savoir si le PDF créé "Fiche_complete" concerne BRA1, BRA10 ou VMU4? As-tu vu les tutos sur la manipulation de PDFCreator? C'est vraiment pas simple. Sachant que j'avais 1 journée à dédier à cette base, j'ai fait au plus simple:en renommant l'état avant de lancer l'impression, j'obtiens un PDF dont le nom par défaut est celui de l'identifiant du site en cours. Afin de pouvoir réutiliser cet état à chaque fois, il reprend son nom initial.
En cas de bug (si l'état n'a pas repris son état initial), j'ai maintenant cette procédure de "secours".