MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR

    avatar
    arturneto61
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 16/02/2017

    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR  Empty [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR

    Mensagem  arturneto61 17/2/2017, 00:15

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

    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR  Captur10

    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


    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR  Qaa_0210

    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.


    Última edição por arturneto61 em 20/2/2017, 23:53, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR  Empty Re: [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR

    Mensagem  FabioPaes 17/2/2017, 01:22

    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...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    arturneto61
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 16/02/2017

    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR  Empty Re: [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR

    Mensagem  arturneto61 20/2/2017, 23:12

    Obrigado amigo!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR  Empty Re: [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR

    Mensagem  FabioPaes 21/2/2017, 01:08

    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)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR  Empty Re: [Resolvido]INSERIR NOME DO COMPUTADOR AO CLICAR EM SALVAR

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:01