-
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
-
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... :-/
-
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".
Code:
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]
-
Will try this right away...
I'll keep you posted...
Thanks.
Patrice
-
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... :-/
-
Better late than never huh ;)
As always the pleasure was all mine :)
-
Of Course Iain
I come to help(I really saw the prob before I scrolled down) but of course YOU(what are the odds) answered first. Lol :)