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

    Alterar registro no VBA 2010

    Compartilhe

    eduardo freitas
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 16/10/2015

    Alterar registro no VBA 2010

    Mensagem  eduardo freitas em Sex 16 Out 2015, 02:58

    Boa Noite a Todos

    Me chamo Eduardo Freitas e estou com um problema que não consigo resolver
    criei todo um formulário VBA 2010 e o unico botão que eu não consigo colocar para funcionar é ALTERAR
    o código que estou usando é esse

    Private Sub botao_alterar_Click()
    linha = 2
    If Sheets("bancodedados").Cells(linha, 1) = clientes.box_nome_cliente.Text Then
    Sheets("bancodedados").Cells(linha, 2) = clientes.box_empresa.Text
    Sheets("bancodedados").Cells(linha, 3) = clientes.box_telefone_fixo.Text
    Sheets("bancodedados").Cells(linha, 4) = clientes.box_telefone_fax.Text
    Sheets("bancodedados").Cells(linha, 5) = clientes.box_celular.Text
    Sheets("bancodedados").Cells(linha, 6) = clientes.box_endereco_web.Text
    Sheets("bancodedados").Cells(linha, 7) = clientes.box_email.Text
    Sheets("bancodedados").Cells(linha, Cool = clientes.box_observacao.Text
    Sheets("bancodedados").Cells(linha, 9) = clientes.box_registro.Text

    'mensagem após a alteração
    MsgBox "Cadastro Alterado com Sucesso !", vbInformation, "CONFIRMAÇÃO DE ALTERAÇÃO"
    ActiveWorkbook.Save

    clientes.box_nome_cliente.Text = ""
    clientes.box_empresa.Text = ""
    clientes.box_telefone_fixo.Text = ""
    clientes.box_telefone_fax.Text = ""
    clientes.box_celular.Text = ""
    clientes.box_endereco_web.Text = ""
    clientes.box_email.Text = ""
    clientes.box_observacao.Text = ""
    clientes.box_registro.Text = ""

    'colocar cursor na caixa nome
    box_registro.SetFocus

    End If
    linha = linha + 1


    End Sub


    eu preciso de ajuda

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2489
    Registrado : 29/06/2012

    Re: Alterar registro no VBA 2010

    Mensagem  Noobezinho em Sex 16 Out 2015, 11:50

    Olá Eduardo

    O nosso fórum é voltado a soluções de programação em MS Access.
    Pode ser que algum membro utilize código VBA no Excel, possa te ajudar.
    Embora a linguagem seja a mesma, o conceito é totalmente diferente.
    É aguardar para ver.

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Dom 04 Dez 2016, 14:12