OVH Cloud OVH Cloud

Insert into et case à cocher.

5 réponses
Avatar
Jacques
Bonjour,

Dans cette cha=EEne j'ai rajout=E9 deux cases =E0 cocher =AB
CertificatM=E9dical=3Dcocher21 =BB et =AB Paiement=3Dcocher23 =BB et lorsqu=
e je
lance la proc=E9dure j'ai l'erreur =AB erreur de syntaxe dans insert
into =BB.

Dim lstr_NomAdh=E9rent As String
Dim lstr_Pr=E9nom As String
Dim bln_CertificatM=E9dical As booleen
Dim bln_Paiement As booleen

lstr_NomAdh=E9rent =3D IIf(IsNull(txtNomAdh=E9rent.Value), "",
txtNomAdh=E9rent.Value)
lstr_Pr=E9nom =3D IIf(IsNull(txtPr=E9nom.Value), "", txtPr=E9nom.Value)
bln_CertificatM=E9dical =3D IIf(IsNull(Cocher21.Value), "",
Cocher21.Value)
bln_Paiement =3D IIf(IsNull(Cocher23.Value), "", Cocher23.Value)

DoCmd.RunSQL "INSERT INTO [tbl adh=E9rents] ( NomAdh=E9rent, Pr=E9nom,
CertificatM=E9dical, Paiement,)" & _
"values(" & Chr(34) & lstr_NomAdh=E9rent & Chr(34) & ","
& Chr(34) & lstr_Pr=E9nom & Chr(34) & "," _
& bln_CertificatM=E9dical & "," & bln_Paiement & ") ;"


Dans "& bln_CertificatM=E9dical & "," & bln_Paiement &" , j'ai bien le
valeur -1 qui apparait lorsque je passe le curseur dessus.

Merci pour votre aide.

Salutations.

5 réponses

Avatar
Gilbert
Bonjour,

Essaie en remplaçant Chr(34) par Chr(39).
Sinon tu ajoutes la ligne suivante avant le RunSQL

Debug.Print "INSERT INTO [tbl adhérents] ( NomAdhérent,
Prénom,CertificatMédical, Paiement,)" & _
"values(" & Chr(34) & lstr_NomAdhérent & Chr(34) & "," &
Chr(34) & lstr_Prénom & Chr(34) & "," _
& bln_CertificatMédical & "," & bln_Paiement & ") ;"

Puis tu colles le résultat dans une requête en mode création, le message
d'erreur sera plus explicite (en principe).

Gilbert



"Jacques" a écrit dans le message de
news:
Bonjour,

Dans cette chaîne j'ai rajouté deux cases à cocher «
CertificatMédical=cocher21 » et « Paiement=cocher23 » et lorsque je
lance la procédure j'ai l'erreur « erreur de syntaxe dans insert
into ».

Dim lstr_NomAdhérent As String
Dim lstr_Prénom As String
Dim bln_CertificatMédical As booleen
Dim bln_Paiement As booleen

lstr_NomAdhérent = IIf(IsNull(txtNomAdhérent.Value), "",
txtNomAdhérent.Value)
lstr_Prénom = IIf(IsNull(txtPrénom.Value), "", txtPrénom.Value)
bln_CertificatMédical = IIf(IsNull(Cocher21.Value), "",
Cocher21.Value)
bln_Paiement = IIf(IsNull(Cocher23.Value), "", Cocher23.Value)

DoCmd.RunSQL "INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)" & _
"values(" & Chr(34) & lstr_NomAdhérent & Chr(34) & ","
& Chr(34) & lstr_Prénom & Chr(34) & "," _
& bln_CertificatMédical & "," & bln_Paiement & ") ;"


Dans "& bln_CertificatMédical & "," & bln_Paiement &" , j'ai bien le
valeur -1 qui apparait lorsque je passe le curseur dessus.

Merci pour votre aide.

Salutations.
Avatar
Eric
Bonjour,

Juste une virgule en trop dans le SQL, je pense.
Supprimes la virgule après Paiement et avant la parenthèse fermante.
"INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)
-----------------------------^


