Sujet Précédent Sujet Suivant

Probleme code ouverture fichier

cs_stargates Messages postés 40 Date d'inscription samedi 24 juillet 2004 Statut Membre Dernière intervention 10 janvier 2008 - 6 août 2004 à 15:56
cs_stargates Messages postés 40 Date d'inscription samedi 24 juillet 2004 Statut Membre Dernière intervention 10 janvier 2008 - 6 août 2004 à 20:01
Lorsque j'essaie d'activer ma form il me donne cet erreur
Erreur d'exécution "30010";
valeur de colonne non valide

///////////////////////////
code
/////////////////////////

Private Sub Form_Activate()
Dim txt As String
Dim tableau As Variant
Dim i As Long
Dim emp
emp = App.Path

flex1.Rows = 0
flex1.Cols = 0
Open emp + "\nomfichier.txt" For Input As #1
While Not EOF(1)
Line Input #1, txt
If txt <> "" Then
tableau = Split(txt, "|")
flex1.Rows = flex1.Rows + 1
flex1.row = flex1.Rows - 1

For i = 0 To UBound(tableau)If flex1.Cols <i Then flex1.Cols flex1.Cols + 1
flex1.col = i + 1
flex1.Text = CStr(tableau(i))
Next i
End If
Wend
Close #1

2 réponses

Réponse 1 / 2
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 20
6 août 2004 à 19:11
Essaie : flex1.Col = i au lieu de flex1.Col = i +1
Ca devrait fonctionner

Cordialement

CanisLupus
0
Réponse 2 / 2
cs_stargates Messages postés 40 Date d'inscription samedi 24 juillet 2004 Statut Membre Dernière intervention 10 janvier 2008
6 août 2004 à 20:01
Super ca fonctionne

Un grand merci
0

Discussions similaires

Echec de l'ouverture de session de l'utilisateur sa
mirakaras -
chouchou0en -

3 réponses
Échec de l'ouverture de session de l'utilisateur'NomPC\UserName'. (.Net SqlClien
cs_papiras -
nivsql -

8 réponses
Générateur de codes de recharge
cs_kdidier -
ucfoutu -

6 réponses
Algorithme de vérification RIB (24 chiffres / maroc)
aedc -
ucfoutu -

5 réponses
[D7] Impression code-barres sur une imprimante d'étiquettes
cs_nitrique -
cs_nitrique -

15 réponses
Rejoignez-nous