apagar dados das tabelas

galera bom dia

gostaria de uma forca de vcs

vou destribuir meu aplicativo como faco uma funcao pra limpar todos os dados teste que inseri nas tabelas

deixa sem registro algum.

Teste

No click de um botão.

Mude o "NomeDaSuaTabela" pelo nome da sua tabela

Private Sub Comando0_Click()
MsgBox "O que você deve saber antes: " & Chr(13) & "Ao Confirmar Todos os Dados da BD " & Chr(13) & "Serão Excluídos de forma Irreparável. ", vbInformation, "Aviso"
DoCmd.SetWarnings False ' Desabilita avisos.
If MsgBox("Deseja Excluir TODOS os Registros das Tabelas ? ", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
CurrentDb.Execute "Delete * From NomeDaSuaTabela"
CurrentDb.Execute "Delete * From NomeDaSuaTabela2"
MsgBox "As Tabelas Foram ZERADAS Com Sucesso.", vbInformation, "Aviso"
Else
MsgBox "A tentativa de Eliminação foi cancelada.", , "Aviso"
End If
DoCmd.SetWarnings True
End Sub

show de bola fiz o teste mas queria ir mais alem ve se tu consegue me dar uma ideia


sera que nao conseguiria mostrar as tabelas que tenho criada tipo explorer e eu clicar en cima de qual eu quero apagar

pois assim so limpo as que eu preciso entendeu

Olá crb,

Tome muito cuidado com a exclusão de tabelas vinculadas por relacionamento (ou relacionadas). Você poderá excluir os registros das outras também. O Access deverá emitir um aviso sobre essa possibilidade. Para resolver o problema vc deverá editar os relacionamentos retirando da propriedade do vínculo "Propagar exclusão dos registros relacionados" desselecionando esta caixa.

Boa noite crb_sjrp

Importe para a sua BD o formulário " ZerarTabelas "

Testado em Office 2007