[Resolvido]Atualização de Campo

Senhores, mais uma vez recorro ao conhecimento de vocês.

A tbl_acolhimentos possui o campos "Status". Este status tem que ser alterado para "acolhido" quando um atendimento (form: atendendimentosadd3) é criado.
Estou quebrando cabeça com essa atualização. Aqui no forum msm eu ja procurei diversos tópicos sobre isso e não consegui resolver.

Podem me ajudar?

- Segue DB via Google Drive pois não consegui compactar e deixar o arquivo com menos de 2mb 0o -

https://drive.google.com/file/d/1P0brTOsvfVCcVPPpJI5vMszdbQNccoJf/view

DoCmd.SetWarnings False
 Dim StrSQL As String
 'Monta a consulta atualização utilizando
 'como critério o código da empresa
 StrSQL = "Update tbl_acolhimento Set Status = 'Atualizado' where CodAcoTab = CodAcoTab"
 'Executa a consulta
 DoCmd.RunSQL StrSQL
 'Atualiza o subformulário
 DoCmd.SetWarnings True
 

So coloca no evento ou botao que vc queira e alterar o 'Atualizado' Para a frase que queira.

Funcionou perfeitamente!!

Obrigado!