Discussion :

[4rocky4]

Bonjour tout le monde,

J'ai un petit problème dans mon application Access, je vous l'explique :

Alors j'ai un formulaire qui permet de saisir des informations. Ce formulaire permet de renseigner plusieurs tables de ma base. Table contact, avoir, situation

La table Avoir est une CIM entre contact et situation.
Lorsque je saisie un nouveau contact, j'entre donc les informations de la table contact ainsi que les informations de la CIM Avoir.
Il est obligatoire qu'un contact soit créé avant de remplir la CIM.

C'est là que j'ai un problème, donc dans mon formulaire, je remplie les informations du contacts puis à la suite, dans le même formulaire je remplie la CIM. Une fois que j'arrive aux informations de la CIM, je ne peux plus modifier les informations d'au dessus car le contact se créé automatiquement.

Comment puis je faire pour avoir un bouton qui permette d'enregistrer toutes les informations en meme temps ?
( Une fois sur les informations de la CIM, si je clique sur le bouton Annuler, cela me dit qu'un enregistrement va etre supprimé)

Si je me suis mal fait comprendre, je suis disponible pour répondre aux questions.

Merci bien par avance.

[4rocky4]

Je peux peut être amener d'autres précisions si il y a besoin.
Je n'ai toujours pas trouvé la solution :-(

[azertix]

Ben, tu fais deux AddNew séparés dans ton code déclenché par l'évènement Sur click de ton bouton.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim bd As Database
Dim t As Recordset
 
Set bd = CurrentDb
Set t = bd.OpenRecordset("MaTable", DB_OPEN_DYNASET)
t.AddNew
'Ajout des enregistrements dans la table contact
t![MonChamp] = Me.MonContrôle
t.Update
t.MoveLast
 
Dim bd2 As Database
Dim t2 As Recordset
 
Set bd2 = CurrentDb
Set t2 = bd2.OpenRecordset("MaTable2", DB_OPEN_DYNASET)
t2.AddNew
'Ajout des enregistrements dans la table Avoir
t2![MonChamp] = Me.MonContrôle
t2.Update
t2.MoveLast

[4rocky4]

Salut,
Je te remercie pour ta réponse.
Je n'ai pas essayé de faire comme tu l'indique, je le fait ce soir.

Cependant, cela va me permettre d'enregistrer mais lors de la saisie, une fois que les info du contact seront saisie je pourrais y revenir pour modifier avant d'enregistrer ?

Car le problème, c'est qu'une fois que les info du contact sont finis et que je suis passé aux info de la CIM, je ne peux plus venir modifier, le nouveau contact est déjà créé dans la base sans que j'ai validé.

Merci bien encore !!!

[azertix]

La modification se fait exactement comme l'ajout d'un enregistrement, sauf que c'est la méthode Edit au lieu de AddNew
Ensuite, tu peux confirmer l'ajout avec un MsgBox :

Code :

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

1
2
3
4
5
Dim rep As Integer
rep = MsgBox("Etes-vous sûr(e) de vouloir ajouter l'enregistrement ?", vbYesNo + vbQuestion, "Confirmation d'ajout...")
If rep = 6 Then
    'Code d'ajout
End If