Numéroter un état

Bjr chers tous;
SVP, est-ce quelqu'un pourrai m'aider? Mon problème est le suivant:

J'utilise une application de caisse enregistreuse pour mon magasin que j'ai d'ailleurs télécharger sur developpez.net et dont j’apprécie beaucoup et profite pour remercier et féliciter son concepteur

Cette application ouvre et imprime un état à la fin de la procédure... Alors j'aimerai afficher un numero automatique (qui s’incrémente) sur l'etat a chaque ouverture de ce dernier (différent biensûr du numero de page) et si possible limiter de 1 à 9 et après ça réinitialise de 1...

bonsoir,
il faut pouvoir mémoriser le numéro de manière permanente, je créerai donc une table paramètre (qui peut éventuellement servir à d'autres utilisations):
nom: tbl_param
id_param type Numéro Auto (identifiant unique du paramètre)
Desc_Param type texte (description du paramètre)
ValParamA type texte (pour un paramètre texte)
ValParamN type Entier Long (pour un paramètre numérique entier)
ValParamD type date (pour un paramètre date)
ValParamC type monétaire (pour un paramètre montant)

Créer ensuite un nouvel enregistrement avec le descriptif du paramètre:

Pièce jointe 475891

Dans l'état créer un contrôle de type étiquette (icône Aa) qui contiendra le numéro incrémenté, le renommer NumEdition et entrer n'importe quelle valeur, car c'est obligatoire.
Puis mettre ce code sur l'évènement Open de l'état:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Report_Open(Cancel As Integer) Dim oRst As Recordset Set oRst = CurrentDb.OpenRecordset("select * from tbl_param where id_param=1", dbOpenDynaset)   With oRst .Edit ' Réinitialisation si on a atteint la valeur maximum If .Fields("ValParamN") = 9 Then .Fields("ValParamN") = 1 Else ' Sinon, incrémentation de la valeur .Fields("ValParamN") = .Fields("ValParamN") + 1 End If .Update Me.NumEdition.Caption = .Fields("ValParamN") .Close End With   Set oRst = Nothing End Sub

---

Merci, je m'en vais essayer tout de suite. :pc

tee_grandbois merci pour votre aide ça a fonctionné comme sur des roulettes

Bonjour, comme on dit l’ appétit vient en mangeant.

SVP serait-il possible que le même numéro qui s'affiche sur le premier état puisse s'afficher aussi sur un autre état

Non, car ce que tu demandes est une gestion de l'édition tout à fait différente: l'incrément du numéro se fait à chaque fois qu'un état est ouvert et là tu demandes de le faire à chaque fois qu'un état est édité.
Ce serait possible si toutes les éditions étaient centralisés sur un seul formulaire, mais là aussi, il est difficile de connaitre l'élément déclencheur de l'incrémentation car plusieurs paramètres sont à prendre en compte: les éditions demandées, l'ouverture du formulaire ...
Il faudrait donner plus d'informations sur le besoin.

ok!!! je mesure un peu la complexité....Mais serait-il possible pour le second état d'afficher le dernier numero incrementé? C'est à dire une fois le 1er etat exécuté, en cliquant sur un bouton de commande que le 2nd etat s'exécute tout en affichant le dernier numero incrementé. Cela serait peut être plus facile je crois si au niveau de la table paramètre il existait un champ où apparait le num incrémenté.

bonjour,

Citation:

---

Cela serait peut être plus facile je crois si au niveau de la table paramètre il existait un champ où apparait le num incrémenté.

---

C'est le cas actuellement (le champ ValParaN), mais comme je l'expliquais dans mon post précédent, c'est l'ouverture d'un état qui déclenche l'incrément.
Pour que les autres états affichent ce même numéro, il faudrait que l'état déclenchant l'incrémentation soit ouvert systématiquement en premier.

Bonsoir,

Oui exactement, l'état qui déclenche l’incrément s'ouvre en 1er.
En fait de quoi s'agit-il?
J'ai deux états qui s'ouvrent à partir de deux commandes différentes. L'état N01 (qui incrémente) s'ouvre en 1er, après l'utilisateur appuis sur la 2nde commande qui génère l'état N02 et j'aimerai que l'etat N02 affiche le dernier numero incrementé

donc ce cas, il faut juste récupérer la valeur du N° à l'ouverture du second état:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Report_Open(Cancel As Integer) Dim oRst As Recordset Set oRst = CurrentDb.OpenRecordset("select * from tbl_param where id_param=1", dbOpenSnapshot)   With oRst Me.NumEdition.Caption = .Fields("ValParamN") .Close End With   Set oRst = Nothing End Sub

---

ou plus simplement avec une fonction de domaine:

Code:

---

1 2 3

Private Sub Report_Open(Cancel As Integer) Me.NumEdition.Caption = Dlookup("ValParamN","tbl_param","id_param=1") End Sub

---

ok effectivement ça marche avec ce code et je vais opter pour ça c'est moins encombrant.

Sinon j'avais trouvé la solution autrement . Comme l'état N02 est basé sur une requête j'ai ajouter dedans le champ "ValParamN" et enfin ajouter ce dernier à l'état.

C'est bon comme je souhaite now. En tout cas merci pour ton aide.