Discussion :

[Chekov]

Bonjour,

la FAQ Access indique bien comment imprimer l'état, mais le mien contient un paramètre. A son ouverture, un numero est demandé par rapport auquel l'etat correspondant est imprimé.

J'ai bien vu que

Code :

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

AppAccess.DoCmd.OpenReport NomEtat, acViewNormal

permettait l'ajout de filtre et condition Where mais je n'arrive pas à utiliser mon parametre là dedans.

Mon etat fait appel à une requête SQL de ce genre:

Code :

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

1
2
SELECT [...]
HAVING (((CHANTIERS.Identifiant)=[Numéro du chantier ?]));

Le paramètre demandé est [Numéro du chantier ?] (correspondant au champ Identifiant de la table CHANTIERS).

Comment imprimer depuis VB l'état correspondant à un chantier précis sans avoir à le saisir dans l'inputbox qui s'affiche par Access?

Bonne soirée

[pgz]

Bonjour.

Il y a plusieurs façons de régler le pb, suivant ce que tu peux modifier ou pas.
En voici une sans modifier la requête.

Dans l'état, ajouter une procédure évènementielle sur ouverture

Code :

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

1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
    Me.RecordSource = Replace(Me.RecordSource, "[Numéro du chantier?]", Me.OpenArgs)
End If
End Sub

Et la procédure d'appel

Code :

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

AppAccess.DoCmd.OpenReport NomEtat, acViewNormal, , , , NumChantier

où NumChantier est un numérique représentant le numéro de chantier.

Si tu as une version d'access qui permet le passage d'OpenArgs. Sinon, il y a d'autres moyens.

Bon courage,

PGZ

[Chekov]

Merci pour la réponse,

oui je pense que ça peut marcher mais je ne suis pas sur de bien comprendre où je dois placer

Code :

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

1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
    Me.RecordSource = Replace(Me.RecordSource, "[Numéro du chantier?]", Me.OpenArgs)
End If
End Sub

Premierement, lors de AppAccess.DoCmd.OpenReport, il ouvre Access et bloque sur "If Not IsNull(Me.OpenArgs) Then" en m'ouvrant la boite de debogage (il ne connait pas .OpenArgs).
J'ai ouvert en mode création mon Etat, cliqué sur Code et collé la Sub Report_Open dans le module.
Je pense qu'il faudrait plutôt le mettre dans le code de la requête associée à cet Etat mais je ne vois pas trop comment faire...

Deuxièmement, AppAccess.DoCmd.OpenReport ne prend que 3 arguments, donc pourquoi places tu "NumChantier" en 6è argument ?