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

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.

Boa tarde,

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

Abraço..

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.

Segue o BD

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

Veja se serve???

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!!

Fehando o tópico como resolvido.

Obrigado, vocês são sensacionais!!

Boa tarde,

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

Abraço...

Esse exemplinho salvou minha vida, obrigada Roberto_1977!

Abs

De nada janettepires....

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!

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!"

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

Obrigada meninos!