Discussion :

[Piloupilou999]

Bonjour à tous,

Pour résumer mon problème

J'ai 2 tables Table 1 et table 2 reliées entre elle par un numautomatique sur la table 1

Ainsi j'ai un formulaire 1 basé sur table 1
sur clic d"un bouton j'ai ouverture d'un formulaire 2 basé sur table 2 et filtré sur num de table 1==> pas de problème jusque la

J'ai évidemment imposé comme valeur par défaut dans num table 2 la valeur Num auto de table 1 ==> toujours pas de problèmes

Donc qd je crée un enregistrement sur formulaire 1 il me créer un enregistrement avec attribué un num automatique puis quand j'ouvre mon formulaire 2 et que je crée un enregistrement il le lie via ce num ==> toujours pas de problèmes lol

Le problème vient quand le formulaire 1 est sur nouvel enregistrement ET que je ne remplis pas de champs de ce formulaire, alors il n'a pas de num automatique attribué et quand je clic sur mon bouton Appel Formulaire 2 il ne sais pas faire le filtre, ni créer de nouvel enregistrement puisque le lien sur num auto n'existe pas car num auto n'est pas attribué...et donc bug

Bref comment faire que lors de mon clic

Code :

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

1
2
3
 
    stLinkCriteria = "[N°consult]=" & Me![N°consult]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Il valide l'enregistrement de mon Formulaire 1 même s'il est vide sauf qu'il lui attribue qd même un num automatique

Bref si je le rempli OK
si je le rempli pas, sur clic "appel formulaire2" il le crée qd même un enregistrement avec un num auto dans ma table 1

Merci de m'avoir lu complètement, je ne suis pas certain d'avoir été très clair mais j'ai essayé d'être le plus complet possible

si vous avez une solution merci de me la proposer

Merci de m'aider

Pierre

[pgz]

Re Bonjour.

Si j'ai compris ton pb, il suffit que tu renseignes un champ si tu es sur un nouvel enregsitrement. Par exemple, si tu as un champ texte ( que j'appelle ici MonChamp) dans table 1,

Code :

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

1
2
3
If IsNull(Me![N°consult]) then Me.MonChamp = "à définir"
stLinkCriteria = "[N°consult]=" & Me![N°consult]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Cela devrait créer le num auto.

Bon courage,

PGZ

[Piloupilou999]

Ceci est exactement ce que je souhaitais, cela marche nickel

Un grand merci

Pierre