[Resolvido]Não exclui itens do Form e Subform

Boa Tarde...

Não consigo excluir dados do Form e Subform vinculado, mesmo impondo integridade referencial e Propagar exclusão dos registros relacionados.

O Código a qual estou usado é esse:

Private Sub btExcluir_Click()
If IsNull(Me!DescricaoTreinamento) Then Exit Sub
Call fncSonErro
If MsgBox("Confirma a exclusão do Treinamento " & vbCrLf & vbCrLf & Me!DescricaoTreinamento, vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Me!ID_Treinamento.SetFocus
End Sub


Ao usar o código acima ele exclui um por um dos itens do subform mas não exclui o item Pai do form.

O que está errado.?

olá, boa tarde...

Tente esse...

Private Sub Excluir_Click()
If MsgBox("Sua mensagem ?", vbYesNo + vbDefaultButton1 + vbInformation, "Sua mensagem") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
End Sub

E adapte-o conforme a tua necessidade.

Se possível, de o retorno.

mantem o problema silvio

Exclui um por um do subform e não esclui o item pai do form.

Olá, boa tarde.

No meu funciona. Como esta o relacionamento entre as tabelas do form e do sub-form. ?

Se possível, for....zipa o seu BD, apenas onde esta ocorrendo o problema..e manda para cá.

Vou dar uma olhada nele.

Boa noite Noberto...na lida também !!

Eu acho que ele não colocou mesmo no form. principal, por isso que deve estar excluindo um a um.

Boa noite.....

Com toda a certeza Noberto, somente dessa forma que, como diria JPaulo....Funfa !

Marcelo, estou postando aqui para você, um sistema que eu fiz a um bom tempo atrás ( deixei apenas o que é útil para resolver o teu problema), nele você vai ver como funciona a exclusão, se quiser, você pode adaptá-lo as tuas necessidades ou depurar ele conforme a tua necessidade.

Ele está feito em Access 2007.

é exatamente isso que fiz

Botão excluir no form principal
O relacionamento das tabelas está um para muitos

Marcelo, bom dia...

Coloca aqui, no fórum, esse BD para eu dar uma olhada nele....

Estou enviando

A tela é Cadastro de Treinamento
Será apresentado na Abertura do BD

segue.....

Marcelo, bom dia.

Por gentileza, qual formato ele se encontra ? por algum acaso é no formato 2010? se for salve-o em 2007.

segue

Boa tarde colega Marcelo, tudo tranquilo.....

Adapte esse código no botão excluir, testei e funcionou...
http://speedy.sh/mnjut/011.rar

Dim apaga As Integer
DoCmd.SetWarnings False
apaga = MsgBox("Confirma excluir registro? ", vbYesNo + vbQuestion, "Excluir")
Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
DoCmd.GoToRecord , "", acNewRec

Não Deu certo.....

Repare que na tabela ainda mantem o arquivo. tbl_CadTreinamento

Ele apaga visualemte no form e subfrm, porem se navegar nos registro verá que está lá...

estranho né....

Carros amigos, boa tarde

Consegui resolver meu problema restruturando meu bd

estava com erro de relacionamento...

desculpe o transtorno e obrigado pela atenção...

at.