Discussion :

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai dans un formulaire pas mal compliqué un champ qui affiche mon autonum.
Si on alimente le formulaire directement avec la table, au moment de l'événement beforeInsert, la valeur de l'autonum est disponible.
Or je dois passer par une requête et là, au moment du beforeInsert, la valeur n'est pas disponible. On a Null.

Les événements sont les suivants :

1. Ajout d'un enregistrement :
   Le champ autonum de la table vaut "(Nouv)".
   Le champ autonum de la requête vaut "(Nouv)".
2. Début de saisie dans un des champs (n'importe lequel)
   Le champ autonum de la table vaut le nouveau numéro.
   Le champ autonum de la requête vaut "(Nouv)".
3. Passage au champ suivant
   Le champ autonum de la table vaut le nouveau numéro.
   Le champ autonum de la requête vaut "(Nouv)".

Donc à un moment donné j'ai bien l'info dont j'ai besoin dans mon formulaire basé sur la requête.
Le problème est que je n'arrive pas à détecté quand l'autonum passe de Null à UneValeur.
Il ne semble pas y avoir d'événement (ou je ne l'ai pas trouvé) au niveau du formulaire.
Je ne peut pas travaillé aux niveaux des champs de saisie individuellement (ex : en appelant du code dans [/CODEinline]afterUpdate[CODEinline] du champ) car j'en ai beaucoup trop.

J'ai essayé de mettre me.MonChampAuto.Requery au niveau de l'événement BeforeInsert du formulaire, mais cela ne change rien, tant que je n'ai pas changé de champ, l'autonum vaut Null.
J'ai essayé un me.requery mais cela ne marche pas non plus, il recharge toute mes données et ma création est perdue.

Je ne peut pas, à priori, récupéré l'enregistrement de la table avec l'autonum Max car l'appli est multi utilisateurs et donc je pourais avoir eu plusieurs créations.

Si quelqu'un a une idée ou une piste ou mieux une solution :-), je suis preneur.

A+

[hyperion13]

Salut,
Est-il possible sur l'évènement AfterUpdate() ou BeforeUpdate(Cancel As Integer) de la zone de texte qui suit celle de ton autonum d'insérer ce bout de code :

Code :

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

1
2
Dim id As Long
id = Nz(DMax("id", "Ma_Tbl"), 0) + 1

[marot_r]

Bonjour.

Hélas, comme je l'ai dit je suis en multi-ultisateur donc le Max pourrais correspondre à celui d'un autre utilisateur.
Et l'utilisateur peut saisir les informations dans n'importe quel ordre donc si je veux le faire avec un événement au niveau du champ, il faut que je le fasse pour tous et j'en ai environ 70.

A+

[hyperion13]

Re,
J'avais un doute sur ta demande.
De tous les contrôles de ton formulaire, ne peux-tu pas imposer à chaque fois qu'on ouvre ou qu'on rafraichisse le formulaire (Form_Open(), Form_Load()) de forcer un Set.focus sur l'un des contrôles ?

[marot_r]

Il y a un set focus mais mon utilisateur peut décider de commencer par un autre champ.

Par contre cela m'a donné une idée, je vais vérifier avec mon utilisateur mais je pense que le champ Titre devrait probablement être obligatoirement saisi donc on pourrait récupérer le numéro à ce moment.

A+

[marot_r]

J'ai vu avec mon client, on va détecter la modification de 2 champs particuliers et cela va être suffisant.

A+

[micniv]

Salut, Marot,

Si tu fais un INSERT via un recordset ,
donc après rst.ADDNEW, après avoir valorisé un champ au moins, la valeur de rst!idAuto est disponible, avant le rst.UPDATE

Si ça peut aider. CDLT

[marot_r]

Merci pour l'info.

C'est un formulaire lié donc pas de Insert SQL.

A+