Mise à jour compteur

[LeSkwal]

Bonjour

Voilà le but de ma visite.

J'ai un formulaire et un sous formulaire.

Ce sous formulaire permet d'inscrire des clients et leurs caractéristiques.

Quand un client est rentré : on le sauvegarde ou on peut passer à un enregistrement suivant (qui de fait sauvegarde celui en cours).

J'ai installé 2 zones texte dans lesquels s'inscrivent (en principe):

- Le numéro d'enregistrement (avec la commande)

Code :

=[CurrentRecord]

et

- Le total des enregistrements.(avec la commande)

Code :

=Compte(*)

Voilà ma question :

Les deux compteurs ne se rafraîchissent pas automatiquement.

Lors d'un premier enregistrement, le compteur "TOTAL" indique toujours 0 même lorsque je passe à l'enregistrement suivant.

En revanche, si je quitte le formulaire et que je le relance, là la mise à jour s'effectue correctement - ???? -


Ce que je désire donc, c'est que lors de mes enregistrements, les compteurs s'incrémente de manière automatique. (rafraîchissement automatique)...


Merci d'avance.

Pascal

[Siguillaume]

Dans le code VBA du bouton qui effectue l'enregistrement,, ajoute:

Code :

nom_formulaire.refresh

[LeSkwal]

Désolé cela ne fonctionne pas.

Le bouton créé est un bouton "enregistrement suivant".

Quand je clique dessus rien ne se passe (pas d'incrémentation) et de plus quand je relance le formulaire, un message box apparait pour le demander un N° de clef ???

Pascal

[francishop]

Bonsoir,

Il faut placer sur quelque événement adéquat:

Code :

Me.Requery

Voir :

Code :

Me.MonChampAMettreAJour.Requery

Cordialement

[LeSkwal]

Ca m'aide pas des masses...

Pourrais tu avoir l'extrême obligeance de me m'être ton explication dans un exemple.

Bah oui, quand on est mauvais comme moi en VB, on a besoin d'avoir les points sur les "i" .

Et plutôt 2 fois qu'une....

Merci beaucoup

Pascal

[francishop]

Bonsoir,

Hum... C'est avec des essais, des déconvenues, qu'on obtient des succés.

Ce ".Requery" provoque la mise à jour de la source du formulaire ou d'une donnée. Donc il faut que tu trouves à quel moment cette mise à jour est nécessaire. Généralement on la place sur activation du formulaire. Mais on peut en avoir besoin aprés mise à jour d'un champ, voir même avant cette mise à jour.

Cordialement.

[LeSkwal]

Bonjour

Franchement, je cherche

Une petite question, le code que tu m'as donné :

Code :

Me.MonChampAMettreAJour.Requery

doit-il être utilisé avec :

Code :

=Compte(*)

Si oui comment ?

Une petite précision.

J'ai des champs : Un dans lequel j'ai les numéro d'enregistrement du client, et l'autre, qui fonctionne quand il veut, indique la totalité des enregistrement.

J'AI FAIT UN PETIT ESSAI.
.........................................CHAMPS 1 ..................CHAMPS 2
Je créé un 1er client :.......N° enregistrement = 1......N° total = 0
Je créé un 2ème client :....N° enregistrement = 2......N° total = 0
Je créé un 3ème client :....N° enregistrement = 3......N° total = 0
Je créé un 4 ème client :...N° enregistrement = 4......N° total = 0
Je créé un 5 ème client :...N° enregistrement = 5......N° total = 0

Comme on peut le voir CHAMP 1

Code :

=[CurrentRecord]

Fonctionne très bien

En revanche :

CHAMPS 2

Code :

=Compte(*)

Ne fonctionne pas.

Cependant, dès que je supprime UN ENREGISTREMENT (j'ai créé un bouton pour cela) immédiatement le CHAMPS 2 se met à jour et indique le nombre total des enregistrements.

J'en conclue que ce champs à la bonne fonction VB, mais ne réagit pas lors des enregistrement successif.

J'ai mis t'as commande

Code :

Me.CHAMP2.Requery

dans le bouton enregistrement suivant :

RIEN Y FAIT




PASCAL

[francishop]

Bonjour,

"CHAMPS 2" est bien dans le pied du formulaire?

Cordialement.

[LeSkwal]

CHAMP 2 est bien dans le pied du formulaire, plus précisément dans le pied du sous formulaire.

[Renardo]

Je vient de faire un essai dans un sous form
J'ai cree un champ dans le pied de page dans la source controle de se champ j'ai rentré le code

Code :

=[CurrentRecord]&"/"& Compte(*)

Fait un essai pour moi sa fonctionne
Bon courrage

[LeSkwal]

Ca ne veut rien savoir...

Le compteur total ne fonctionne que lorsque je relance le formulaire...

Pascal

[Renardo]

Essai d'ajouter au sous form sur la procedure :Sur activation

Code :

Me.Recordset.requery

[LeSkwal]

Impeccable le compteur s'incrémente parfaitement mais..... maintenant quand je souhaite supprimer un enregistrement un msgBox apparait avec comme message :

ERREUR D'EXECUTION 3246. Opération non autorisée pendant les transactions

Une soluce ??????


Pascal

[Renardo]

Tu as raison le code provoque une erreure si tu suprime un enreg
tu le suprime et tu essais

Code :

=[CurrentRecord]&"/"& Compte([Champ])

a la place de champ tu entre le nom d'un champ de ton sousform