I suppose to log on every time. Because if not, can the program remember a user in order for them not to have to log in everytime (I'm thinking like a cookie or something like that)?Well, do you want them to Log On every time?
I'm not sure what you mean by this?Or do you just want to capture there information to assign permissions?
I thought I had read that I needed a tblUsers (with 13 fields uUserID, uFirstName, uLastName, ueMail, uLastLogon,...) and a tblSecurity (with 2 fields sSecurityID and sSecurity)Which two tables?
Private Sub Form_Load()
On Error Resume Next
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim myQuery As String
myQuery = "SELECT * FROM tblUsers WHERE uNetworkID = '" & Environ("UserName") & "'"
Set db = CurrentDb()
Set rst = db.OpenRecordset(myQuery, dbOpenDynaset, dbSeeChanges)
If Not rst.BOF And Not rst.EOF Then
rst.Edit
rst.Fields("uLogonCount") = rst.Fields("uLogonCount") + 1
rst.Fields("uLastLogon") = Now()
rst.Update
Me.txtSecurityID = rst.Fields("uSecurityID")
Me.txtOverride = rst.Fields("uSpecialPermissions")
Me.txtUserID = rst.Fields("uUserID")
Me.txtDelete = rst.Fields("uDelete")
Me.txtPassword = rst.Fields("uPassword")
DoEvents
Else
DoCmd.OpenForm "frmNewUser", acNormal, , , , acWindowNormal
Me.Dirty = False
Me.Visible = False
Do Until Me.Tag = "Continue"
DoEvents
Loop
End If
Set rst = Nothing
db.Close
Set db = Nothing
If IsDeveloper Then
ChangeProperty "AllowBypassKey", dbBoolean, True
Else
ChangeProperty "AllowBypassKey", dbBoolean, False
End If
Form_Load_Exit:
Exit Sub
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim myQuery As String
myQuery = "SELECT * FROM tblUsers WHERE uNetworkID = '" & Environ("UserName") & "'"
Set db = CurrentDb()
Set rst = db.OpenRecordset(myQuery, dbOpenDynaset, dbSeeChanges)
If Not rst.BOF And Not rst.EOF Then
rst.Edit
rst.Fields("uLogonCount") = rst.Fields("uLogonCount") + 1
rst.Fields("uLastLogon") = Now()
rst.Update
Me.txtSecurityID = rst.Fields("uSecurityID")
Me.txtOverride = rst.Fields("uSpecialPermissions")
Me.txtUserID = rst.Fields("uUserID")
'Not in use Me.txtDelete = rst.Fields("uDelete")
Me.txtPassword = rst.Fields("uPassword")
DoEvents
Else
DoCmd.OpenForm "frmNewUser", acNormal, , , , acWindowNormal
Me.Dirty = False
Me.Visible = False
Do Until Me.Tag = "Continue"
DoEvents
Loop
End If
Set rst = Nothing
db.Close
Set db = Nothing
Form_Load_Exit:
Exit Sub
End Sub
Private Sub cmdContinue_Click()
On Error GoTo ErrHandler
If Nz(Me.txtFirstName, "") = "" Then
MsgBox ("First Name cannot be empty.")
DoCmd.GoToControl "txtFirstName"
Exit Sub
End If
If Nz(Me.txtLastName, "") = "" Then
MsgBox ("Last Name cannot be empty.")
DoCmd.GoToControl "txtLastName"
Exit Sub
End If
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblUsers ( uNetworkID, uFirstName, uLastName, ueMail, uLastLogon, uLogonCount, uSecurityID, uActive )" & _
" SELECT Environ("UserName"), '" & Me.txtFirstName & "', '" & Me.txtLastName & "', Now(), 1, 9, True"
DoCmd.RunSQL strSQL
Forms(" Switchboard").Tag = "Continue" 'frmMainMenu change to the name of your Main Menu/Switchboard/Navigation Form
DoCmd.Close acForm, Me.Name
Complete:
Exit Sub
ErrHandler:
MsgBox ("Error creating user profile: " & Err.Description)
End Sub
Private Sub cmdExit_Click()
Application.Quit
End Sub
strSQL = "INSERT INTO tblUsers ( uNetworkID, uFirstName, uLastName, ueMail, uLastLogon, uLogonCount, uSecurityID, uActive )" & _
" SELECT Environ("UserName"), '" & Me.txtFirstName & "', '" & Me.txtLastName & "', Now(), 1, 9, True"
strSQL = "INSERT INTO tblUsers ( uNetworkID, uFirstName, uLastName, uLastLogon, uLogonCount, uSecurityID, uActive )" & _
" SELECT Environ("UserName"), '" & Me.txtFirstName & "', '" & Me.txtLastName & "', Now(), 1, 9, True"
Private Sub cmdContinue_Click()
On Error GoTo ErrHandler
If Nz(Me.txtFirstName, "") = "" Then
MsgBox ("First Name cannot be empty.")
DoCmd.GoToControl "txtFirstName"
Exit Sub
End If
If Nz(Me.txtLastName, "") = "" Then
MsgBox ("Last Name cannot be empty.")
DoCmd.GoToControl "txtLastName"
Exit Sub
End If
DoCmd.SetWarnings False
strSQL = "INSERT INTO tblUsers ( uNetworkID, uFirstName, uLastName, uLastLogon, uLogonCount, uSecurityID, uActive )" & _
" SELECT Environ("UserName"), '" & Me.txtFirstName & "', '" & Me.txtLastName & "', Now(), 1, 9, True"
DoCmd.RunSQL strSQL
Forms(" Switchboard ").Tag = "Continue" 'frmMainMenu change to the name of your Main Menu/Switchboard/Navigation Form
DoCmd.Close acForm, Me.Name
Complete:
Exit Sub
ErrHandler:
MsgBox ("Error creating user profile: " & Err.Description)
End Sub
Private Sub cmdExit_Click()
Application.Quit
End Sub