MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Código VBA para botão alterar registro

    Compartilhe

    Marioscruz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 12
    Registrado : 18/07/2016

    [Resolvido]Código VBA para botão alterar registro

    Mensagem  Marioscruz em Ter 02 Ago 2016, 16:28

    Olá pessoal!

    Sou iniciante em access e estou com dificuldade para criar um botão que edite um registro que já existe. Já pesquisei bastante e não consegui. Se alguém puder dar um help ficarei muito grata!

    Criei um formulário e vinculei à tabela onde os registros são salvos.

    Para fazer a consulta dos registros salvos, criei uma caixa de combinação vinculada à chave primária da tabela.

    No evento "ao atualizar" da caixa de combinação usei a função DLookup para que as informação referentes ao registro selecionado apareçam nos demais campos do formulário, sendo que estes campos são bloqueados para edição, são apenas para visualização dos dados.

    Criei um botão "alterar dados" que habilita as caixas de texto para que as informações possam ser editadas.

    Criei um botão "salvar alterações" e aí está meu problema. Quero criar um código que ao clicar neste botão as informações digitadas nas caixas de texto sejam alteradas na tabela, nos campos referentes ao registro selecionado na caixa de combinação. Ou seja, é um botão para alterar um registro já existente.

    Tentei com o método Refresh, mas acho que esse não é o caminho. Fiz o curso avançado de access, mas no curso não havia NADA de programação! Ou seja, tudo o que aprendi foi fuçando aqui no fórum... e estou meio perdida. Alguém pode ajudar?

    Grata desde já!

    leicand
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 04/01/2016

    Re: [Resolvido]Código VBA para botão alterar registro

    Mensagem  leicand em Qua 03 Ago 2016, 12:36

    Bom dia,
    Você pode fazer a alteração via recordset da seguinte maneira:

    Function Nome_do_seu_Botão_Click()
    Dim db as DAO.Database
    Dim rs as DAO.Recordset
    Dim SQL as String
    SQL="select * from NOMEDASUATABELA where 'AQUI VOCÊ COLOCA A CONDICIONAL QUE COLOCOU NO DLOOKUP PARA ACHAR O REGISTRO A SER ALTERADO'"
    Set rs=db.openRecordset(SQL,dbOpendynaset)
    With rs
    .edit
    !NOMEDACOLUNA=NOVOVALOR
    .update
    end with
    End Function

    Se quiser postar seu Formulário também posso dar uma olhada.


    Marioscruz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 12
    Registrado : 18/07/2016

    Re: [Resolvido]Código VBA para botão alterar registro

    Mensagem  Marioscruz em Qui 01 Set 2016, 19:21

    Desculpe a demora! Não vi a notificação da sua resposta :-(
    Muito obrigada pela ajuda!!

    Marioscruz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 12
    Registrado : 18/07/2016

    Re: [Resolvido]Código VBA para botão alterar registro

    Mensagem  Marioscruz em Qui 01 Set 2016, 19:23

    Grata pela ajuda

      Data/hora atual: Dom 11 Dez 2016, 00:13