[Resolvido] Login com registro de login

Amigos.
Meu formulario de login está assim.

Código:

   If Not IsNull(Me.user_txt) And Not IsNull(Me.senha_txt) Then
        Dim fuser As String
        Dim fsenha As String
        Dim id As Integer
        Dim cod As Integer
        
        fuser = DLookup("user_name", "usuarios", "user_name = '" & Me.user_txt & "' ")
        fsenha = DLookup("user_password", "usuarios", "user_name = '" & Me.user_txt & "' ")
        id = DLookup("cod_user", "usuarios", "user_name = '" & Me.user_txt & "' ")
        cod = Nz(DMax("cod_login", "controleAcesso"), 0) + 1
              
        
        If IsNull(fuser) Or IsNull(fsenha) Then
                MsgBox "Usuário ou senha inválidos"
                Me.user_txt = ""
                Me.senha_txt = ""
        Else
                If Me.user_txt = fuser And Me.senha_txt = fsenha Then
                    MsgBox "Bemvindo"
                    DoCmd.OpenForm "principal", acNormal
                    DoCmd.Close acForm, "login"
                    
                    CurrentDb.Execute "INSERT INTO controleAcesso (cod_login, user_id, horalogin) SELECT cod as cod_login, id as user_id, Now as horalogin"
                Else
                    MsgBox "Usuário ou senha inválidos"
                    Me.user_txt = ""
                    Me.senha_txt = ""
                End If
        End If
        
    Else
        MsgBox "Usuário ou senha, não podem ser vazios"
        Me.user_txt = ""
        Me.senha_txt = ""
    End If

Meu objetivo é que ao fazer login deve ser gravado na tabela controleAcesso para fins de registro e também outros controles.

O insert ta dando pau, não estou sabendo fazer esse insert via VBA. O erro diz que falta parâmetros, mas como nenhum campo vem de tabela, não sei qual.

Me ajudem fazendo favor! Obrigado!

Bom eu mesmo achei aqui na ajuda do Access o erro.

Quando vamos inserir algo que não é um select usamo o VALUE no lugar.

o código ficou assim:

Código:


CurrentDb.Execute "INSERT INTO controleAcesso (cod_login, user_id, horalogin) SELECT cod as cod_login, id as user_id, Now as horalogin"


Abraço a todos.