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

    [Resolvido]Editar dados de uma tabela

    Compartilhe

    eliaspedroso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/09/2017

    [Resolvido]Editar dados de uma tabela

    Mensagem  eliaspedroso em Dom 10 Set 2017, 17:46

    Olá pessoal, boa tarde!

    Estou criando um bd para uma biblioteca, mas não estou conseguindo atualizar os dados da tabela via código VBA. Preciso atualizar os dados no frmCadastrar_Leitor e no frmCadastrar_Livros
    Alguém pode me ajudar?
    Anexos
    SINECAP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (224 Kb) Baixado 2 vez(es)


    Última edição por eliaspedroso em Sex 15 Set 2017, 20:04, editado 1 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Editar dados de uma tabela

    Mensagem  Alexandre Neves em Seg 11 Set 2017, 09:08

    Bom dia, e bem-vindo ao fórum
    Faltou a senha


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3616
    Registrado : 20/04/2011

    Re: [Resolvido]Editar dados de uma tabela

    Mensagem  Silvio em Seg 11 Set 2017, 12:20

    Bom dia e boa tarde a todos...

    Elias, testei a tua base de dados e não vi errou algum ao acrescentar dados nos formulários que disse.

    Pode ser mais especifico quanto ao erro ?

    No aguardo.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    eliaspedroso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/09/2017

    Editar dados de uma tabela

    Mensagem  eliaspedroso em Seg 11 Set 2017, 17:07

    Silvio, Alexandre Neves, Boa tarde!

    Obrigado pelo apoio!

    De fato, não fui muito claro na minha pergunta, me desculpe! Vou tentar esclarecer melhor...

    O que quero na verdade é modificar os dados que acrescento na tabela via vba, por exemplo: fiz o cadastro de um leitor de nome Fulano da Silva, mas depois, me lembro que o nome dele não é fulano mas Cicrano de Souza. No frmCadastrar_Leitor tenho um bt comando "modificar". É através desse botão que gostaria de alterar os dados cadastrados na tabela, por exemplo o nome que cadastrei de Fulano para Cicrano. Mas não estou conseguindo via código.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3616
    Registrado : 20/04/2011

    Re: [Resolvido]Editar dados de uma tabela

    Mensagem  Silvio em Seg 11 Set 2017, 17:36

    Algo assim...

    Código:
    Private Sub Substituir_Click()
    'Antes de realizar a substituição a rotina exclui os dados anteriores para aproveitar
      'a chave primária e assim evitar duplicidade de cadastro.
    'O campo "Código" que é a chave primária tem que estar no formulário de cadastro.

     CurrentDb.Execute "DELETE * FROM TblLeitor WHERE Código=" & Me.CÓDIGO & ""

    'Realizando a inserção de dados na tabela leitor
    Dim db As Database
    Dim tb As Recordset
    Set db = CurrentDb
    Set tb = db.OpenRecordset("tblLeitor")
    tb.AddNew
    tb!NOME = Forms!frmCadastrar_Leitor!txtNome
    tb!ENDEREÇO = Forms!frmCadastrar_Leitor!txtEndereço
    tb!Nº = Forms!frmCadastrar_Leitor!txtnumero
    tb!BAIRRO = Forms!frmCadastrar_Leitor!txtBairro
    tb!CEP = Forms!frmCadastrar_Leitor!txtCep
    tb!TELEFONE = Forms!frmCadastrar_Leitor!txtTelefone
    tb!CELULAR = Forms!frmCadastrar_Leitor!txtCelular
    tb!WATTSAP = Forms!frmCadastrar_Leitor!txtWattsap
    tb!EMAIL = Forms!frmCadastrar_Leitor!txt_Email
    tb.Update
    tb.Close
    Set db = Nothing
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    eliaspedroso
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/09/2017

    Editar dados de uma tabela

    Mensagem  eliaspedroso em Seg 11 Set 2017, 18:28

    Silvio,

    Obrigado pelo rápido retorno!

    Testei e funcionou! Agora e se eu quiser apenas modificar algum dado da tabela, por exemplo o endereço, sem excluir o cadastro?

      Data/hora atual: Seg 25 Set 2017, 10:47