MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    apagar dados das tabelas

    Compartilhe

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    apagar dados das tabelas

    Mensagem  crb_sjrp em Qua 16 Jul 2014, 14:12

    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.

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: apagar dados das tabelas

    Mensagem  Assis em Qua 16 Jul 2014, 14:23

    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


    .................................................................................
    *** Só sei que nada sei ***

    crb_sjrp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 21/03/2013

    Re: apagar dados das tabelas

    Mensagem  crb_sjrp em Qua 16 Jul 2014, 14:35

    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

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    apagar dados das tabelas

    Mensagem  good guy em Qua 16 Jul 2014, 14:41

    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.

    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 2746
    Registrado : 06/11/2009

    Re: apagar dados das tabelas

    Mensagem  Assis em Qua 16 Jul 2014, 22:28

    Boa noite crb_sjrp

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

    Testado em Office 2007





    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Qua 07 Dez 2016, 08:36