Bonjour =E0 tous.
Je demande aux utilisateurs un num=E9ro =E0 l'aide d'un=20
inputbox.=20
Reponse =3D InputBox("Veuillez rentrer le num=E9ro du devis:")
1ere version: reponse est un entier
si je clique sur cancel, j'ai un message d'erreur=20
incompatibilit=E9 de type, normal parce que ca renvoit ""
2eme version: reponse est une chaine
l=E0 tout se passe bien sauf que j'utilise la reponse pour=20
une requete et que le type n'est pas valide non plus..
Je voulais donc savoir si je peux convertir une variable=20
chaine en entier, ou alors si je peux forcer la reponse=20
inputbox( =E0 0 par exemple), pour qu'il ne fasse pas=20
d'erreur quand je clique sur cancel
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
Eric
Bonjour
Le plus simple est de tester le contenu de ton InputBox. Pour mémoire cette fonction retourne toujours une chaine (String)
donc Test du bouton Annuler ou OK si rien de saisi Dim Rep as Long ' si Le n° est numerique Entier Long If len(Reponse)=0 then Exit Sub Else ' là tu dois convertir le contenu de Reponse ' avant de le passer à ton SQL. Par exemple: Rep=CLng(Reponse) End If
Sql = "......
A+ Eric
"nanie" écrivait news:34c001c4294d $02b4cb00$:
Bonjour à tous. Je demande aux utilisateurs un numéro à l'aide d'un inputbox. Reponse = InputBox("Veuillez rentrer le numéro du devis:")
1ere version: reponse est un entier si je clique sur cancel, j'ai un message d'erreur incompatibilité de type, normal parce que ca renvoit ""
2eme version: reponse est une chaine là tout se passe bien sauf que j'utilise la reponse pour une requete et que le type n'est pas valide non plus..
Je voulais donc savoir si je peux convertir une variable chaine en entier, ou alors si je peux forcer la reponse inputbox( à 0 par exemple), pour qu'il ne fasse pas d'erreur quand je clique sur cancel
Merci d'avance Bonne fin de journée à tous
Bonjour
Le plus simple est de tester le contenu de ton InputBox. Pour mémoire
cette fonction retourne toujours une chaine (String)
donc Test du bouton Annuler ou OK si rien de saisi
Dim Rep as Long ' si Le n° est numerique Entier Long
If len(Reponse)=0 then
Exit Sub
Else
' là tu dois convertir le contenu de Reponse
' avant de le passer à ton SQL. Par exemple:
Rep=CLng(Reponse)
End If
Bonjour à tous.
Je demande aux utilisateurs un numéro à l'aide d'un
inputbox.
Reponse = InputBox("Veuillez rentrer le numéro du devis:")
1ere version: reponse est un entier
si je clique sur cancel, j'ai un message d'erreur
incompatibilité de type, normal parce que ca renvoit ""
2eme version: reponse est une chaine
là tout se passe bien sauf que j'utilise la reponse pour
une requete et que le type n'est pas valide non plus..
Je voulais donc savoir si je peux convertir une variable
chaine en entier, ou alors si je peux forcer la reponse
inputbox( à 0 par exemple), pour qu'il ne fasse pas
d'erreur quand je clique sur cancel
Le plus simple est de tester le contenu de ton InputBox. Pour mémoire cette fonction retourne toujours une chaine (String)
donc Test du bouton Annuler ou OK si rien de saisi Dim Rep as Long ' si Le n° est numerique Entier Long If len(Reponse)=0 then Exit Sub Else ' là tu dois convertir le contenu de Reponse ' avant de le passer à ton SQL. Par exemple: Rep=CLng(Reponse) End If
Sql = "......
A+ Eric
"nanie" écrivait news:34c001c4294d $02b4cb00$:
Bonjour à tous. Je demande aux utilisateurs un numéro à l'aide d'un inputbox. Reponse = InputBox("Veuillez rentrer le numéro du devis:")
1ere version: reponse est un entier si je clique sur cancel, j'ai un message d'erreur incompatibilité de type, normal parce que ca renvoit ""
2eme version: reponse est une chaine là tout se passe bien sauf que j'utilise la reponse pour une requete et que le type n'est pas valide non plus..
Je voulais donc savoir si je peux convertir une variable chaine en entier, ou alors si je peux forcer la reponse inputbox( à 0 par exemple), pour qu'il ne fasse pas d'erreur quand je clique sur cancel
