MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Deleta o conteúdo de todas as tabelas do Bd

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12224
    Registrado : 01/03/2011

    Deleta o conteúdo de todas as tabelas do Bd Empty Deleta o conteúdo de todas as tabelas do Bd

    Mensagem  HARYSOHN 22/5/2013, 00:46

    Código:


    Option Compare Database
    Dim StrTabela As String

    Private Sub Comando0_Click()
    Call DeletaTabela
    End Sub

    Function DeletaTabela()
    Dim dbs As Object
    Dim T As DAO.TableDef
    Dim tblNome As String
    Dim I As Integer
    Dim x As Integer
    Dim db As DAO.Database
    Dim StrSQL

    Set db = CurrentDb() 'para o access 2007
    Set dbs = Application.CurrentProject 'para o access 2000 e 2003

    'Leva o nome da tabela para a variável
    For I = 0 To db.TableDefs.Count - 1
    Set T = db.TableDefs(I)
    tblNome = T.Name
    If Not tblNome Like "msys*" Then
    StrTabela = T.Name
    StrSQL = "DELETE * FROM " & StrTabela & ""
    MsgBox StrSQL
    CurrentDb.Execute StrSQL
    x = x + 1
    End If
    Next I
    End Function






    Enjoy!!!

    *****************************************************************************************************************



    Repositório de Exemplos Ms Access
    Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
    todos os Utilizadores Cadastrados.
    Não tirar duvidas nesta sala.
    Anexos
    Deleta o conteúdo de todas as tabelas do Bd AttachmentBdExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (16 Kb) Baixado 139 vez(es)

      Data/hora atual: 1/4/2023, 08:43