Hi
I have an Error in this code, maybe anyone can help!!!
THere is one error at rstFirstMove

Private Sub Form_Open(cancel As Integer)
Me.TimerInterval = 0
DoCmd.Maximize
Me.ScanIcon.Visible = False


    Dim db As Database
    Dim rst As Recordset
    Dim strQuery As String

    Set db c= DBEngine(0)(0)
    strQuery = "SELECT tbl_permission.PermissionID FROM tbl_permission WHERE (((tbl_permission.LoginName)=fOSUserName()));"
    Set rst = db.OpenRecordset(strQuery)
    rst.MoveFirst
    CurrentPermissionID = rst(0).value
    rst.Close


End Sub

Thanks a lot!!!

Julie

Is the query returning any values? If it is not that could be your problem. The solution would be to enclose the code there in the following:

If rs.bof AND rs.eof THEN
'empty recordset
Else
'insert code here
End If

What exactly is fOSUserName? Is it a global string variable or a function of some kind? I suspect this line should look something like this...

strQuery = "SELECT [PermissionID] FROM tbl_permission WHERE [LoginName] = '" & fOSUserName() & "';"

If fOSUserName is a function or without the () if it's a variable.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Oh, and you must assign fOSUserName a value if it's not a global variable that is not set elsewhere.

Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division