Daily Task database

[augcorv@gmail.com]

Im fairly new to access/VB and have been working on a simple task database that will allow me to enter daily entrees with a description field, date and time, and user id of the user entering the info - (user stamp)



I've downloaded "sullitec"'s sample posted on 09/11/12 - which was very useful. I've merged components from both "sullitecs" and mine. All plays well together with the exception of user log. It can log who is logged into the pc itself (ad user), but not the user who actually logged into the log in screen.

Any advice or guidance would be appreciated.

[pbaldy]

Not familiar with that sample or how you may have modified it. Generally speaking, if you use a custom login for your application, save the logged in user somehow. I just hide the login form after successful login, enabling me to refer to the user textbox on that form from anywhere.

[augcorv@gmail.com]

My database handles entrees based on a date and description. I need to implement username with the entry. The problem I am having is associating the user who logged into the database with a new entry made (tblSecurity's UserID). That being said, i need the new entry to insert the UserID field (automatically) of the user who is logged in. Ive been able to make the UserID entry auto populate with the username of the user logged into the PC.
My database has a tblSecurity, which has users and an tblEvents wich contains entry's (date, description and user who made enrty)

[pbaldy]

You've basically restated the question. Did you try what I suggested?

[augcorv@gmail.com]

Yes, Im able to hide the login screen, but that's not my issue. The issue is when a user creates a new entry in the database, that entry needs to automatically add a field with the username to keep track of who created the entry or modified it.
To recap, once you start the database, it prompts for a login. Once logged in, it opens up my form which is associated with the events table- displaying all entrees. On that form, you select create new entry and another table( event details) opens up and that is where the users name needs to auto populate. Hope that makes sense.

[pbaldy]

How did you do it with the user logged into the PC? You should be able to adapt that to get the value from the hidden form instead.

[augcorv@gmail.com]

A module that was included in the login template I used from sullitec's template

[augcorv@gmail.com]

Im still struggling with this database. Ive checked all relationships, tables, forms and could not pin point the issue. Any other suggestions? When creating a new entry into a from(EventTable) it opens another form (EventTableDetails) to enter the specifics. I would like a TextBox field to auto populate the current user logged into the database.

[pbaldy]

Can you post the db here?

[augcorv@gmail.com]

Here's the database, thanks.
Once started, login as newuser, pw newuser. The form starts, choose - "Open Task Book". There you will see all events created (Event Table). Select "New Event". Within that form, im trying to auto populate the Name field to correspond with the user who is currently logged in.

TaskBook.zip

[pbaldy]

Give it a default value of:

[Forms]![frmUserLogon].[txtUser]

and make sure to hide rather than close that form.

[augcorv@gmail.com]

Were you able to get that to work on the file i sent? It doesn't seem to be working, getting #Name? I see how the value should grab the info, but not sure how it retrieves the txtUser.

[pbaldy]

Yes, but I had to stop the login form from closing, as that's what it was doing, and why you're seeing that.

[augcorv@gmail.com]

The login form is closed once you click OK. The OK, On Click - Event Procedure is Visual Basic. Im not great at VB and trying to change close to hide...the VB is as follows:

Option Compare Database
Option Explicit
Private Sub cmdCancel_Click()
On Error GoTo Err_cmdCancel_Click
Dim intResponse As Integer

Forms!frmUserLogon.Visible = False

intResponse = MsgBox("Are you sure you want to cancel?", vbYesNo + vbExclamation, "Exiting System")

Select Case intResponse
Case vbYes
DoCmd.Quit
Case Else
Forms!frmUserLogon.Visible = True
End Select
Exit_cmdCancel_Click:
Exit Sub
Err_cmdCancel_Click:
MsgBox Err.Description
Resume Exit_cmdCancel_Click

End Sub
Private Sub cmdOk_Click()
On Error GoTo Err_cmdOk_Click
'-----------------------------------------------------------------------------------------------------------------------------
' This code is used to validate users found in the tblSecurity table. If the wrong user name or password is
' provided access is denied.
' Created by: Liam Sullivan
' Date Created: 08 Jan 2012
' Date Modified: 08 Jan 2012
'-----------------------------------------------------------------------------------------------------------------------------
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rstV As Recordset
Dim stDocName As String
Dim stLinkCriteria As String

Set db = currentdb()
Set rst = db.OpenRecordset("tblSecurity", dbOpenDynaset)

If Not IsNull(Me.txtUser) And Not IsNull(Me.txtPassword) Then
rst.FindFirst "Password = '" & Me.txtPassword & "'" & " And UserID = '" & Me.txtUser & "'"

If rst.NoMatch Then
MsgBox "You entered an incorrect Username or Password." & Chr(13) & _
"Please enter the correct Username and Password or " & Chr(13) & _
"contact the Administrator for assistance.", vbOKOnly + vbCritical, "Logon Denied"
ElseIf Me.txtPassword = "password" Then
MsgBox "This is the first time you've logged in or your password has been reset." & Chr(13) & _
"You must change your password before you can log in.", _
vbOKOnly + vbExclamation, "Change Password"
stDocName = "frmUserLogonNew"
stLinkCriteria = "[UserID]=" & "'" & Me![txtUser] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "frmStartup"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Else
MsgBox "You have left the Username and/or Password blank." & Chr(13) & _
"Please enter the correct Username and Password or " & Chr(13) & _
"contact the Adminstrator for assistance.", vbOKOnly + vbCritical, "Logon Denied"
End If

With User
.AccessID = rst.Fields("AccessID")
.ViewID = rst.Fields("ViewID")
.Active = rst.Fields("Active")
.Password = rst.Fields("Password")
.SecurityID = rst.Fields("SecurityID")
.UserID = rst.Fields("UserID")
End With

rst.Close

Exit_cmdOk_Click:
Exit Sub
Err_cmdOk_Click:
MsgBox Err.Description
Resume Exit_cmdOk_Click
End Sub
Private Sub txtPassword_AfterUpdate()
On Error Resume Next
Call cmdOk_Click

End Sub

[pbaldy]

I guess I misunderstood this then?

Yes, Im able to hide the login screen, but that's not my issue.

The code that closes the login form is in the timer event of frmStartup.