bonjour,
Je suis en train de faire une base de données sur ma recherche d'entreprise et j'ai fait un formulaire pour ajouter des données sur une table (SOCIETE). Sur ce formulaire il y a plusieurs champs textes qu'il faut remplir et un bouton enregistrer pour enregistrer les nouvelles valeurs.
le code associé a mon formulaire:
merci d'avance
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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49 Private Sub enregistrer_Click() On Error GoTo err_enregistrer_Click Dim RS As Recordset Set RS = db.OpenRecordset("SOCIETE") RS.AddNew RS.Fields("NUM_MANUT") = txtnom RS.Fields("NOM_MANUT") = txtorigine RS.Fields("PRENOM_MANUT") = txtville RS.Fields("ADRESSE_MANUT") = txtpostal RS.Fields("VILLE_MANUT") = txtadresse RS.Fields("CODE_POSTAL_MANUT") = txttel RS.Fields("TEL_MANUT") = txtprisecontact RS.Fields("MOBILE_MANUT") = txtcontact RS.Fields("DATE_NAISSANCE_MANUT") = txttitrecontact RS.Fields("DATE_NAISSANCE_MANUT") = txtreponse RS.Fields("DATE_NAISSANCE_MANUT") = txtsite RS.Fields("DATE_NAISSANCE_MANUT") = txtmail RS.Fields("DATE_NAISSANCE_MANUT") = txtcommentaire RS.Update RS.Close db.Close txtnom = "" txtorigine = "" txtville = "" txtpostal = "" txtadresse = "" txttel = "" txtcontact = "" txtprisecontact = "" txttitrecontact = "" txtreponse = "" txtsite = "" txtmail = "" txtcommentaire = "" exit_enregistrer_Click: Exit Sub err_enregistrer_Click: MsgBox Err.Description Resume exit_enregistrer_Click End Sub
tchao
Partager