[Resolvido]Excluir todos os registros do formulário continuo!

Bom dia companheiros!

Tenho uma tabela: "TbMpsArmazem"


E com origem nessa tabela tenho um formulário continuo "FrMpsAtualGG1"

Preciso através do evento ao clicar do botão,
excluir todos os registros desse formulário.

Estou tentando com esse código:


Private Sub Comando48_Click()
If IsNull(Me.IDmapas) Then

MsgBox "Não há registros a serem excluídos!", vbCritical, "Prezado Operador!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Prezado Operador!") = vbYes Then

CurrentDb.Execute "DELETE * FROM TbMpsArmazem WHERE IDmapas=" & Me.IDmapas & ""

DoCmd.RunCommand acCmdRefreshPage

MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Prezado Operador!"
DoCmd.Close acForm, "FrMpsAtualGG1"
DoCmd.OpenForm "PainelGG001"
Else
End If


End Sub


Mas está excluindo um registro por vez, e preciso excluir todos de uma vez!

Agradeço antecipado!

Tem certeza que está passando o ID comum a todos os registros a serem excluídos e não o ID individual da linha?

cliquio, ja verifiquei tudo e não consigo descobrir!

http://speedy.sh/w48Df/EXCLUIR-REGISTROS-FORM-CONTINUO.zip

Bom dia Norberto!

Tem coisas que é dificil entender, pois eu tinha um form e um sub form e usava
o mesmo código e funcinonava, agora para um form só não funcina!

Obrigado mestre funcionou maravilha.

Testei aqui!

Neste ultimo ai mestre, só exclui um por vez!
Igual ao que eu estava usando anteriormente.

Um abraço amigo!

Estava observando com esse código que eu estava usando:


If IsNull(Me.IDmapas) Then

MsgBox "Não há registros a serem excluídos!", vbCritical, "Prezado Operador!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Prezado Operador!") = vbYes Then

CurrentDb.Execute "DELETE * FROM TbMpsArmazem WHERE IDmapas=" & Me.IDmapas & ""

DoCmd.RunCommand acCmdRefreshPage

MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Prezado Operador!"
DoCmd.Close acForm, "FrMpsAtualGG1"
DoCmd.OpenForm "PainelGG001"
Else
End If

Na tabela ele exclui todos os registros com apenas um clic, só no form vai excluindo um a um, porque?

Olha que eu ja quebrei a cabeça aqui,

pois tenho outro código maravilhoso que exclui o form,
e todos os registros do subform, e olha que são de duas tabelas relacionadas.

Veja o código que uso em outro banco, que exclui o form e sub form.


If IsNull(Me.codigoMaquinaPrimario) Then

MsgBox "Não há registros a serem excluídos!", vbCritical, "Prezado Operador!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Prezado Operador!") = vbYes Then

CurrentDb.Execute "DELETE * FROM T_LeituraSubFormulario WHERE CodigoFilhoEstrangeiro=" & Me.código & ""
CurrentDb.Execute "DELETE * FROM T_LeituraFormulário WHERE codigoMaquinaPrimario=" & Me.código & ""
DoCmd.RunCommand acCmdRefreshPage

MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Prezado Operador!"
DoCmd.Close acForm, "FormularioAtualizaGG01"
DoCmd.OpenForm "PainelGG001"
Else
End If


O mais encucado Norberto e que vc da o comando excluir ele só exclui um registro no form,
ai vc abre a tabela excluiu todos os registros que era para excluir, beleza, ai vc abre
o form ta la de novo os registros só com um excluido.


Lembrando que esse código acima ai não é meu, foi copiado aqui do forum, e por sinal funciona
muitissimo bem no form e subfom.

Boa noite Lupércio...

Em uma grande parte dos meus forms, com subforms...eu utilizo esse código:

Private Sub bt_excluir_Click()
'Tratamento de erro
On Error GoTo Err_Delete

Dim numRecord As Integer 'Declaração da variável
numRecord = InputBox("Informe o número da Ordem de serviço....:", "teste de mensagem") 'Solicitação do número da Ordem de serviço

'Confirmação de operação de delete
If MsgBox("Deseja excluir o registro " & numRecord & "?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then

Dim SQL As String
DoCmd.SetWarnings False 'Aviso de execução
SQL = "DELETE * FROM OS WHERE IDservico = " & numRecord 'ALTERE O NOME DA TABELA E NOME DO CAMPO
'tabela nome do campo
DoCmd.RunSQL SQL 'Executa consulta

MsgBox "Operação realizada com sucesso!", vbInformation, "teste de mensagem!" 'Confirmação do processo
DoCmd.GoToRecord , , acNewRec

Else
MsgBox " Ação cancelada pelo usuário", vbInformation, " teste de mensagem"

Exit Sub

End If
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec


Exit_Delete:
Exit Sub

Err_Delete:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "teste de mensagem"

Resume Exit_Delete
End Sub

E sempre excluiu todos os registros.

Mas, fiquei aqui matutando....como esta as relações entre tabelas ? como está a propagação de exclusão ? Sei lá..são apenas ideias para você dar uma olhada. Pode ser que tenha passado algo que você não percebeu.

Boa a noite a si, Noberto.

Muito estranho mesmo....

Fiquei encucado aqui, pensando no que poderia ser. Dei uma olhada nos bancos que eu tenho aqui, com subforms carregados...e todos excluem ao mesmo tempo.

Estranho mesmo.

Mas se ele resolveu....ótimo !

Ola Silvio tudo bem?
O problema foi resolvido com o código do Norberto!
mas o que nos deixou encucado é que não conseguimos fazer funcionar com o currentDb.execute,
olha que passei a manhã interia, tentando, vou dar mais uma olhada por aqui,
se os senhores descobrirem, por favor passa a dica.

abraços.

Norberto o código que você me passou está excluindo todos os registros da tabeala,

Exemplo: tenho 25 registros com datas no form continuo.
Dia 24/04/2012 - 25 registros.
Dia 25/04/2012 - 25 registros.

Vamos dizer que quero excluir os registros do dia 24/04/2012.
Tenho a consulta que pesquisa a data e abre o form.
quando clico para excluir os registros, exclui todos os registros da tabela.

Que complicação.

Funcionou assim:

Private Sub Excluir_Click()
If IsNull(Me.codigo) Then

MsgBox "Não há registros a serem excluídos!", vbCritical, "Prezado Operador!"
Exit Sub
ElseIf MsgBox("Tem certeza que quer excluir todos os registros?", vbYesNo + vbQuestion, "Prezado Operador!") = vbYes Then

DoCmd.SetWarnings False
DoCmd.RunSQL ("delete from ConsultaDataAtual where Data = Data;")
DoCmd.SetWarnings True
Form.Refresh



MsgBox "Resgistros excluídos com sucesso!", vbInformation, "Prezado Operador!"
DoCmd.Close acForm, "FrMpsAtualGG1"

Else
End If

End Sub


Obrigado pela dica!

Verdade Norberto, obrigado!

Corrigi aqui mesmo, vá que alguem precise do código.