End While block problem

[cbh35711]

Getting the error "Expected: If or Select or Sub or Function or Type or With or enum or end of statement."



Regardless of how i change the code, i'm unable to get it to compile.

Set rs = CurrentDb.OpenRecordset("Select * From CashFlowSummary")

    While rs.EOF = False
        If Acct_Reference_id = Forms![Loan Details].[Acct_Reference_id] Then Analysis_type = "CashFlow"
            Else: Analysis_type = "Collateral"
        End If
        rs.MoveNext
    End While

Any assistance would be greatly appreciated.

Chris

P.S. I was able to get Do Until and Loop to work instead.

[pbaldy]

Try replacing "End While" with "Loop"

[orange]

Show all of the code. Where is the OPen recordset?
Did you try
If rs!Acct_Reference_id = Forms![Loan Details].[Acct_Reference_id] Then
Analysis_type = "CashFlow"
Else
Analysis_type = "Collateral"
End If

[cbh35711]

Thanks pbaldy. Worked like a charm.

Orange, I updated the original code.

Chris

[pbaldy]

Happy to help, though I'll be a little surprised if it does what you want. Further to Orange's point, I'm not a fan of mixing the one-line and block formats of If/Then/Else.