error in this simple code

[bizzzzzzz]

why it dont find my usager(i).text?

Private Sub cmd1_Click()
Set objTextFileW = objFSO.OpenTextFile("d:\tools\transfert.dat", ForWriting, True)
For i = 1 To 6
If usager(i).Text <> "" Then
objTextFileW.WriteLine (usager(i).Text & "," & Source(i).Text & "," & dest(i).Text)
Next
objTextFileW.Close
End Sub

Thanks

 

[bizzzzzzz]

this is my code with some bugs fix.
but i'am still unable to do my "for next" with use the "i"

Private Sub cmd1_Click()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFileW = objFSO.OpenTextFile("d:\tools\transfert.dat", ForAppending, True)
'For i = 1 To 6
If usager1.Text <> "" Then
objTextFileW.WriteLine (usager1.Text & "," & source1.Text & "," & dest1.Text)
End If
'Next
objTextFileW.Close
End Sub

 

[HarleyQuinn]

Try

debug.print usager(i).text

before the

objTextFileW.WriteLine (usager(i).Text & "," & Source(i).Text & "," & dest(i).Text)

To see what value is returned by usager(i).text

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

 

[HarleyQuinn]

Dim i as integer??

Harleyquinn

---------------------------------
For tsunami relief donations

 

[HarleyQuinn]

What exactly is happening when it gets to the For..Next Loop in the code??

Harleyquinn

---------------------------------
For tsunami relief donations

 

[bizzzzzzz]

Compile error:
Sub or fonction not defined

yes i is now an as interger

but still an issue

 

[bizzzzzzz]

the code work well like this

Private Sub cmd1_Click()
Dim y As Integer
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFileW = objFSO.OpenTextFile("d:\tools\transfert.dat", ForAppending, True)
For y = 1 To 6
If usager1.Text <> "" Then
objTextFileW.WriteLine (usager1.Text & "," & source1.Text & "," & dest1.Text)
End If
Next
objTextFileW.Close
End Sub

but now my objectif is to change usager1.text with something like this usager.text
but it stop on usager with a compile error

 

[HarleyQuinn]

Is it appearing on the loop or on the first line of the loop the

If usager(i).Text <> "" Then

part of the code??

If so is the name usager correct??

Harleyquinn

---------------------------------
For tsunami relief donations

 

[HarleyQuinn]

For that to work you will have to have all of your textboxes called usager and put them in a control array.

Harleyquinn

---------------------------------
For tsunami relief donations

 

[bizzzzzzz]

exactly there If usager(i).Text <> "" Then
the first place where it find usager

 

[bizzzzzzz]

HO wow ok and how a can do that?
I'am a beginner

 

[HarleyQuinn]

Have you got the control array set up with your textboxes??

The easiest way to create a control array is to copy a text box (in your case usager) and paste it onto your form. VB will ask you if you wish to create a control array. What will happen then is that all of the textboxes will be called usager but wuill have a numeric identifier at the end e.g. usager(1). Then you can use the if usager(i) statement.

Hope this helps

Harleyquinn

---------------------------------
For tsunami relief donations

 

[bizzzzzzz]

Thanks a lot for all your help, have a nice day

A WOW for your time too


Eric