Discussion :

[Little_flower]

Bonjour,

Je suis débutante complètement en ACCESS et j'essaie désespérément d'insérer un enregistrement dans ma base de données.

Pour ce faire, je dispose de 3 champs dans mon formulaire, une zone de liste et 2 zones de texte.

Voici mon code :

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
Private Sub ajoutContact_Click()
 
Dim SQL As String
Dim rs As Recordset
Dim NomRecup As Integer
 
'Liste des variables du formulaire pour insertion
 
nom = nom.Value
prenom = prenom.Value
 
'création d'une requete pour aller chercher les données que l'ont récupère dans un recordset
 SQL = "INSERT INTO tab_data_contact (id_titre, nom, prenom) VALUES ('" & list1.Value & "', '" & nom & "', '" & prenom & "')"
 
End Sub

Comme vous pouvez constater, ce sont des données contact qui seront insérées.
Mon bouton enregistrer se nomme "ajoutContact".
Si vous avez des suggestions...

Je rappelle juste que mon code ne me génère aucune erreur.

Merci d'avance

[marcuscircus]

pour executer une requete, tu dois utiliser :

Code :

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

docmd.runsql "TA REQUETE"

vu que tu as declaré ta requete, tu mets son nom dans ton cas !

[Secco]

Salut,

Autre version de correction, celle de marcuscircus marche surement aussi.
Et aussi, il faut mettre un point virgule à la fin de la requete SQL pour l'exécuter.

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
Private Sub ajoutContact_Click()
 
Dim SQL As String
Dim rs As Recordset
Dim NomRecup As Integer
 
'Liste des variables du formulaire pour insertion
 
nom = nom.Value
prenom = prenom.Value
 
'création d'une requete pour aller chercher les données que l'ont récupère dans un recordset
 SQL = "INSERT INTO tab_data_contact (id_titre, nom, prenom) VALUES ('" & list1.Value & "', '" & nom & "', '" & prenom & "') ; "
 
'on execute la requete      
CurrentDb.Execute SQL
 
 
End Sub

[Little_flower]

Merci pour vos réponses !!

Effectivement il ne me manquait plus qu'à exécuter le code =)