I can't argue about the fundamental design issues. This is the first I've worked on this program though.
I changed up a few things and it seems to be working now. I changed the Do...Loop and the EOF is working now.
Now my only prob. is that the rsLoc table is running out of records before the rsRev table is completely looped through. There's not much I can do about that from my end though.
Thanks for the input mmcdonal
Set db = CurrentDb()
Set rsLoc = db.OpenRecordset("tbl_loc", DB_OPEN_TABLE)
Set rsRev = db.OpenRecordset("tbl_os_reverse", DB_OPEN_TABLE)
'Loop through records
While Not rsRev.EOF
sBreak = rsRev.Fields("[BREAKPT]").Value
sLoc = rsLoc.Fields("[LOCATION]").Value
iLevel = rsLoc.Fields("[LEVELS]").Value
rsRev.Fields("[LOC SEQ]").Value = iLevel
rsRev![LOCATION] = sLoc
If sBreak = "T" Then
ElseIf sBreak = "D" Then