Alimenter une table par deux formulaires différents Fermé

Question

Bonjour, 
Je suis bloqué sur ce problème.
J'ai deux formulaires différents qui m'affichent des données de tables différentes sans aucunes relations.
J'ai crée une nouvelle table nommé NEW où je récupère la valeurs des champs de mes deux formulaires.
Pour chacun des formulaire, je récupère grâce à un code relié à un bouton du formulaire la valeur des champs. Cela marche bien !! Sauf que comme j'ai deux formulaires différents , j'ai donc deux boutons d'enregistrement qui alimentent la table ce qui fait que les résultats enregistrés sur ma table NEW ne sont pas sur la même ligne.
Je cherche une solution qui me permettrait d'avoir soit un seul bouton d'enregistrement pour les deux formulaires(je rappelle qu'ils sont différents sans aucuns liens ) ou quelque chose qui me permettrait d'activer simultanément les deux boutons d'enregistrement de sorte à avoir les résultats sur la même ligne.

Je vous remercie d'avance pour l'attention qui sera portée à ma question et reste à disposition pour réexpliquer au besoin mon problème.

f894009 · Answer

Bonjour,

Les enregistrements dans votre table NEW sont en ajout ou cela peut être a la suite de motif d'un enregistrement ??

rokson · Answer

Bonjour, 

Merci encore pour vos différentes réponses.

Suite à votre proposition , voici les codes de mes deux formulaires: 

'Formulaire 1
Private Sub Commande9_Click()

 ' Quelques variables
 Dim rst As dao.Recordset

 ' Ouvrir la table en lecture/écriture
 Set rst = CurrentDb.OpenRecordset("TABLE NEW", dbOpenDynaset)

 ' Créer un enregistrement dans la table
 rst.AddNew

 ' Alimenter les champs
rst("Identifiant") = Me.attestation ' formulaire 1
rst("Code") = Me.lolou                 'formulaire 1
rst("Lieu") = Forms![formulaire 2]![lieu]     'formulaire 2
rst("Adresse") = Forms![formulaire 2]![adresse]    'formulaire 2
 ' Valider
 rst.Update
 rst.Close
 Set rst = Nothing
 MsgBox "Opération terminée !", vbInformation
End Sub


'Formulaire 2
Private Sub Commande10_Click()

 ' Quelques variables
 Dim rst As dao.Recordset

 ' Ouvrir la table en lecture/écriture
 Set rst = CurrentDb.OpenRecordset("TABLE NEW", dbOpenDynaset)

 ' Créer un enregistrement dans la table
 rst.AddNew

 ' Alimenter les champs
rst("Lieu") = Me.lieu ' formulaire 2
rst("Adresse") = Me.adresse                'formulaire 2
rst("Identifiant") = Forms![formulaire 1]![attestation]    'formulaire 1
rst("Code") = Forms![formulaire 1]![lolou]     'formulaire 1
 ' Valider
 rst.Update
 rst.Close
 Set rst = Nothing
 MsgBox "Opération terminée !", vbInformation
End Sub


J'ai pour le formulaire 1 , le message d'erreur suivant: 
 Microsoft Access  ne trouve pas le formulaire " formulaire 2" auquel il est fait référence.
J'ai le même message d'erreur pour le formulaire 2.
Microsoft Access ne trouve pas le formulaire " formulaire 1" auquel il est fait référence.

Merci encore pour tes réponses!

Rokson

rokson · Answer

Comme j'ai mis mes formulaires 1 et 2 comme étant des sous formulaires du formulaire principal(Principal).
J'ai utilisé ce code

rst("Lieu") = Forms![Principal].Form![formulaire 1]![lieu].Value ' formulaire 2

J'ai fait pareil pour les autres champs des deux formulaires.

Merci beaucoup f894009 , grâce à vous ,nous sommes arrivés à la solution.

Rokson

Alimenter une table par deux formulaires différents

3 réponses

Discussions similaires