Discussion :

[guigui11]

Bonjour,

je n'arrive pas à insérer des données dans mes tables, en fait quand un utilisateur rentre des informations dans le formulaire, il faudrai que ça m'insère les données dans la table TBClient et TBUpdate.
Voici le 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
16
17
18
19
20
21
22
Private Sub insert_Click()
On Error GoTo Err_insert_Click
 
CiviliteClient = Me.Civilite.Value
NomClient = Me.Nom.Value
PrenomClient = Me.Prenom.Value
AdresseClient = Me.Adresse.Value
CPClient = Me.CodePostal.Value
VilleClient = Me.Ville.Value
 
    DoCmd.RunSQL "INSERT INTO [TBClient] (Civilite, Nom, Prenom, Adresse, CodePostal, Ville)" & _
                                  "VALUES (CiviliteClient, NomClient, PrenomClient, AdresseClient, CPClient, VilleClient)" & _
                                  "INSERT INTO [TBUpdate] (DateUpdate, Civilite, Nom, Prenom, Adresse, CodePostal, Ville)" & _
                                  "VALUES (Now, CiviliteClient, NomClient, PrenomClient, AdresseClient, CPClient, VilleClient)"
Exit_insert_Click:
    Exit Sub
 
Err_insert_Click:
    MsgBox "Erreur lors de l'ajout d'un client !!!"
    Resume Exit_insert_Click
 
End Sub

Merci de votre aide

[argyronet]

Bonjour,

Les guillemets et les # sont absents de ta chaîne.
Voir la

Argy

[guigui11]

Merci pour ta réponse, tu parle des guillemets " ' " pour les string et les # pour les dates dans ma commande SQL?
en fait je dois effectuer ma requête comme ceci ? :

Code :

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

1
2
3
4
INSERT INTO [TBClient] (Civilite, Nom, Prenom, Adresse, CodePostal, Ville)" & _
                                  "VALUE(" ' "CiviliteClient" ' ", " ' "NomClient" ' ", " ' "PrenomClient " ' ", " ' "AdresseClient" ' ", " ' "CPClient" ' ", " ' "VilleClient)" & _
"INSERT INTO [TBUpdate] (DateUpdate, Civilite, Nom, Prenom, Adresse, CodePostal, Ville)" & _
                                  "VALUES (" # " Now() " # ", " ' "CiviliteClient" ' ", " ' "NomClient" ' ", " ' "PrenomClient" ' ", " ' "AdresseClient" ' ", " ' "CPClient" ' ", " ' "VilleClient" ' ")"

[guigui11]

Avec les & de concaténation...

[cafeine]

Hello,

un conseil, passe tes SQL dans une chaîne, puis en Debug.Print ce sera 1000 fois plus simple à déboguer.

Cf. mon tuto