Discussion :

[aujero]

bonjour a tous !

j'ai fais un formulaire bon de commande et un état j'ai également fais un bouton pour imprimer l'état le seul souci et qu'il m'imprime tous les enregistrement

j'ai regarder les cours mais je n'ai aucune connaissance en VBA je suis arriver a suivre quelques trucs mais pas tout
est il possible de me suivre pas à pas pour que je puisse y arrivé

merci d'avance pour votre aide

[loufab]

Déjà évoqué à mainte reprise dans ce forum.

Code :

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

docmd.openreport Nomdureport,,,"N_commande=" & me.n_commande

utilise le paramètre Where de la commande... tout simplement.

[aujero]

merci

il y a du mieux mais c'est pas encore ca il m'imprime l'état vierge

[loufab]

ok tu es sur la bonne piste.

Code :

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

"N_commande="

est le nom du champ N° de commande (ton identificateur unique de la commande) dans l'état.

Code :

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

me.n_commande

est son pendant dans le formulaire par lequel tu appelles l'état.

CEtte syntaxe est valable dans le cas ou N_commande (ou le nom que tu lui à donné) est de type numérique.

Dans le cas d'un numéro au format texte (hé oui c'est possible) la commande est légèrement différente.

Code :

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

"N_commande=""" & me.n_commande & """"

Lorsque tu tapes cette commande cette option est placé sur le paramètre Where indiqué par la petite info bulle jaune qui s'affiche en dessous.

Si tu as des problèmes tu peux toujours vérifier que le paramètre n_commande retourne bien le N°

Pour cela tu peux utiliser la commande suivante :

Code :

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

msgbox me.n_commande

dans ton code.
aiiiii j'avais oublié les tag Code...

[aujero]

désolée
je suis perdue je vais te donner ce que j'ai fais

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
16
Private Sub commande_Click()
On Error GoTo Err_commande_Click
 
    Dim stDocName As String
 
    stDocName = "E_Commande"
    DoCmd.OpenReport stDocName, acNormal
 
Exit_commande_Click:
    Exit Sub
 
Err_commande_Click:
    MsgBox Err.Description
    Resume Exit_commande_Click
 
End Sub

[aujero]

je ne sais vraiment pas quoi faire

peux tu m'aider stp