[Resolvido]COMO DAR UM UPDATE SET EM UM USUÁRIO LOGADO

Pessoal, eu postei algumas perguntas sobre login e obtive algumas respostas, porém ainda não consegui resolver o problema, ao autenticar o usuário preciso dar um update set no login que é uma chave estrangeira de uma tabela.

Por exemplo:

Tenho a tabela Usuarios onde a chave primaria é login, esta chave está relacionada na tabela tbl_processo_rex que a recebe como chave estrangeira. Os campos do formulário são:

SIPRO
MASP_REQUERENTE
REQUERENTE (NOME DO REQUERENTE)
TIPO/AP (TIPO DE APOSENTADORIA)

Preciso criar um evento que ao sair do campo TIPO/AP ele dá um update set onde set será inserido o usuário logado. Achei um código que é em VBA mas está dando erro:

CurrentDb.Execute "UPDATE tbl_processo_rex Set [tbl_processo_rex].[login] = Now() WHERE [Usuario].[login] = " & Me.cboUsuario.value & "" Mas está dando erro em cboUsuario.value

Como fazer isso em VBA?

Segue o link para baixar o BD caso precisem dar uma olhada: http://speedy.sh/BTWPz/bd-ap-formulario-login-plinio.rar

Eu estou aproveitando o sistema de login do Plínio. Obrigado.

utilize a variavel getusuarioatual que está no seu código.

acrescente o campo login no su formulário (deixe ele invisivel se desejar)

No evento após atualizar do campo COD_TIPO_APOSENTADORIA que tem como rótulo o titulo: TIPO/AP coloque:

Me.login = getUsuarioAtual & " " & Now

Toda vez que atualizar o campo será registrado em login o nome do usuario e a hora que foi feita a alteração.

Talvez essa seja a melhor maneira, pois utilizar UPDATE em um form que já utiliza no recordsource a tabela a ser atualizada é um pouco complicado. Sem haver chave primária nesta tabela também complica.

Amigo, o código ficou assim:

Private Sub COD_TIPO_APOSENTADORIA_AfterUpdate()
Me.login = getUsuarioAtual & " " & Now
End Sub

Mas deu a seguinte mensagem: Erro de Compilação, método ou membro de dados não encontrado.

Porque será que está retornando este erro?

Isso porque ele não encontra o seu campo (caixa de texto) com o nome login.

Precisas incluir o campo login da sua tabela tbl_processo_rex e o nome da caixa de texto precisa estar como login. Se estiver com outro nome modifique então para:

Private Sub COD_TIPO_APOSENTADORIA_AfterUpdate()
Me.SeuOutroNome = getUsuarioAtual & " " & Now
End Sub

Fiz o teste e não insere

coloquei o usuário dentro do form:

Ficou assim

USUÁRIO (caixa de texto simples)
LOGIN (chave estrangeira da tabela e o campo dentro do form não está ativado). Eu até ativei o campo e bloqueei, mas não deu certo.

Será não compreendo porque não insere no campo login dentro da tabela tbl_processo_rex

Preciso desta informação por causa de relatórios mensais do sistema.

Obrigado.

Ontem a noite em casa eu testei isso e deu certo. Somente inseri o campo login no form. Ele gravou o login e a hora da alteração. Isso que deseja tá fácil, pois o modulo de login já disponibiliza a variável com os valores de quem loga.

Só posso lhe ajudar nesse caso a noite em que poderei explorar o seu banco.

Aguarde, pode ser que algum colega ajude.

Engraçado, pois eu estou tentando aqui e não está dando certo, tem como você me enviar para que eu possa dar uma olhada, o campo a ser atualizado é só o login, a hora está definida como agora() na data de recebimento.

Ele não insere o login do usuário logado. Quando acesso a tabela não consta nada no campo. O login fica em branco. Eu preciso inserir por exemplo: O usuário logado é admin e quando eu acessar diretamente na tabela tbl_processo_rex o campo login deverá estar preenchido com o nome Admin. Não estou entendendo a lógica.

Faça um pouco diferente, vamos lá:

Vá no seu form chamado CADASTRO/REX

Nele no modo estrutura (design) insira os campos chamados login e HORA_REX

No seu campo chamado COD_TIPO_APOSENTADORIA
coloque no evento após atualizar o seguinte:

Me.login = getUsuarioAtual
Me.HORA_REX = Now

Pronto.

Agora faça login corretamente e insira um novo cadastro neste form chamado CADASTRO/REX.

Eu fiz isso aqui e deu certo. Não colocarei o exemplo porque seu banco está muito grande, mais de 7MB e assim é dureza anexá-lo.

Qualquer coisa retorne.

Obrigado amigo.