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

2 participantes

    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Empty [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados

    Mensagem  Assis 11/2/2010, 13:01

    Boa tarde

    Como apagar todas as tabelas de um BD com um botão de comando.
    Com este comando apaga, mas não deixa apagar as que tem "RELAÇÃO", e eu queria eliminar todas de uma vez se possivel

    Private Sub Comando0_Click()
    If MsgBox("Eliminar Todas As Tabelas ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then

    DoCmd.DeleteObject acTable, "Encomenda"
    DoCmd.DeleteObject acTable, "DetalhesArtigos"
    Else
    DoCmd.CancelEvent

    Exit Sub
    End If

    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10663
    Registrado : 04/11/2009

    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Empty Re: [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados

    Mensagem  JPaulo 11/2/2010, 13:18

    Viva Assis.

    Aí vai;

    Public Function DeletaTabelas()
    Dim dbs As DAO.Database
    Dim i As Integer
    Set dbs = CurrentDb
    For i = dbs.Relations.Count - 1 To 0 Step -1
    dbs.Relations.Delete dbs.Relations(i).Name
    Next i
    For i = dbs.TableDefs.Count - 1 To 0 Step -1
    'não deleta as tabelas de sistema
    'nem as tabelas que eu não quero deletar, a tblExemplo1 e a tblExemplo2
    'este segundo passo pode ser ignorado.
    If Left(dbs.TableDefs(i).Name, 4) <> "MSys" _
    And dbs.TableDefs(i).Name <> "tblExemplo1" _
    And dbs.TableDefs(i).Name <> "tblExemplo2" Then
    dbs.TableDefs.Delete dbs.TableDefs(i).Name
    End If
    Next i
    Set dbs = Nothing
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Empty Re: [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados

    Mensagem  Assis 11/2/2010, 13:42

    Olá JPaulo
    Boa tarde
    A nossa Justiça é muito muito muito muito, lenta comparada com o amigo.
    Sucesso
    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10663
    Registrado : 04/11/2009

    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Empty Re: [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados

    Mensagem  JPaulo 11/2/2010, 13:45

    Hehehehe Valew Assis.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvidos]Apagar deletar o conjunto de tabelas do banco de dados Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 20/1/2022, 11:59