Recordset Loop

[Dimmer]

I'm running this code in the On_Load event form a form.

I want it to look at all records in the table, but it is only recognizing the last record in the table. I don't know what is wrong. Any help is greatly appreciated. Thanks

Dim Permission as Integer
Dim dbs As Database
Dim rdsDistMaster as recordset

Set dbs = CurrentDb
Set rdsDistMaster = db.Openrecordset("Select DistMaster from tblDistMaster&quot

rdsDistMaster.movefirst

Do Until rdsDistMaster.EOF = True
If fOSUserName = rdsDistMaster("DistMaster&quot Then
Permission = 1
Else
Permission = 0
End If
rdsDistMaster.movenext
Exit Do
Loop

 

[Alcar]

take the exit do away....
hth
Alcar

 

[jebry]

Hi!

You need to move the Exit Do, like this:

Dim Permission as Integer
Dim dbs As Database
Dim rdsDistMaster as recordset

Set dbs = CurrentDb
Set rdsDistMaster = db.Openrecordset("Select DistMaster from tblDistMaster&quot

rdsDistMaster.movefirst

Do Until rdsDistMaster.EOF = True
If fOSUserName = rdsDistMaster("DistMaster&quot Then
Permission = 1
Exit Do
Else
Permission = 0
End If
rdsDistMaster.movenext
Loop

hth
Jeff Bridgham