Discussion :

[ronpub]

Bonjour,

J'ai une table tbl_Contact (idccontact, nom, prenom, ...) accessible depuis un formulaire F_Contact_Tout. Depuis un bouton d'un formulaire externe, je voudrais qu'à la création d'un nouvel enregistrement de contact, créer un enregistrement du sous-formulaire lié à la table tbl_Evenement (ide, idecontact, date, evenement). La liaison parent se fait par idccontact(parent)/idecontact(fils).

En gros à chaque création dans la table tbl_Contact, générer un enregistrement dans la table tbl_Evenement comme quoi la fiche du contact à été créée.

Je n'y parviens pas. J'ai bien essayé des trucs comme:

Code :

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

1
2
3
4
5
6
 
DoCmd.OpenForm "F_Contact_Tout", acNormal, , , acFormAdd
DoCmd.GoToRecord , , acNewRec
Forms![F_Contact_Tout]![FS_Evenement].[FS_Evenement].Form![Date] = Date
Forms![F_Contact_Tout]![FS_Evenement].[FS_Evenement].Form![Evenement] = "Création fiche"
...

J'ai bien la création d'un nouvel évènement mais la liaison parent/enfant ne se passe pas bien car à la création de l'enregistrement, idccontact qui est une numérotation automatique n'aurait pas tout de suite une valeur.

Je ne sais pas si j'ai été assez clair. Quelle serait la bonne pratique?

Access 2000
Ron

[ypicot]

Comme tu l'as détecté, tu fais ton insertion trop tôt.
Il faudrait plutôt utiliser l'évènement de formulaire AfterInsert (après insertion) de ton contact pour mettre à jour ta table évènement.
Au passage, je te suggère de faire ton insertion en utilisant le SQL (INSERT INTO...), ce qui t'éviterai d'avoir à passer par un formulaire pour remplir la table évènement.

Yvan

[ronpub]

Il faudrait plutôt utiliser l'évènement de formulaire AfterInsert (après insertion) de ton contact pour mettre à jour ta table évènement.
Yvan

Je pensais bien qu'un truc comme cela devait exister mais je n'aurais jamais pensé que AfterInsert était l'évènement qu'il fallait.
Merci.
Ca fonctionne. Je passe toujours par un formulaire pour certaines raisons HS ici.

Voici mon code de l'évènement AfterInsert du formulaire F_Contact_Tout

Code :

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

1
2
3
4
5
 
Private Sub Form_AfterInsert()
    Me.FS_Evenement.Form![Date] = Date
    Me.FS_Evenement.Form![Evenement] = "Création de la fiche"
End Sub