OVH Cloud OVH Cloud

générer plusieurs états automatiquement

6 réponses
Avatar
PGT29
Bonjour et merci d'avance à toutes et tous,

situation résumée :
1 requête sélection avec plusieurs champs dont un appelé CODE (plusieurs
lignes peuvent contenir le même CODE )

besoin :
générer autant d'états qu'il y a de CODE différents en leur donnant comme
nom d'état INVENTAIRE_CODE_DATE_HEURE, où INVENTAIRE est un mot fixe, CODE
est le contenu du champ CODE pour l'état considéré, DATE et HEURE sont les
dates et heures de création de l'état.

exemple
CODE MATERIEL
ROME CHARIOT
VENISE CAISSON
VENISE CONTAINER
MILAN CONTAINER
ROME CAGEOT

et je souhaite les états suivants:
INVENTAIRE_ROME_20061016_22h55
qui contient CHARIOT et CAGEOT
INVENTAIRE_VENISE_20061016_22h55
qui contient CAISSON et CONTAINER
. . .


Voilà , j'espère avoir été clair.
Si, j'oubliais, j'utilise Access 2000.

Merci d'avance
Hervé

6 réponses

Avatar
3stone
Salut,

"PGT29"
| situation résumée :
| 1 requête sélection avec plusieurs champs dont un appelé CODE (plusieurs
| lignes peuvent contenir le même CODE )
|
| besoin :
| générer autant d'états qu'il y a de CODE différents en leur donnant comme
| nom d'état INVENTAIRE_CODE_DATE_HEURE, où INVENTAIRE est un mot fixe, CODE
| est le contenu du champ CODE pour l'état considéré, DATE et HEURE sont les
| dates et heures de création de l'état.


Dans l'état, crée un regroupement sur le champ CODE
- ajoute éventuellement un saut de page après le pied de groupe

Dans l'entête de page, tu place une zone de texte et comme source:

= "Inventaire " & [CODE] & " " & format(now,"dd/mm/yyyy hh:nn")


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
RVTISS
Merci pour la réponse, mais ce dont j'ai besoin c'est d'autant
d'états générés qu'il y a de code différents, les sauts de page au
sein d'un état j'avais trouvé et j'utilise mais là je veux pouvoir
ensuite exporter chaque état sous forme d'un PDF que j'enverrai par
e-mail.
Il me faut donc une routine qui créé un état pour chaque contenu du
champ CODE dans ma requête.

Merci encore, dans l'attente d'une miraculeuse solution (rien trouvé
dans l'histo du NG)

Hervé
3stone wrote:
Salut,

"PGT29"
| situation résumée :
| 1 requête sélection avec plusieurs champs dont un appelé CODE (pl usieurs
| lignes peuvent contenir le même CODE )
|
| besoin :
| générer autant d'états qu'il y a de CODE différents en leur don nant comme
| nom d'état INVENTAIRE_CODE_DATE_HEURE, où INVENTAIRE est un mot fix e, CODE
| est le contenu du champ CODE pour l'état considéré, DATE et HEURE sont les
| dates et heures de création de l'état.


Dans l'état, crée un regroupement sur le champ CODE
- ajoute éventuellement un saut de page après le pied de groupe

Dans l'entête de page, tu place une zone de texte et comme source:

= "Inventaire " & [CODE] & " " & format(now,"dd/mm/yyyy hh:nn")


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/


Avatar
3stone
Salut,

"RVTISS"
Merci pour la réponse, mais ce dont j'ai besoin c'est d'autant
d'états générés qu'il y a de code différents, les sauts de page au
sein d'un état j'avais trouvé et j'utilise mais là je veux pouvoir
ensuite exporter chaque état sous forme d'un PDF que j'enverrai par
e-mail.
Il me faut donc une routine qui créé un état pour chaque contenu du
champ CODE dans ma requête.



Ajustes les noms utilisés ici, et place cela dans la sub "sur clic"
d'un bouton, par exemple :


Sub PrintAllReport()
Dim rst As Recordset
Dim sSQL As String
Dim iRep As Integer

'ajuster le nom de la table !!!
sSQL = "SELECT [Code] From tbl_LaTable GROUP BY [Code];"

Set rst = CurrentDb.OpenRecordset(sSQL)

Do Until rst.EOF
'si code est texte - ajuster "ReportName"
' DoCmd.OpenReport "ReportName", , , "[Code]='" & rst!Code & "'"
'si code est numérique
' DoCmd.OpenReport "ReportName", , , "[Code]='" & rst!Code & "'"
rst.MoveNext
Loop

rst.Close
Set rst = Nothing

End Sub

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
3stone
heu... erreur de copier/coller ;-)

'si code est numérique
DoCmd.OpenReport "ReportName", , , "[Code]=" & rst!Code



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
PGT29
Merci,malheureusement j'ai :
Erreur d'execution '13'
Incompatibilité de type
en pointant une erreur sur la ligne sSQL= "Select [CODE] . . . ."


??? Kesako, je comprends rien, le champ code contient 3 lettres, jamais
plus, jamais moins

Merci pour votree patience


"3stone" a écrit dans le message de news:

heu... erreur de copier/coller ;-)

'si code est numérique
DoCmd.OpenReport "ReportName", , , "[Code]=" & rst!Code



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/



Avatar
3stone
re,

"PGT29"
| Merci,malheureusement j'ai :
| Erreur d'execution '13'
| Incompatibilité de type
| en pointant une erreur sur la ligne sSQL= "Select [CODE] . . . ."


Vérifie ce que tu tapé...

Tu as bien adapté les noms, oui ?


| ??? Kesako, je comprends rien, le champ code contient 3 lettres, jamais
| plus, jamais moins


si tu as des lettres (et non des chiffres) c'est la première
ligne que tu doit utiliser et tu commente la seconde !

DoCmd.OpenReport "ReportName", , , "[Code]='" & rst!Code & "'"


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/