Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Insert Into - requete ajout

Insert Into - requete ajout

8 réponses
Avatar
brucat
Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un bouton de
commande

Voici mon code, au secours , j'en puis plus mais vraiment plus.(malgré
l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail & ",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
pgz
Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('" &
Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" & Me.TypeDispo &
"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un bouton de
commande

Voici mon code, au secours , j'en puis plus mais vraiment plus.(malgré
l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail & ",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat





Avatar
brucat
Bonjour merci pour cette aide car j'étais au bout du rouleau.

J'ai mis en place votre proposition avec un aménagement , sinon access ne
prend pas la valeur.

sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('" &
Me.Nom.Value & "',#" & Me.Dte.Value & "#,'" & Me.TypeTravail.Value & "','" &
Me.TypeDispo.Value & "');"

CurrentDb.Execute sSql

si je mets uniquement sSql aucun message d'erreur mais ma table est vide

si je mets current...... message erreur de synthase Insert Into

Avez vous encore le courage de m'aider car si je réussis ce bout de code je
pourrais enfin créer un planning en " 3dimensions".

Encore merci.

Brucat

"pgz" a écrit dans le message de news:

Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('" &
Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" & Me.TypeDispo &
"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un bouton de
commande

Voici mon code, au secours , j'en puis plus mais vraiment plus.(malgré
l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail & ",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat







Avatar
Jessy Sempere [MVP]
Bonjour

Il faudrait connaître le type de donnée de tes champs de destinations
pour être plus ou moins sûr de la synthaxe.

Si date, encadrer avec #
si texte, encadrer avec '
si numérique, ne pas encadrer

Sinon, le .Value ne devrait pas être obligatoire.
Et pour finir, le Me.Nom te retournera le nom de ton formulaire,
si tu veux la valeur de ta zone de texte nom essais plutôt Me!Nom.

Donc en supposant que Nom est du texte, et que typeTravail et
typeDispo sont du numérique, la synthaxe pourrait être :

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values ('" & Me!Nom & "', #" & Me.Dte & "#, " & Me.TypeTravail & ", "
_
& Me.TypeDispo & ");"

Currentdb.Execute sSql

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddukaa$ae0$
Bonjour merci pour cette aide car j'étais au bout du rouleau.

J'ai mis en place votre proposition avec un aménagement , sinon access ne
prend pas la valeur.

sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('" &
Me.Nom.Value & "',#" & Me.Dte.Value & "#,'" & Me.TypeTravail.Value & "','"
&

Me.TypeDispo.Value & "');"

CurrentDb.Execute sSql

si je mets uniquement sSql aucun message d'erreur mais ma table est vide

si je mets current...... message erreur de synthase Insert Into

Avez vous encore le courage de m'aider car si je réussis ce bout de code
je

pourrais enfin créer un planning en " 3dimensions".

Encore merci.

Brucat

"pgz" a écrit dans le message de news:

Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('"
&


Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" & Me.TypeDispo
&


"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un bouton
de



commande

Voici mon code, au secours , j'en puis plus mais vraiment plus.(malgré
l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail & ",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat












Avatar
brucat
Bonjour,
Mercipour votre explication

Pour répondre à ta question :

Table Essai
Nom = texte
Date = date/abrégé
TypeTravail = texte
TypeDispo = texte

Pour formulaire
Nom = texte
Date = date/abrégé
TypeTravail = liste déroulante
TypeDispo = liste déroulante

Malgré la correstion, j'ai toujours le meme message d'erreur.
brucat

"Jessy Sempere [MVP]" a écrit dans le message de
news: 4302de74$
Bonjour

Il faudrait connaître le type de donnée de tes champs de destinations
pour être plus ou moins sûr de la synthaxe.

Si date, encadrer avec #
si texte, encadrer avec '
si numérique, ne pas encadrer

Sinon, le .Value ne devrait pas être obligatoire.
Et pour finir, le Me.Nom te retournera le nom de ton formulaire,
si tu veux la valeur de ta zone de texte nom essais plutôt Me!Nom.

Donc en supposant que Nom est du texte, et que typeTravail et
typeDispo sont du numérique, la synthaxe pourrait être :

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values ('" & Me!Nom & "', #" & Me.Dte & "#, " & Me.TypeTravail & ",
"
_
& Me.TypeDispo & ");"

Currentdb.Execute sSql

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddukaa$ae0$
Bonjour merci pour cette aide car j'étais au bout du rouleau.

J'ai mis en place votre proposition avec un aménagement , sinon access ne
prend pas la valeur.

sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('" &
Me.Nom.Value & "',#" & Me.Dte.Value & "#,'" & Me.TypeTravail.Value &
"','"
&

Me.TypeDispo.Value & "');"

CurrentDb.Execute sSql

si je mets uniquement sSql aucun message d'erreur mais ma table est vide

si je mets current...... message erreur de synthase Insert Into

Avez vous encore le courage de m'aider car si je réussis ce bout de code
je

pourrais enfin créer un planning en " 3dimensions".

Encore merci.

Brucat

"pgz" a écrit dans le message de news:

Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('"
&


Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" & Me.TypeDispo
&


"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un bouton
de



commande

Voici mon code, au secours , j'en puis plus mais vraiment plus.(malgré
l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail &
",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat
















Avatar
Jessy Sempere [MVP]
Re,

Ok je pense que ça vient des listes déroulantes...

Sur quoi sont elles basées ?
Combien as-tu de colonnes dans tes zones de listes ?
Si tu as plusieurs colonnes, laquelle veux-tu récupérer ?

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddusfe$gv6$
Bonjour,
Mercipour votre explication

Pour répondre à ta question :

Table Essai
Nom = texte
Date = date/abrégé
TypeTravail = texte
TypeDispo = texte

Pour formulaire
Nom = texte
Date = date/abrégé
TypeTravail = liste déroulante
TypeDispo = liste déroulante

Malgré la correstion, j'ai toujours le meme message d'erreur.
brucat

"Jessy Sempere [MVP]" a écrit dans le message
de

news: 4302de74$
Bonjour

Il faudrait connaître le type de donnée de tes champs de destinations
pour être plus ou moins sûr de la synthaxe.

Si date, encadrer avec #
si texte, encadrer avec '
si numérique, ne pas encadrer

Sinon, le .Value ne devrait pas être obligatoire.
Et pour finir, le Me.Nom te retournera le nom de ton formulaire,
si tu veux la valeur de ta zone de texte nom essais plutôt Me!Nom.

Donc en supposant que Nom est du texte, et que typeTravail et
typeDispo sont du numérique, la synthaxe pourrait être :

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values ('" & Me!Nom & "', #" & Me.Dte & "#, " & Me.TypeTravail &
",


"
_
& Me.TypeDispo & ");"

Currentdb.Execute sSql

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddukaa$ae0$
Bonjour merci pour cette aide car j'étais au bout du rouleau.

J'ai mis en place votre proposition avec un aménagement , sinon access
ne



prend pas la valeur.

sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES ('"
&



Me.Nom.Value & "',#" & Me.Dte.Value & "#,'" & Me.TypeTravail.Value &
"','"
&

Me.TypeDispo.Value & "');"

CurrentDb.Execute sSql

si je mets uniquement sSql aucun message d'erreur mais ma table est
vide




si je mets current...... message erreur de synthase Insert Into

Avez vous encore le courage de m'aider car si je réussis ce bout de
code



je
pourrais enfin créer un planning en " 3dimensions".

Encore merci.

Brucat

"pgz" a écrit dans le message de news:

Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES
('"




&
Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" &
Me.TypeDispo




&
"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un
bouton





de
commande

Voici mon code, au secours , j'en puis plus mais vraiment
plus.(malgré





l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail &
",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat




















Avatar
brucat
bonjour,

Liste déroulante basée sur une liste de valeur avec 1 colonne.
merci


"Jessy Sempere [MVP]" a écrit dans le message de
news: 4302f992$
Re,

Ok je pense que ça vient des listes déroulantes...

Sur quoi sont elles basées ?
Combien as-tu de colonnes dans tes zones de listes ?
Si tu as plusieurs colonnes, laquelle veux-tu récupérer ?

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddusfe$gv6$
Bonjour,
Mercipour votre explication

Pour répondre à ta question :

Table Essai
Nom = texte
Date = date/abrégé
TypeTravail = texte
TypeDispo = texte

Pour formulaire
Nom = texte
Date = date/abrégé
TypeTravail = liste déroulante
TypeDispo = liste déroulante

Malgré la correstion, j'ai toujours le meme message d'erreur.
brucat

"Jessy Sempere [MVP]" a écrit dans le message
de

news: 4302de74$
Bonjour

Il faudrait connaître le type de donnée de tes champs de destinations
pour être plus ou moins sûr de la synthaxe.

Si date, encadrer avec #
si texte, encadrer avec '
si numérique, ne pas encadrer

Sinon, le .Value ne devrait pas être obligatoire.
Et pour finir, le Me.Nom te retournera le nom de ton formulaire,
si tu veux la valeur de ta zone de texte nom essais plutôt Me!Nom.

Donc en supposant que Nom est du texte, et que typeTravail et
typeDispo sont du numérique, la synthaxe pourrait être :

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values ('" & Me!Nom & "', #" & Me.Dte & "#, " & Me.TypeTravail &
",


"
_
& Me.TypeDispo & ");"

Currentdb.Execute sSql

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddukaa$ae0$
Bonjour merci pour cette aide car j'étais au bout du rouleau.

J'ai mis en place votre proposition avec un aménagement , sinon access
ne



prend pas la valeur.

sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES
('"
&



Me.Nom.Value & "',#" & Me.Dte.Value & "#,'" & Me.TypeTravail.Value &
"','"
&

Me.TypeDispo.Value & "');"

CurrentDb.Execute sSql

si je mets uniquement sSql aucun message d'erreur mais ma table est
vide




si je mets current...... message erreur de synthase Insert Into

Avez vous encore le courage de m'aider car si je réussis ce bout de
code



je
pourrais enfin créer un planning en " 3dimensions".

Encore merci.

Brucat

"pgz" a écrit dans le message de news:

Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES
('"




&
Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" &
Me.TypeDispo




&
"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un
bouton





de
commande

Voici mon code, au secours , j'en puis plus mais vraiment
plus.(malgré





l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail &
",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat
























Avatar
Jessy Sempere [MVP]
Ok et pour finir...
Tes valeurs de liste sont de quel type ???
(texte, numérique, ...")

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddv12r$kp3$
bonjour,

Liste déroulante basée sur une liste de valeur avec 1 colonne.
merci


"Jessy Sempere [MVP]" a écrit dans le message
de

news: 4302f992$
Re,

Ok je pense que ça vient des listes déroulantes...

Sur quoi sont elles basées ?
Combien as-tu de colonnes dans tes zones de listes ?
Si tu as plusieurs colonnes, laquelle veux-tu récupérer ?

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddusfe$gv6$
Bonjour,
Mercipour votre explication

Pour répondre à ta question :

Table Essai
Nom = texte
Date = date/abrégé
TypeTravail = texte
TypeDispo = texte

Pour formulaire
Nom = texte
Date = date/abrégé
TypeTravail = liste déroulante
TypeDispo = liste déroulante

Malgré la correstion, j'ai toujours le meme message d'erreur.
brucat

"Jessy Sempere [MVP]" a écrit dans le
message



de
news: 4302de74$
Bonjour

Il faudrait connaître le type de donnée de tes champs de destinations
pour être plus ou moins sûr de la synthaxe.

Si date, encadrer avec #
si texte, encadrer avec '
si numérique, ne pas encadrer

Sinon, le .Value ne devrait pas être obligatoire.
Et pour finir, le Me.Nom te retournera le nom de ton formulaire,
si tu veux la valeur de ta zone de texte nom essais plutôt Me!Nom.

Donc en supposant que Nom est du texte, et que typeTravail et
typeDispo sont du numérique, la synthaxe pourrait être :

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values ('" & Me!Nom & "', #" & Me.Dte & "#, " & Me.TypeTravail
&




",
"
_
& Me.TypeDispo & ");"

Currentdb.Execute sSql

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddukaa$ae0$
Bonjour merci pour cette aide car j'étais au bout du rouleau.

J'ai mis en place votre proposition avec un aménagement , sinon
access





ne
prend pas la valeur.

sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES
('"
&



Me.Nom.Value & "',#" & Me.Dte.Value & "#,'" & Me.TypeTravail.Value &
"','"
&

Me.TypeDispo.Value & "');"

CurrentDb.Execute sSql

si je mets uniquement sSql aucun message d'erreur mais ma table est
vide




si je mets current...... message erreur de synthase Insert Into

Avez vous encore le courage de m'aider car si je réussis ce bout de
code



je
pourrais enfin créer un planning en " 3dimensions".

Encore merci.

Brucat

"pgz" a écrit dans le message de
news:






Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo)
VALUES






('"
&
Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" &
Me.TypeDispo




&
"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un
bouton





de
commande

Voici mon code, au secours , j'en puis plus mais vraiment
plus.(malgré





l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values (" & Me.Nom & "," & Me.Dte & ", & Me.TypeTravail
&







",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat




























Avatar
brucat
alphanumérique
"Jessy Sempere [MVP]" a écrit dans le message de
news: 43031715$
Ok et pour finir...
Tes valeurs de liste sont de quel type ???
(texte, numérique, ...")

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddv12r$kp3$
bonjour,

Liste déroulante basée sur une liste de valeur avec 1 colonne.
merci


"Jessy Sempere [MVP]" a écrit dans le message
de

news: 4302f992$
Re,

Ok je pense que ça vient des listes déroulantes...

Sur quoi sont elles basées ?
Combien as-tu de colonnes dans tes zones de listes ?
Si tu as plusieurs colonnes, laquelle veux-tu récupérer ?

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddusfe$gv6$
Bonjour,
Mercipour votre explication

Pour répondre à ta question :

Table Essai
Nom = texte
Date = date/abrégé
TypeTravail = texte
TypeDispo = texte

Pour formulaire
Nom = texte
Date = date/abrégé
TypeTravail = liste déroulante
TypeDispo = liste déroulante

Malgré la correstion, j'ai toujours le meme message d'erreur.
brucat

"Jessy Sempere [MVP]" a écrit dans le
message



de
news: 4302de74$
Bonjour

Il faudrait connaître le type de donnée de tes champs de
destinations
pour être plus ou moins sûr de la synthaxe.

Si date, encadrer avec #
si texte, encadrer avec '
si numérique, ne pas encadrer

Sinon, le .Value ne devrait pas être obligatoire.
Et pour finir, le Me.Nom te retournera le nom de ton formulaire,
si tu veux la valeur de ta zone de texte nom essais plutôt Me!Nom.

Donc en supposant que Nom est du texte, et que typeTravail et
typeDispo sont du numérique, la synthaxe pourrait être :

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) " _
& "Values ('" & Me!Nom & "', #" & Me.Dte & "#, " & Me.TypeTravail
&




",
"
_
& Me.TypeDispo & ");"

Currentdb.Execute sSql

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"brucat" a écrit dans le message news:
ddukaa$ae0$
Bonjour merci pour cette aide car j'étais au bout du rouleau.

J'ai mis en place votre proposition avec un aménagement , sinon
access





ne
prend pas la valeur.

sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo) VALUES
('"
&



Me.Nom.Value & "',#" & Me.Dte.Value & "#,'" & Me.TypeTravail.Value
&
"','"
&

Me.TypeDispo.Value & "');"

CurrentDb.Execute sSql

si je mets uniquement sSql aucun message d'erreur mais ma table
est
vide




si je mets current...... message erreur de synthase Insert Into

Avez vous encore le courage de m'aider car si je réussis ce bout de
code



je
pourrais enfin créer un planning en " 3dimensions".

Encore merci.

Brucat

"pgz" a écrit dans le message de
news:






Ponjour,
Ge crois que tu peux déjà essayer cela :
sSql = "INSERT INTO Essai (Nom, Date, TypeTravail,TypeDispo)
VALUES






('"
&
Me.Nom & "',#" & Me.dte & "#,'" & Me.TypeTravail & "','" &
Me.TypeDispo




&
"');"
Mais je ne suis pas sûr de les avoir toutes vues...
Zalut et bonne chance
pgz

------------------------------------------


Bonjour,

il y a des jours où .................. rien ne va..............

j'essaye depuis un moment un requete ajout.

J'ai un formulaire indépendant avec 5 controles indépendants.
Je ne veux pas lier le formulaire à une table.

Je désire ajoute les données saisies dans ma Table Essai via un
bouton





de
commande

Voici mon code, au secours , j'en puis plus mais vraiment
plus.(malgré





l'aide sur le net)

Private Sub Commande23_Click()

Dim sSql As String

sSql = "Insert Into Essai (Nom, Date, TypeTravail,TypeDispo) "
_
& "Values (" & Me.Nom & "," & Me.Dte & ", &
Me.TypeTravail
&







",&
Me.TypeDispo & );"

CurrentDb.Execute sSql

End Sub

Merci

Brucat