MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Excluir e atualizar registros VBA (excel) com banco de dados acces.

    Compartilhe

    JOAOGUIDO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 26/03/2017

    Excluir e atualizar registros VBA (excel) com banco de dados acces.

    Mensagem  JOAOGUIDO em Ter 28 Mar 2017, 00:08

    Boa noite, não tenho muita experiência em VBA, andei estudando através de alguns livros sobre o assunto
    e resolvi  criar um sistema de oficina baseado na linguagem e associado ao banco de dados  Acces, com inclusão, alteração e  exclusão de usuários, até então tudo funcionou conforme a aprendizagem adquirida através de uma breve leitura sobre o objeto de  estudo, porém como nem tudo que reluz é ouro, meus objetivos foram interrompidos  com a dificuldade de alterar e e excluir cadastros duplicados,  tentei selecionar a placa do veículo como critério para a alteração e ele alterou o primeiro registro do mesmo usuário, pois encontrou a mesma referência da placa antes do ultimo cadastro,
    no campo "ID" que está como chave primária e  numeração automática não é possível realizar essa operação, em outras comunidades me sugeriram criar um código com numeração automática, entretanto  não obtive sucesso através da prática e muito menos copiando códigos encontrados na WEB
    segue abaixo o código para alteração malsucedido, ficarei agradecido com quem poder me auxiliar.


    Set RS = New ADODB.Recordset

    RS.Open "SELECT * FROM CLIENTE WHERE PLACA = '" & Me.PLACA & "'", MICONEXAO, adOpenKeyset, adLockOptimistic, adCmdText

    RS.Fields("NOME") = Me.TexTNOME.Text
    RS.Fields("NASCIMENTO") = Me.TextNASCIMENTO.Text
    RS.Fields("SOBRENOME") = Me.TextSOBRENOME.Text
    RS.Fields("RUA") = Me.TextRUA.Text
    RS.Fields("BAIRRO") = Me.TextBAIRRO.Text
    RS.Fields("CEP") = Me.TextCEP.Text
    RS.Fields("CIDADE") = Me.TextCIDADE.Text
    RS.Fields("ESTADO") = Me.ESTADO
    RS.Fields("MESANO") = Me.MESANO
    RS.Fields("VEICULO") = Me.TextVEICULO.Text
    RS.Fields("MARCA") = Me.TextMARCA.Text
    RS.Fields("CHASSI") = Me.TextCHASSI.Text
    RS.Fields("ENTRADA") = Me.TextENTRADA.Text
    RS.Fields("SITUACAO") = Me.TextSITUACAO.Text
    RS.Fields("OBSERVACAO") = Me.TextOBSERVACAO.Text
    RS.Fields("SAIDA") = Me.TextSAIDA.Text
    RS.Fields("SEGURADORA") = Me.TextSEGURADORA.Text
    RS.Fields("TELEFONE") = Me.TextTELEFONE.Text
    RS.Fields("CELULAR") = Me.TextCELULAR.Text
    RS.Update
    MsgBox "ALTERAÇÃO REALIZADA COM SUCESSO", vbInformation, "OK"




    End Sub
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6496
    Registrado : 05/11/2009

    Re: Excluir e atualizar registros VBA (excel) com banco de dados acces.

    Mensagem  Alexandre Neves em Ter 28 Mar 2017, 20:50

    Boa noite, e bem-vindo ao fórum
    Nesse código, está a actualizar dados do registo. Não percebi a sua dúvida, no entanto, se tiver campo autonumeração, não precisa incluí-lo na inclusão do registo, ele assumirá automaticamente


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Alexandre Fim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 154
    Registrado : 13/12/2016

    Re: Excluir e atualizar registros VBA (excel) com banco de dados acces.

    Mensagem  Alexandre Fim em Qua 29 Mar 2017, 05:20

    Olá JOAOGUIDO,

    Pelo titulo da sua mensagem, vc tem um banco de dados em Access e com formulários no Excel?
    Por gentileza, se possível, poste seus sistema para que possamos analisar.


    Att,

      Data/hora atual: Sab 18 Nov 2017, 19:30