Code:
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
Application.CommandBars.ActiveMenuBar.Enabled = False
Application.RefreshTitleBar
fActivateControlBox (False)
Forms![main menu]![barcode] = DLookup("[barcode]", "[Employees]", "[first name] = Forms![main menu]![employees at work]![first name]")
Forms![main menu]![pass] = DLookup("[password]", "[Employees]", "[first name] = Forms![main menu]![employees at work]![first name]")
Forms![main menu]![employees at work].Form.Requery
End Sub
Private Sub Form_Timer()
Me.[display time] = Now()
End Sub