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

    [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Compartilhe

    rinomaru
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/07/2014

    [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  rinomaru em Qui 29 Jan 2015, 16:14

    Prezados, boa tarde!

    Sou iniciante em Access, estou utilizando a versão 2007, e estou com uma dificuldade: Tenho um formulário com caixa de listagem criada através do comando caixa de listagem do Access (frm_ListaClientes), com dados importados de uma tabela (tbl_CadClientes).
    O que gostaria de fazer é quando selecionasse o registro na caixa de listagem, clicasse em um botão (btn_Excluir), e ele deletasse o registro da caixa de listagem e da tabela também, aparecendo uma caixa de confirmação da exclusão ("sim" ou "não").

    Gostaria de saber como seria o código a ser usado no botão Excluir no formulário em que está a caixa de listagem.

    Obrigado pela ajuda.

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  Roberto_1977 em Qui 29 Jan 2015, 16:39

    Boa tarde,

    Posta aqui a sua BD para dar um help....

    Abraço.. Cool

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  ifahidalgo em Qui 29 Jan 2015, 16:54

    vamos lá

    no seu form crie um campo texto, pode ser com nome txtcodigo. "esse codigo seria a chave primaria da sua tabela, dos itens que está na caixa de listagem"

    no evento ao clicar na sua caixa de listagem coloque

    Me.txtcodigo = Me.sualistagem.Column(0) 'Zero indica a primeira coluna do codigo na tabela se tiver em outra coluna altere o valor

    agora crie um botão excluir
    no envendo click do botão coloque o seguinte

    If IsNull(txtcodigo) Or Me.txtcodigo = "" Then
      MsgBox "Selecione o item na lista para exclusão.", vbInformation + vbOKOnly, "Atenção!"
       Exit Sub
      Else
       CurrentDb.Execute ("DELETE * FROM suatabela where campodatabelacodigo = int(val('" & txtcodigo & "'));")
       MsgBox "Item excluído com Sucesso.", vbInformation + vbOKOnly, "Atenção!"
       Me.sualista.Requery
    End If

    testa ai.

    rinomaru
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/07/2014

    Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  rinomaru em Qui 29 Jan 2015, 17:05

    Segue o BD
    Anexos
    Listbox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 6 vez(es)


    Última edição por rinomaru em Qui 29 Jan 2015, 17:42, editado 1 vez(es)

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  ifahidalgo em Qui 29 Jan 2015, 17:27

    aplicou as informações que passei, o que apresentou?

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  Roberto_1977 em Qui 29 Jan 2015, 17:39

    Veja se serve???
    Anexos
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 32 vez(es)

    rinomaru
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/07/2014

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  rinomaru em Qui 29 Jan 2015, 17:51

    ifahidalgo, na realidade não entendi direito o que você apresentou, pois já tenho as tabelas.

    De qualquer maneira, obrigado pela atenção.


    Roberto_1977, é isso mesmo o que eu estou precisando!


    Obrigado a todos e especialmente ao ifahidalgo e ao Roberto_1977 pela ajuda!!

    rinomaru
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 31/07/2014

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  rinomaru em Qui 29 Jan 2015, 17:55

    Fehando o tópico como resolvido.

    Obrigado, vocês são sensacionais!!

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  Roberto_1977 em Qui 29 Jan 2015, 17:56

    Boa tarde,

    Estamos aqui para ajudar....
    Grato pelo retorno...
    O Forum agradeçe.

    Abraço... Cool

    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 84
    Registrado : 14/03/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  janettepires em Ter 03 Fev 2015, 13:26

    Esse exemplinho salvou minha vida, obrigada Roberto_1977!

    Abs

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  Roberto_1977 em Ter 03 Fev 2015, 13:34

    De nada janettepires.... Cool

    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 84
    Registrado : 14/03/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  janettepires em Ter 03 Fev 2015, 13:48

    Abusando um pouquinho...rs..

    Como eu faço para deletar o registro específico via código? (não quero colocar o botão/macro)

    Porque do formulário eu gravo em outra tabela, e preciso tirar de uma e colocar em outra.

    Obrigada! Rolling Eyes

    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 303
    Registrado : 13/10/2011

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  ifahidalgo em Ter 03 Fev 2015, 13:59

    se esse registro tiver um campo tipo codigo numero chave primaria

    CurrentDb.Execute ("DELETE * FROM tabela where camponatabela = int(val('" & txtcamponoform & "'));")
    MsgBox "Item excluído com Sucesso.", vbInformation + vbOKOnly, "Atenção!"

    se for um campo texto
    CurrentDb.Execute ("DELETE * FROM tabela where campodatabela = '" & txtcamponoform & "';"
    MsgBox "Item excluído com Sucesso.", vbInformation + vbOKOnly, "Atenção!"


    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  Roberto_1977 em Ter 03 Fev 2015, 14:00

    CurrentDb.Execute "DELETE * FROM NomeSuaTabela WHERE NomeCampoSuaTabela = '" & Me.NomeCampoSeuFormulario & "';"

    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 84
    Registrado : 14/03/2013

    Re: [Resolvido]Excluir registro da caixa de listagem e dos dados relacionados através de um botão

    Mensagem  janettepires em Ter 03 Fev 2015, 14:18

    Obrigada meninos!

      Data/hora atual: Qui 08 Dez 2016, 23:59