Solved Insert Into VBA (1 Viewer)

[dawsonrhodes]

Hola,

I'm just making a form that will add users in for a login page, there are two categories of users, employees and management. if a checkbox is clicked before update, the information recorded in the control source tblUsers will be added to tblUsersKey (the exact same collums and setup)

Here is what I have so far

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strSQL As String
If Check154.Value = True Then
If Me.NewRecord Then



'run and hide warnings
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
    
End If
End Sub

The fields are [UserID] (for tblUsers}, [UserIDKey] {for tblUsersKey), [Username], [Password], [FirstName], and [LastName]

Thank you in advance for any help.

 

[jdraw]

Separate from your basic question, you might want to review the db.execute structure to by pass the warnings settings.

 

[arnelgp]

strSQL = "Insert Into tblUsersKey( UserIDKey, Username, Password, FirstName, LastName ) " & _
"SELECT " & Me!UserID & ",'" & Me!UserName & "','" & Me!Password & "','" & Me!FirstName & "','" & Me!LastName & "'"

 

[dawsonrhodes]

strSQL = "Insert Into tblUsersKey( UserIDKey, Username, Password, FirstName, LastName ) " & _
"SELECT " & Me!UserID & ",'" & Me!UserName & "','" & Me!Password & "','" & Me!FirstName & "','" & Me!LastName & "'"

As always, a VBA saviour from God above.

Thank you so much!