[Resolvido]Informar login armazenado em um campo de uma consulta

Tenho um banco de dados com esquema de login e senha.
Ao abrir o bd, surge o 1º formulário (F-01-LOGIN) que requer a entrada do login e a senha, após a verificação, armazena o login no campo LOGIN da minha consulta (C-01-IDENTIFICAÇÃO) e dar acesso ao banco.

Estou fazendo um histórico de alterações e para tanto, utilizei o exemplo RegistraAlterações do Moderador JPaulo.

Desta forma pretendo informar na tblog além do utilizador que esta logado no computador, informar o login armazenado no campo LOGIN da minha consulta (C-01-IDENTIFICAÇÃO).

Abaixo segue o código original do exemplo RegistraAlterações do Moderador JPaulo

Private Sub Command11_Click()
'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
Dim apaga As Integer
Dim alerta As String
Dim Busca As String
Dim strUser As String
Dim strSQL As String

strUser = GetUserName_TSB
Busca = Me.Código 'informa o CurrentRecord
apaga = MsgBox("Confirma excluir o registro:" _
& vbCr & " " & Busca & " ?", vbOKCancel + vbCritical, "Atenção!")
Select Case apaga
Case vbOK 'se for SIM, adiciona à tabela de Log e de seguida deleta
strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & Me.MNome & "','" & Me.Idade & "','" & Me.Morada & "','" & "Registro Apagado" & "')"
DoCmd.RunSQL strSQL

DoCmd.RunCommand acCmdDeleteRecord
Case vbCancel
Exit Sub
End Select
DoCmd.Close
End Sub


Caso precise declara uma variável temporária ou global, peço a gentileza de colocar passo a passo e como chamá-la.

Agradeço a atenção.

Basta você substituir por um DLookup à consulta;


strUser = GetUserName_TSB

strUser = DLookup("[LOGIN]", "[C-01-IDENTIFICAÇÃO]")

Se pretender manter os dois, recomendo que altere os nomes dos campos e faça deste jeito;



Private Sub Command11_Click()
'By JPaulo ® Maximo Access
'http://maximoaccess.forumeiros.com/
Dim apaga As Integer
Dim alerta As String
Dim Busca As String
Dim strUserWindows As String, strUserLocal As String
Dim strSQL As String

strUserWindows = GetUserName_TSB
strUserLocal = Nz(DLookup("[LOGIN]", "[C-01-IDENTIFICAÇÃO]"), 0)

Busca = Me.Código 'informa o CurrentRecord
apaga = MsgBox("Confirma excluir o registro:" _
& vbCr & " " & Busca & " ?", vbOKCancel + vbCritical, "Atenção!")
Select Case apaga
Case vbOK 'se for SIM, adiciona à tabela de Log e de seguida deleta
strSQL = "INSERT INTO tblLog (strUserWindows, strUserLocal, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUserWindows & "', '" & strUserLocal & "', Now(),'" & Me.Form.Name & "','" & Me.MNome & "','" & Me.Idade & "','" & Me.Morada & "','" & "Registro Apagado" & "')"
DoCmd.RunSQL strSQL

DoCmd.RunCommand acCmdDeleteRecord
Case vbCancel
Exit Sub
End Select
DoCmd.Close
End Sub

Muito obrigado pela atenção, e a rápida resposta ao meu questionamento.

Parabéns pelo fórum e a competência de vocês.

Você é gênio.

Tentarei mais tarde, uma vez que o banco está no comutador de casa e eu estou no trabalho.

Retornarei em breve, informando se deu certo ou não.

Mais uma vez muito obrigado. Irei recomendar a quem conheço este fórum.

Em tempo, para que serve o moduloutilizador do seu exemplo RegistraAlteracoes_II

OK, no aguardo.

JPAULO,
Deu tudo certo, mais uma vez muito obrigado pela atenção.

Resolvido.

NANDOJPA

Valew pelo retorno o fórum agradece.

Desta vez eu coloco o Resolvido.