Test textbox

Résolu/Fermé

roudi524 - 4 janv. 2016 à 21:47
roudi524 - 5 janv. 2016 à 20:37

Bonjour,

Bonjour,
voilà j'ai des textbox multilignes et une condition avec chaque textbox
chaque textbox est composé de trois lignes
j'ai testé comme suit:
if textbox.text<>"" then
requete 1 insert into...textbox.lines(0),textbox.lines(1),textbox.lines(2)....
if textbox.text2<>"" then requete 2 insert into...
ça marche sauf que quand je remplis tous les textbox
sinon j'ai l'erreur suivante:
L'index se trouve en dehors des limites du tableau.

A voir également:

Test textbox
Test performance pc - Guide
Test composant pc - Guide
Redmi note 13 5g test - Accueil - Téléphones
Test performance pc gratuit - Accueil - Utilitaires
Test hdd - Télécharger - Informations & Diagnostic

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705
4 janv. 2016 à 23:42

Bonjour,

Même remarque que pour cette discussion :
https://codes-sources.commentcamarche.net/forum/affich-10058682-condition-sur-textbox

... sans avoir ton code COMPLET .... impossible de te répondre !

!!!!!!!!!! ATTENTION !!!!!!!!!!!

NB : Pour poster du code sur le forum.. merci d'utiliser la coloration syntaxique (les balises de code).
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

jordane45 Messages postés 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024 4 705
4 janv. 2016 à 23:52

Mais là comme ça... sans trop réfléchir .. je dirais qu'il te suffit de passer par des variables intermediaires et de tester si l'indice existe dans l'array
un truc du genre :


'Nb indices dans l'array
NbLignes = ubound(txtd1.Lines)

if NbLignes>0 then
 valeur0 = txtd1.Lines(0)
else
 valeur0 = ""
End if

if NbLignes>1 then
 valeur1 = txtd1.Lines(1)
else
 valeur1 = ""
End if

if NbLignes>2 then
 valeur2 = txtd1.Lines(1)
else
 valeur2 = ""
End if


 cmd.CommandText = "insert  into test (enseignant,matiere,salle,seance,classe) values ('" & valeur0 & "','" & valeur1 & "','" & valeur2 & "','" & txts1.Text & "','" & cmbcla.Text & "')"

roudi524 > jordane45 Messages postés 38314 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 novembre 2024
5 janv. 2016 à 20:37

ok ça marche merci bien

Discussions similaires

PXE-E61 : media test failure, check cable

Tester une config