Bonjour,

Dans cette chaîne j'ai rajouté deux cases à cocher «
CertificatMédical=cocher21 » et « Paiement=cocher23 » et lorsque je
lance la procédure j'ai l'erreur « erreur de syntaxe dans insert
into ».

Dim lstr_NomAdhérent As String
Dim lstr_Prénom As String
Dim bln_CertificatMédical As booleen
Dim bln_Paiement As booleen

lstr_NomAdhérent = IIf(IsNull(txtNomAdhérent.Value), "",
txtNomAdhérent.Value)
lstr_Prénom = IIf(IsNull(txtPrénom.Value), "", txtPrénom.Value)
bln_CertificatMédical = IIf(IsNull(Cocher21.Value), "",
Cocher21.Value)
bln_Paiement = IIf(IsNull(Cocher23.Value), "", Cocher23.Value)

DoCmd.RunSQL "INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)" & _
"values(" & Chr(34) & lstr_NomAdhérent & Chr(34) & ","
& Chr(34) & lstr_Prénom & Chr(34) & "," _
& bln_CertificatMédical & "," & bln_Paiement & ") ;"


Dans "& bln_CertificatMédical & "," & bln_Paiement &" , j'ai bien le
valeur -1 qui apparait lorsque je passe le curseur dessus.

Merci pour votre aide.

Salutations.



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Jacques
Bonsoir,

Merci Gilbert pour la petite astuce de debug.print, je ne savais pas
que l'on pouvait avoir les valeurs en mettant debug.print avant insert
into.

Bien vue Eric, c'est bien la virgule qui est de trop.

Voici le sql que j'obtient:

INSERT INTO [tbl adhérents] (NomAdhérent, Prénom,
CertificatMédical, Paiement)values("DUPONT","André",Vrai,Vrai ) ;

Par contre je voudrai que lorsque le coche la case à cocher j'ai la
valeur False à la place de True, Comment faire ?

Salutations.




Bonjour,

Juste une virgule en trop dans le SQL, je pense.
Supprimes la virgule après Paiement et avant la parenthèse fermante.
"INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)
-----------------------------^


Bonjour,

Dans cette chaîne j'ai rajouté deux cases à cocher «
CertificatMédical=cocher21 » et « Paiement=cocher23 » et lo rsque je
lance la procédure j'ai l'erreur « erreur de syntaxe dans insert
into ».

Dim lstr_NomAdhérent As String
Dim lstr_Prénom As String
Dim bln_CertificatMédical As booleen
Dim bln_Paiement As booleen

lstr_NomAdhérent = IIf(IsNull(txtNomAdhérent.Value), "",
txtNomAdhérent.Value)
lstr_Prénom = IIf(IsNull(txtPrénom.Value), "", txtPrénom.Value)
bln_CertificatMédical = IIf(IsNull(Cocher21.Value), "",
Cocher21.Value)
bln_Paiement = IIf(IsNull(Cocher23.Value), "", Cocher23.Value)

DoCmd.RunSQL "INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)" & _
"values(" & Chr(34) & lstr_NomAdhérent & Chr(34) & ","
& Chr(34) & lstr_Prénom & Chr(34) & "," _
& bln_CertificatMédical & "," & bln_Paiement & ") ;"


Dans "& bln_CertificatMédical & "," & bln_Paiement &" , j'ai bien le
valeur -1 qui apparait lorsque je passe le curseur dessus.

Merci pour votre aide.

Salutations.



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl= fr



Avatar
Jacques
Rebonsoir,

Jai oublié de dire que lorsque je lance la procèdure, il me demande
de rentrer la valeur Vrai.

Salutations.


Bonsoir,

Merci Gilbert pour la petite astuce de debug.print, je ne savais pas
que l'on pouvait avoir les valeurs en mettant debug.print avant insert
into.

Bien vue Eric, c'est bien la virgule qui est de trop.

Voici le sql que j'obtient:

INSERT INTO [tbl adhérents] (NomAdhérent, Prénom,
CertificatMédical, Paiement)values("DUPONT","André",Vrai,Vrai ) ;

