[Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR

Boa noite,
Desejo ao clicar no botão salvar, salvar os dados como: data, assunto, situação e nome do computador!



TENTEI DESSA FORMA:

Private Sub Comando52_Click()
On Error GoTo deu_erro
CurrentDb.Execute "INSERT INTO RESOLUCOES (DATA, ASSUNTO, SITUAÇÃO, USUARIO, COMPUTADOR) VALUES ('" & Me.DATA & "','" & Me.ASSUNTO & "','" & Me.SITUAÇÃO & "','" & USUARIOIDENT & "','" & Environ("ComputerName") & "')"
MsgBox "Resolução salva com sucesso!"

'Erro - Tratamento!
deu_erro:
MsgBox Err.Description
End Sub




AO CLICAR NO BOTAO ELE ESTÁ CRIANDO DOIS VALORES E SALVANDO O SEGUNDO DE FORMA CORRETA!
QUERO SALVAR APENAS NA LINHA DA TABELA DE ACORDO COM A NUMERAÇÃO CERTA.

Olá, seja bem vindo ao Forum!

Antes de começar reocomendo dar uma lida nas regras do Fórum!

Veja o item em destaque e adeque seu Tópico:

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.



Quanto a sua duvida, verifique se os campos do formulário não estao vinculados a tabela, pois se tiverem... No momento em que começa a preencher os dados é inserido um registro (o sem o nome do PC), e no momento em que vc clica no Botão é inserido outro registro, e dessa vez com o nome do PC.
Se for esse o caso, basta remover o Inset e apenas colocar algo parecido com isso:

Me.NomeCampoNomePC = Environ("ComputerName") <=== Se nao der certo, coloque o campo nome do computado no formulario, coloque oculto...

Obrigado amigo!

E entao amigo, Qual era mesmo o problema?

Volto a pedir que edite sua mensagem de abertura do Topico e coloque de acordo com as regras do Fórum! (Item 12)