search table for username

[pazgb]

i would like to code my startup form to search a table and compare it to the network login. I have the code to return the login name on the w2k box. And I have created a table with just 1 field called username.

table = tblUserAccess
field = username

can anyone help me out?

 

[pazgb]

i figured it out


Dim dbTemp As DAO.Database
Dim rsTemp As DAO.Recordset

Set dbTemp = CurrentDb
Set rsTemp = dbTemp.OpenRecordset("tblUserAccess", dbOpenTable)

rsTemp.Index = "PrimaryKey"
rsTemp.Seek "=", LogOnName

If rsTemp.NoMatch Then
MsgBox "You are not authorized to access this database.", vbOKOnly, "WARNING"
rsTemp.Close
dbTemp.Close
Quit
End If
rsTemp.Close
dbTemp.Close