How to fill a form field after upon click, prompt a login, and fill the form field with the username of the logged in

[lbradbury]

Hello,

I have a form that has a text box in a PruchaseReqHeader form, that upon click it opens another form. This form is frm_login, and prompts for a username and password. The goal is once the user puts in their username and password, the field that was originally clicked populates with the username The code underneath the frm_login, upon clicking the login button is below. This is where I'm stuck, I don't know how to get the text box to populate with the username.

Private Sub cmd_login_Click()

  Dim db As DAO.Database
  Dim rst As DAO.Recordset
  Dim strSQL As String
 
  If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
    MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
    Me.txt_username.SetFocus
    Exit Sub
  End If
 
  If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
    MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
    Me.txt_password.SetFocus
    Exit Sub
  End If
 
  'query to check if login details are correct
  strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
 
  Set db = CurrentDb
  Set rst = db.OpenRecordset(strSQL)
  If rst.EOF Then
    MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
    Me.txt_username.SetFocus
  Else
    MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
    DoCmd.Close acForm, "frm_login", acSaveYes
  End If
 
 Set db = Nothing
 Set rst = Nothing

End Sub

 

[smozgur]

As you can see I am new member so the rules are NOT drilled into my head

Glad to hear you got the solution.

Since you are a new member, you might not know how it works. You just need to mark the solution post that answered your question instead of your closure post.
Therefore, I switched the marked post with the actual solution post.

 

[lbradbury]

Glad to hear you got the solution.

Since you are a new member, you might not know how it works. You just need to mark the solution post that answered your question instead of your closure post.
Therefore, I switched the marked post with the actual solution post.

His solution wasn't actually the right one, the one I posted was the correct solution.

 

[smozgur]

His solution wasn't actually the right one, the one I posted was the correct solution.

The solution has been provided in the post that I marked as the solution. It doesn't have to be your exact implementation since nobody is interested with your control names, etc.

As the final note, the following is the key snippet that is answering the original question.

Forms!frm1.txt_approval = strUser

 

[lbradbury]

The solution has been provided in the post that I marked as the solution. It doesn't have to be your exact implementation since nobody is interested with your control names, etc.

As the final note, the following is the key snippet that is answering the original question.

Forms!frm1.txt_approval = strUser

Understood