Discussion :

[tibofo]

Bonsoir,
J'ouvre mon formulaire de saisie avec ce code :

Code :

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

DoCmd.GoToRecord , , acNewRec

j'ai une zone de liste déroulante COD_CLIENT dedans.

Avec cet ouverture, si je décide de ne pas faire de saisie et de cliquer sur mon bouton "revenir au menu général", ACCESS me sort une belle erreur "impossible de trouver l'enregistrement dans la table CLIENT correspondant à la valeur de COD_CLIENT

Je ne rien saisi dans COD_CLIENT : justement, puisque je ne veux plus saisir

(je suis obligé de traiter ce cas, car un utilisateur vient de me le faire plusieurs fois)

Or, j'ai constaté que à l'ouverture de mon formulaire, ACCESS m'incrémente le N° auto de mon doc. Par contre, si je fais ECHAP, le N° devient "(Nouv.)" et là, pas de problème si l'utilisateur désire quitter sans faire de saisie

Ma question est donc : est-ce possible d'ouvrir un formulaire sans que cela commence à enregistrer une nouvelle donnée ? Ou Pire (mais au moins cela marcherait) puis-je simuler dés l'ouverture aprés mon bout de code, l'appui sur la touche ECHAP ?
Edit : je viens de trouver pour la touche ECHAP : mais ce n'est pas bon car cela me saute un N° dans le compteur automatique

Merci
Thibault

[User]

Salut,

Pour annuler la mise à jour tu peux essayer en VBA dans le module du formulaire:

Code :

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

1
2
 
Me.Undo

A+

[tibofo]

Merci mais c'est pareil

J'ai testé à l'envers en me disant

"j'ai peut être foiré du code dans un autre événement ?!

Alors j'ai retiré soit le sendkey et le me.undo (tous les 2 deux testé chacun leur tour, bien évidement ).

Et dans ce cas, le compteur ne saut plus un enregistrement.

Mais je reviens à mon point de départ : je ne peux pas quitter mon formulaire si je n'ai pas renseigner un des champs de l'entête.


C'es tordu, cette situation ?!

[User]

Salut,

Dans le code du bouton "revenir au menu général":

Au début du code essaie de mettre:

Code :

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

1
2
Me.DataEntry = False
Me.Filter = ""

A+

[tibofo]

Bonsoir et merci.

Cela plante également. Le message change un peu (cette fois-ci, j'ai un N° d'erreur)

Erreur d'exécution '3101' :
Le moteur de base de données Microsoft Office Access ne peut pas trouver d'enregistrement dans la table "CLIENTS" avec le(s) champ(s) "ENTETES_VTES.COD_CLT" correspondant à la clé.

Est-ce que tu as une autre idée ou qq'un d'autres ??

Merci

[User]

Salut,

Cela concerne peut-être une relation 1 à plusieurs entre tes 2 tables:
Ajout d'un enregistrement coté plusieurs qui n'a pas de référent coté 1.