Par contre je voudrai que lorsque le coche la case à cocher j'ai la
valeur False à la place de True, Comment faire ?

Salutations.




Bonjour,

Juste une virgule en trop dans le SQL, je pense.
Supprimes la virgule après Paiement et avant la parenthèse fermante.
"INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)
-----------------------------^


Bonjour,

Dans cette chaîne j'ai rajouté deux cases à cocher «
CertificatMédical=cocher21 » et « Paiement=cocher23 » et lorsque je
lance la procédure j'ai l'erreur « erreur de syntaxe dans insert
into ».

Dim lstr_NomAdhérent As String
Dim lstr_Prénom As String
Dim bln_CertificatMédical As booleen
Dim bln_Paiement As booleen

lstr_NomAdhérent = IIf(IsNull(txtNomAdhérent.Value), "",
txtNomAdhérent.Value)
lstr_Prénom = IIf(IsNull(txtPrénom.Value), "", txtPrénom.Valu e)
bln_CertificatMédical = IIf(IsNull(Cocher21.Value), "",
Cocher21.Value)
bln_Paiement = IIf(IsNull(Cocher23.Value), "", Cocher23.Value)

DoCmd.RunSQL "INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)" & _
"values(" & Chr(34) & lstr_NomAdhérent & Chr(34) & ","
& Chr(34) & lstr_Prénom & Chr(34) & "," _
& bln_CertificatMédical & "," & bln_Paiement & ") ;"


Dans "& bln_CertificatMédical & "," & bln_Paiement &" , j'ai bien le
valeur -1 qui apparait lorsque je passe le curseur dessus.

Merci pour votre aide.

Salutations.



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl =fr





Avatar
Eric
Bonsoir,

Pas sur d'avoir bien compris.
Dans la construction du sql tu mets :
Dim strSQL as String
strSQL = "INSERT INTO [tbl adhérents] (NomAdhérent,
Prénom,CertificatMédical, Paiement) values(" & Chr(34) &
lstr_NomAdhérent & Chr(34) & "," & Chr(34) & lstr_Prénom & Chr(34) & ","
& Not(bln_CertificatMédical) & "," & Not(bln_Paiement) & ") ;"
DoCmd.RunSQL strSQL


Par contre je voudrai que lorsque le coche la case à cocher j'ai la
valeur False à la place de True, Comment faire ?

Salutations.





Bonjour,

Juste une virgule en trop dans le SQL, je pense.
Supprimes la virgule après Paiement et avant la parenthèse fermante.

"INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)


-----------------------------^


Bonjour,

Dans cette chaîne j'ai rajouté deux cases à cocher «
CertificatMédical=cocher21 » et « Paiement=cocher23 » et lorsque je
lance la procédure j'ai l'erreur « erreur de syntaxe dans insert
into ».

Dim lstr_NomAdhérent As String
Dim lstr_Prénom As String
Dim bln_CertificatMédical As booleen
Dim bln_Paiement As booleen

lstr_NomAdhérent = IIf(IsNull(txtNomAdhérent.Value), "",
txtNomAdhérent.Value)
lstr_Prénom = IIf(IsNull(txtPrénom.Value), "", txtPrénom.Value)
bln_CertificatMédical = IIf(IsNull(Cocher21.Value), "",
Cocher21.Value)
bln_Paiement = IIf(IsNull(Cocher23.Value), "", Cocher23.Value)

DoCmd.RunSQL "INSERT INTO [tbl adhérents] ( NomAdhérent, Prénom,
CertificatMédical, Paiement,)" & _
"values(" & Chr(34) & lstr_NomAdhérent & Chr(34) & ","
& Chr(34) & lstr_Prénom & Chr(34) & "," _
& bln_CertificatMédical & "," & bln_Paiement & ") ;"


Dans "& bln_CertificatMédical & "," & bln_Paiement &" , j'ai bien le
valeur -1 qui apparait lorsque je passe le curseur dessus.

Merci pour votre aide.

Salutations.



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr