Discussion :

[fleptche]

Bonjour.

Je n'arrive pas à trouver une solution pour ne pas réimprimer un état déjà imprimé, afin de ne pas envoyer 2 commandes identiques.
Peut-on utiliser Oui/Non pour cette gestion des impressions ?

Bonne journée à vous

[star]

Je n'arrive pas à trouver une solution pour ne pas réimprimer un état déjà imprimé, afin de ne pas envoyer 2 commandes identiques.
Peut-on utiliser Oui/Non pour cette gestion des impressions ?

J'ai quelques difficultés à cerner le fond du problème que tu exposes. Peux-tu le décrire un peu plus de manière à comprendre de quoi il s'agit au juste ?

Bonne journée à toi aussi
.

[fleptche]

Merci pour l'intérêt que tu portes à ma question.

Je souhaite ne pas imprimer 2 fois l'état d'une même commande, afin de ne pas créer un doublon de commande qui serait donc envoyé 2 fois (et livré 2 fois).
Comment gérer ce nombre d'impressions ?: Si déjà imprimé, je ne réédite pas. Si jamais imprimé: j'édite

[User]

Bonjour,

Pour simplifier, si l'état est basé sur une table de données, il faut ajouter un champ Imprimé/envoyé (Oui/Non) que tu coches quand tu imprime le document.

Ensuite, tu n'autorise l'impression que si le champ imprimé/envoyé est à Non.

Si bien sûr j'ai bien compris la demande

Cdlt,

[fleptche]

Ok merci.

C'est ce que je faisais mais je cherchais à automatiser cette procédure.

Bonne fin de journée

[User]

Si la table en question est la source du formulaire, alors vous pouvez simplement insérer le champ envoye et faire sur un événement :

Code :

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

1
2
 
Me.Envoye = True

Sinon, si vous avez accès à la valeur du champ identifiant IdCommande (ici numérique) de cette table Commandes, alors essayer sur un événement dans le formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim rst as DAO.Recordset
 
set rst=currentdb.openrecordset("select * from Commandes where IdCommande=" & Me.IdCommande)
 
if not rst.eof then
    rst.edit
    rst!Envoye=True
    rst.update
end if
 
rst.close
set rst = nothing

Ensuite, pour tester la valeur du champ vous pouvez utiliser la fonction de domaine dlookup :

Code :

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

1
2
3
if dlookup("Envoye","Commandes","IdCommande=" & Me.IdCommande)=False Then
' imprimer
end if

Cdlt,