Discussion :

[stan314]

Salut tout le monde,

Suite a un ajout dans une table je voudrais ajouter deux champs de cette table dans une autres tables j'ai donc ecrit la requete suivante :

Code :

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

1
2
3
4
 
Dim sql As String
sql = " INSERT A_LIEU_LE (DATE, NUMÉRO_RÉSERVATION) VALUE ( 'Me.TxtDate' , 'num' ) "
DoCmd.RunSQL (sql)

et la il me dit qu'il y a une erreur de syntaxe et je n'arrive pas a la trouver..
Si quelqu'un pourrait m'aider a ce sujet...
En sachant que Me.Txtdate est de type date et num est un nombre

Merci d'avance pour votre aide

stan314

[Fablondon]

Simplement

Code :

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

1
2
3
4
5
 
Dim sql As String
sql = " INSERT INTO A_LIEU_LE (DATE, NUMÉRO_RÉSERVATION) VALUES ( 'Me.TxtDate' , 'num' ) "
DoCmd.RunSQL (sql)

voila a++

[loufab]

Simplement

Code :

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

1
2
3
4
5
6
 
Dim sql As String
sql = " INSERT INTO A_LIEU_LE (DATE, NUMÉRO_RÉSERVATION) _
VALUES ( 'Me.TxtDate' , 'num' ) "
DoCmd.RunSQL (sql)

voila a++

J'ajouterais cette correction :

Code :

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

1
2
3
4
 
 
sql = " INSERT INTO A_LIEU_LE (DATE, NUMÉRO_RÉSERVATION) _
VALUES ( """ & Me.TxtDate  & """ , " & me.num & " ) "

à la condition que me.txtdate soit du texte et que me.num soit du numérique et soit un controle de Me.

[loufab]

Le values ne semble pas fonctionner sous ACCESS et base Jet.

Pour les bases Jet faire ceci.

Code :

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

1
2
3
 
"INSERT INTO A_LIEU_LE ( DATE, NUMÉRO_RÉSERVATION) _
SELECT #" & me.txtdate "# AS Expr1, " & num & " AS Expr2;"

Ici me.txtdate est une date, cependant attention sous VBA les dates sont toujours au format US. En notation double le problème n'existe pas.