[Resolvido]Atualizar nome de usuário

Olá pessoal!

Tenho um formulário com um campo txtUsuário. Este campo capta o nome do usuário logado, de forma que ao fazer um cadastro de aluno fica gravado o nome do responsável pela ação.

Gostaria, porém que este campo fosse alterado após alguém fazer alguma alteração em um cadastro. Assim, estaria gravado, sempre o nome de que efetuou a ultima atualização.


grato...

Como assim? Pois se o usuário se logar, é o nome dele que deve está na caixa de texto e não outro... Ou eu não entendi o que pretende...
Poderia ser mais claro?

Olá Ronaldo,

Segue abaixo um exemplo de como você pode conseguir o que suponho que você pretende. Tente adaptar o exemplo ao seu bd. Não esqueça de colocar os módulos também. O nome de usuário é Eduardo e a senha é manancial. Pressione a tecla SHIFT quando for clicar para visualizar o código.

Obrigado, Good Guy. Vou seguir tua orientação!

Marcelo, deixa eu tentar ser mais claro:

Ao cadastrar um aluno, o campo recebe o nome do usuário logado (Ronaldo), e armazena na tabAlunos.

Mas, caso o usuário Marcelo faça alguma alteração no registro, o nome de Ronaldo (que o cadastrou) é substituído pelo nome Marcelo (que efetuou a alteração).


Ok?

Nesse caso, você gostaria de manter o nome de quem fez o primeiro cadastro?

Não, neste caso o nome de que o cadastrou será substituído pelo nome de quem fizer qualquer alteração no registro.

Teríamos que ver como está gravando os dados do usuário logado na tabela...
Poderia dispor seu aplicativo para vermos isso?

Olá!

Consegui com o seguinte código.

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim UserAtual As String

UserAtual = [Forms]![frmLogin].[cboUsuário].Column(1)

If Me.Form.Dirty = True Then
AtualCadastro = Now()
Me.txtQuemAlterou = "Atualizado por: " & UserAtual & " em: " & CStr(AtualCadastro)

End If
End Sub

Bom que resolveu! O Fórum agradece o feedback!