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]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.
    avatar
    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 : 307
    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 16 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 : 307
    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?
    avatar
    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 43 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!!
    avatar
    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
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    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
    avatar
    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
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    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 : 307
    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!"

    avatar
    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 & "';"
    avatar
    janettepires
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 104
    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: Qua 26 Jul 2017, 17:33