help! i'm caught in the endless of "compile error message: do without
loop." i thought that i closed all of my statments but it appears
not. does anyone know why my structure is incorrect?
what i'm trying to do is to find "series key" and if so, then parse
the appropriate data. then if it finds "issuer" it needs to exit.
thanks in advance!!!
jung.
Set rst = dbs.OpenRecordset("Test", dbOpenDynaset)
Set rstclean = dbs.OpenRecordset("CDtest", dbOpenDynaset)
rst.MoveFirst
Do Until rst.EOF
'Open Current Record for editing
If x = InStr(rst![Field1].Value, "SERIES KEY") Then
Do While InStr(rst![Field1].Value, "SERIES KEY") <> 0
rst.MoveNext
rst.MoveNext
rst.MoveNext
Do Until IsNumeric(x) = False
rstclean.AddNew
key = rst![Field1].Value & " "
'etoile = rst![Field2].Value & " "
Pay = rst![Field2].Value & " "
Coll = rst![Field3].Value & " "
cashbalance = rst![Field4].Value & " "
rstclean![series].Value = key
'rstclean![Star].Value = etoile
rstclean![Payments].Value = Pay
rstclean![Collections].Value = Coll
rstclean![CashBal].Value = cashbalance
rstclean.Update
rst.MoveNext
x = Len(rst![Field1].Value)
Loop
rst.MoveNext
Loop
rst.MoveNext
ElseIf InStr(rst![Field2].Value, " ISSUER") <> 0 Then
Loop