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
Test ram - Guide
Test vitesse ssd - Guide
Test hdd - Télécharger - Informations & Diagnostic

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
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 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
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 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024
5 janv. 2016 à 20:37

ok ça marche merci bien

Discussions similaires

PXE-E61 : media test failure, check cable

Brancher un boitier DTI pour avoir la fibre

Tester une config

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

Discussions similaires

Newsletters