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


3 participantes

    [Resolvido]Editar dados de uma tabela

    avatar
    eliaspedroso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Editar dados de uma tabela Empty [Resolvido]Editar dados de uma tabela

    Mensagem  eliaspedroso 10/9/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
    [Resolvido]Editar dados de uma tabela AttachmentSINECAP.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (224 Kb) Baixado 3 vez(es)


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Editar dados de uma tabela Empty Re: [Resolvido]Editar dados de uma tabela

    Mensagem  Alexandre Neves 11/9/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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Editar dados de uma tabela Empty Re: [Resolvido]Editar dados de uma tabela

    Mensagem  Silvio 11/9/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    eliaspedroso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Editar dados de uma tabela Empty Editar dados de uma tabela

    Mensagem  eliaspedroso 11/9/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.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Editar dados de uma tabela Empty Re: [Resolvido]Editar dados de uma tabela

    Mensagem  Silvio 11/9/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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    eliaspedroso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Editar dados de uma tabela Empty Editar dados de uma tabela

    Mensagem  eliaspedroso 11/9/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?

    Conteúdo patrocinado


    [Resolvido]Editar dados de uma tabela Empty Re: [Resolvido]Editar dados de uma tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 08:42