[Resolvido]Em uma consulta atualiza incluir o usuário logado

Olá a todos.

Em um Bd de Emprestimo de material.

O BD é aberto por login, salvando a pessoa que logou em uma Variável Pública (SisUsu)
Declarada no Geral

Option Compare Database
Public sisUsu
Public sisNivel

A tabela tem um Campo Last_update que no form de cadastro quando a pessoa empresta o material é colocado na caixa de texto Last_update o logado e a data, pelo comando:
Me.last_update = sisUsu

Os dados do material emprestado e da pessoa que emprestou vão para uma tabela de “material Emprestado” que alimenta um novo form que contem os dados da Pessoa e os objetos emprestados em um subform ligado pelo RG ao principal. (Que é similar a um pedido de Cliente)
Neste subform fica também o campo Last_update. Da pessoa que logou na época do empréstimo.

Quando essa pessoa devolve o material a consulta abaixo passei para modo SQL:

UPDATE Material SET Material.Nome = "COFRE", Material.Exercicio = "S.R.M.O", Material.[Data Devo] = forms!Formulário1![cargas subformulário]![Data Devo], Material.Cargo = "CARREIRA", Material.RG = 0, Material.[Data Carga] = Null, Material.Ocorrências = "DEVO DE : " & forms!Formulário1!NOME & " " & forms!Formulário1!RG
WHERE (((Material.[Id Mat])=[forms]![Formulário1]![cargas subformulário]![id Mat]));

Atualiza a Tabela de Material apagando o nome de quem estava usando, colocando a data de devolução e o campo Last update fica o mesmo.

Problema:

A pessoa que logou no empréstimo pode não ser a mesma que irá receber e esta ficando os dados antigos no campo Last_update.

É possível incluir na consulta atualiza abaixo o Usuário logado (SisUsu) nesse momento no campo Txt do Form de cadastro preenchido pelo Me.Last_update = sisUsu e salvar na tabela.?

Complicado a explicação!!!

Boa tarde, flecha
Se entendi bem, acrescente o campo Last_update (...,Last_update='" & sisUsu & "'...)

Alexandre,

Tentei mas ele coloca a palavra sisUsu no campo com as aspas e não o usuário logado.

Eu estava pensando, a pessoa esta logada a consulta atualização não pega o sisUsu e salva o antigo, e após a execução dessa consulta que é chamada por um Botão de comando não faz mais nada. Depois é só fechar o formulario e feito isso o form que volta é o menu.

Pergunto ? Poderia abrir o form de cadastro no mesmo item e assim ele executaria o me.last_update = sisUsu do formulario.?

Boa noite,
Indique o código que tentou

Ficou assim:

UPDATE Material SET Material.Nome = "COFRE", Material.Last_Update = '" & sisUsu & "', Material.Exercicio = "S.R.M.O", Material.[Data Devo] = forms!Formulário1![cargas subformulário]![Data Devo], Material.Cargo = "CARREIRA", Material.RG = 0, Material.[Data Carga] = Null, Material.Ocorrências = "DEVO DE : " & forms!Formulário1!NOME & " " & forms!Formulário1!RG & " " & "Recebido por: " & forms!Formulário1!last_update
WHERE (((Material.[Id Mat])=forms!Formulário1![cargas subformulário]![id Mat]));

O campo Last_Update no Form esta ficando assim: "& sisUsu &"

Se o controlo no formulário, onde exibe o campo Last_Update não está certo, não será problema do código SQL de actualização, porque este código pega o valor indicado no controlo.
Tem de verificar a origem do conteúdo do controlo no formulário. Das duas uma: ou o campo está preenchido com o valor sisUsu ou existirá algum erro no carregamento do dado do controlo

Eu vou tentar um PrintScreen do form
e depois coloco aqui para analisar, ou também vou tentar colocar uma cópia do Bd.

Ele esta colocando o sisUsu como Texto e não o valor guardado dentro da Variavel.

Aguarde

Eis o Form com a explicação, é nesse form que esta a instrução SQL.

Quem esta logado é Marcos canto superior esquerdo.
Quem entregou o material Flecha no campo SRMO do subForm, não ésta logado foi quem alterou por ultimo.

Agora quem esta mexendo é o Marcos (Logado) no sisUsu.

Quando clicar no Comando Grava a data de Devolução , dispara a SQL.

Alexandre,

Obrigado, pois você me ajudou a desvendar o problema,
como não estava conseguindo pegar pelo "sisUsu" variavel eu fiz da seguinte maneira:
Coloquei no formulário1 um campo txt com nome de Last_update e fiz carregar o usuário logado para ele,
assim eu inclui o Last_update do formulário1, referenciando-o na consulta atualização, até coloquei mais uma instrução para colocar também na OBS da tabela.

Ficou assim:

UPDATE Material SET Material.Nome = "COFRE", Material.Exercicio = "S.R.M.O", Material.[Data Devo] = forms!Formulário1![cargas subformulário]![Data Devo], Material.Cargo = "CARREIRA", Material.RG = 0, Material.[Data Carga] = Null, Material.Ocorrências = "DEVO DE : " & forms!Formulário1!NOME & " " & forms!Formulário1!RG & " " & "Recebido por: " & forms!Formulário1!last_update, Material.Last_update = forms!Formulário1!last_update
WHERE (((Material.[Id Mat])=[forms]![Formulário1]![cargas subformulário]![id Mat]));


Obrigado!