Check code

[mjdavie]

Could somebody please check my code

I keep getting the error message "Loop without Do" but I just can't seem to resolve it and it's driving me mad.

Dim dbs As Database
Dim rst As Recordset

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("qryMill")

Do While rst.EOF

If [Mill Cycle] > [Weeks Stock] Then
[Early Warn].Value = "OK"
Else
[Early Warn].Value = "#"

Loop

rst.MoveNext

Thanks in advance

 

[Mile-O]

You are missing an End If after this line: [Early Warn].Value = "#" .

 

[mjdavie]

Check Code

Thanks Mile that workks fine