Loop within a Do While

[Patrice Bourdages]

Here's the bummer:

Private Sub TraitementComplet()
OuvreTables
AcXref.MoveFirst
Do While Not AcXref.EOF
If Not LigneUtile(AcXref!Col001) Then
AcXref.MoveNext
Loop
End If
If InStr("File:", AcXref!Col001) > 0 Then
mNomDeTable = Trim(Mid(AcXref!Col001, 28, 10))
lblTable.Caption = mNomDeTable
If mTable <> mNomDeTable Then
mCompteur = 0
mTable = mNomDeTable
End If
AcXref.MoveNext
Loop
End If
ExtraitInfoLigne
Stats
Dictionnaire
XRef
AcXref.MoveNext
Loop
End Sub

I'm trying to loop within the Do While and the programs bombs out with an error saying that there is a missing do for my loop statement...

I'm sure this is a wrong way of doing it! What is the right way. I'm trying to go back to the beginning of the do while AcXref statement to continue processing...

Thanks in advance for your "always helpfull" help.

Sincerely, Patrice

[Patrice Bourdages]

Why is it that my code was perfectly indented and now showing up all left justified !!! What a messy day...

Sorry for the spaghetti code... :-/

[Iain17]

God what a mess. Hard to tell what you wanted, but this may be it.

You seemed to be using the keyword "Loop" far to many times. You can only have one "Loop" for Each "Do".

Private Sub TraitementComplet()

    OuvreTables
    AcXref.MoveFirst
    
    Do While Not AcXref.EOF
      If Not LigneUtile(AcXref!Col001) Then
        AcXref.MoveNext
      
      ElseIf InStr("File:", AcXref!Col001) > 0 Then
        mNomDeTable = Trim(Mid(AcXref!Col001, 28, 10))
        lblTable.Caption = mNomDeTable
        
        If mTable <> mNomDeTable Then
          mCompteur = 0
          mTable = mNomDeTable
        End If
        
        AcXref.MoveNext
      Else
        ExtraitInfoLigne
        Stats
        Dictionnaire
        XRef
        AcXref.MoveNext
      End If
    Loop
    
End Sub

[Edited by Iain17 on 06-27-2000 at 09:46 AM]

[Patrice Bourdages]

Will try this right away...

I'll keep you posted...

Thanks.

Patrice

[Patrice Bourdages]

I don't understand...

I posted a reply a long time ago for this one... Must have got lost somewhere...

It worked wonderfully. It was just a question of understanding the structure of a DO WHILE a little better.

Thank you very much for your help Iain17.

Your help was greatly appreciated...

Sorry for the delay... :-/

[Iain17]

Better late than never huh

As always the pleasure was all mine

[Chris_SE]

I come to help(I really saw the prob before I scrolled down) but of course YOU(what are the odds) answered first. Lol