Incompatibilité de type

Le
Jacques
Bonjour,

Lorsque j'execute ce code j'ai l'erreur "Incompatibilité de Type"

Ma liste déroulante cmbEnvoi est basé sur une liste de valeur:
"1";"1er Envoi";"2";"2ème Envoi"
Mon champ N°Envoi est de type Texte

Dim lstr_val As String
lstr_val = cmbEnvoi.ItemData(cmbEnvoi.ListIndex)
If lstr_val <> "" Then
db.Execute "UPDATE [tbl adhérents] SET Selection=" &
CInt(bolSelection) & " where N°Envoi=" & lstr_val & ";"

Merci pour votre aide.

Salutations
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Michel_D
Le #6381541
Bonjour,

Regarde si cela fonctionne en rajoutant des apostrophes, sinon
il faudra rajouter des guillemets.

db.Execute "UPDATE [tbl adhérents] SET Selection=" &
CInt(bolSelection) & " where N°Envoi='" & lstr_val & "';"


Bonjour,

Lorsque j'execute ce code j'ai l'erreur "Incompatibilité de Type"

Ma liste déroulante cmbEnvoi est basé sur une liste de valeur:
"1";"1er Envoi";"2";"2ème Envoi"
Mon champ N°Envoi est de type Texte

Dim lstr_val As String
lstr_val = cmbEnvoi.ItemData(cmbEnvoi.ListIndex)
If lstr_val <> "" Then
db.Execute "UPDATE [tbl adhérents] SET Selection=" &
CInt(bolSelection) & " where N°Envoi=" & lstr_val & ";"

Merci pour votre aide.

Salutations



Gloops
Le #6381521
Michel_D a écrit, le 11/11/2007 16:03 :
Bonjour,

Regarde si cela fonctionne en rajoutant des apostrophes, sinon
il faudra rajouter des guillemets.

db.Execute "UPDATE [tbl adhérents] SET Selection=" &
CInt(bolSelection) & " where N°Envoi='" & lstr_val & "';"



Salut,

Le critère est assez simple : tant que lstr_val ne contient pas
d'apostrophe, ça marche. Dès qu'il y en a une, ça coince. Ou alors il
faut la doubler (ou la tripler ?) ou la remplacer par des guillemets.
Une fois l'apostrophe remplacée par un guillemet, même raisonnement s ur
lstr_val qui contient des guillemets.

Je ne me rappelle pas avoir essayé avec des crochets, à la place.

Jacques
Le #6381491
On 11 nov, 16:58, Gloops
Michel_D a écrit, le 11/11/2007 16:03 :

Bonjour,

Regarde si cela fonctionne en rajoutant des apostrophes, sinon
il faudra rajouter des guillemets.

db.Execute "UPDATE [tbl adhérents] SET Selection=" &
CInt(bolSelection) & " where N°Envoi='" & lstr_val & "';"


Salut,

Le critère est assez simple : tant que lstr_val ne contient pas
d'apostrophe, ça marche. Dès qu'il y en a une, ça coince. Ou alors il
faut la doubler (ou la tripler ?) ou la remplacer par des guillemets.
Une fois l'apostrophe remplacée par un guillemet, même raisonnement s ur
lstr_val qui contient des guillemets.

Je ne me rappelle pas avoir essayé avec des crochets, à la place.


Bonsoir Michel, et Gloops

Merci pour vos réponses mon code fonctionne.

Salutations


Publicité
Poster une réponse
Anonyme