Enregistrer les données issues d'un formulaire

Résolu/Fermé
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 11 sept. 2019 à 11:48
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 - 11 sept. 2019 à 15:07
Bonjour,

J'ai un formulaire avec 3 menus déroulant (indépendant) + 1 zone de texte.

Je souhaite à l'issu des choix + de la saisie du texte, alimenter une autre table.

1er menu déroulant = choix Demandeur lié à une table externe "TECHS"
2ème menu déroulant = choix Application lié à une table "Applications"
3ème menu déroulant = choix Processus lié à une table "Processus"
+
1 zone texte ( pour saisie)

Avec un bouton je souhaite alimenter une table "Demande de soutien" avec les données des 3 menus déroulant + le texte saisi.

Comment programmer ce bouton pour obtenir ce résultat ?

Merci d'avance,
A voir également:

2 réponses

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
11 sept. 2019 à 12:31
bonjour,
je suggère ceci:
Dim tb As DAO.Recordset
Set tb = CurrentDb.OpenRecordset("Demande de soutien")
tb.AddNew
tb!Demandeur = Me.Demandeur
tb!Application = Me.Application
tb!Processus = Me.Processus
tb!texte = Me.texte
tb.Update

les noms après
tb!
sont les noms des champs dans la table à alimenter
les noms après
Me.
sont les noms des zones du formulaire
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
Modifié le 11 sept. 2019 à 13:58
Merci ! yg_be,

J'ai traduit la macro comme suit :

Private Sub Enr_DDS_Click()
Dim tb As DAO.Recordset
Set tb = CurrentDb.OpenRecordset("Demande de soutien")
tb.AddNew tb!Nom_Agent = Me.Nom
tb!Application = Me.Modifiable37
tb!Processus = Me.Modifiable34
tb!Objet_de_la_demande = Me.Demande
tb.Update

End Sub

J'ai un message d'erreur :

Nombre d'arguments incorrect ou affectation de propriété non valide (erreur 450)

Merci d'avance !
0
yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
Modifié le 11 sept. 2019 à 14:54
merci d'utiliser les balises de code quand tu partages du code.
à quelle ligne as-tu l'erreur?
compare ton code au mien, regarde bien mes lignes 3 et 4.
0
PYGOS69 Messages postés 452 Date d'inscription jeudi 23 août 2012 Statut Membre Dernière intervention 10 octobre 2023 21
11 sept. 2019 à 15:07
Oui, en effet je n'ai pas séparer ,
tb.AddNew tb!Nom_Agent = Me.Nom
en
tb.AddNew
tb!Nom_Agent = Me.Nom

Merci beaucoup pour ton aide !

Bien cordialement,
0