Windows 7 32bit 
Access 2013
I meant the login screen disappears once you enter the login credentials and select OK. My Bad. I tried replacing the word close with hide with no success.
Private Sub Form_Timer()
On Error GoTo Err_Form_Timer
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = currentdb
Set rst = dbs.OpenRecordset("ztblUserLog", dbOpenDynaset)
With rst
.AddNew
![SecurityID] = User.SecurityID
.Update
End With
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "fmnuMainMenu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "frmUserLogon"
DoCmd.Close acForm, "frmStartup"
DoCmd.Close acForm, "frmUserLogonNew"
Exit_Form_Timer:
Exit Sub
Err_Form_Timer:
MsgBox Err.Description
Resume Exit_Form_Timer
End Sub
Reply With Quote
