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

    Alterar registro no VBA 2010

    avatar
    eduardo freitas
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Alterar registro no VBA 2010 Empty Alterar registro no VBA 2010

    Mensagem  eduardo freitas 16/10/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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Alterar registro no VBA 2010 Empty Re: Alterar registro no VBA 2010

    Mensagem  Noobezinho 16/10/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

      Data/hora atual: 29/3/2024, 00:57