MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]consulta excluir mais de uma tabela

    Compartilhe
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    [Resolvido]consulta excluir mais de uma tabela

    Mensagem  Agravina em 28/10/2018, 14:26

    Como crio uma consulta exclusão para mais de uma tabela no caso 3 tabelas?
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7236
    Registrado : 11/05/2010

    Re: [Resolvido]consulta excluir mais de uma tabela

    Mensagem  vieirasoft em 28/10/2018, 14:51

    Veja este exemplo- Esta seria a base para excluir por registo (ID)

    Dim strSQL As String

    strSQL="SELECT tblnomeda tabela.ID,DataInicial, " & _
       " FROM  qrytnomedaquery WHERE ID= " & Me.ID
       DoCmd.RunSQL strSQL
      strSQL = "DELETE * FROM qrynomedaquery WHERE ID = " & Me.ID
      DoCmd.RunSQL strSQL


    Agravina: Estive a ler a sua questão com mais atenção e fiquei na dúvida se quer excluir determinados registos, ou se quer, simplesmente, excluir 3 tabelas do sistema. Se for o primeiro caso, o código que lhe passei está correcto, se for a exclusão das tabelas e todos os dados, então use este comando:

    Dim strSQL As String
    strSQL = "DROP TABLE NomedaTabela"
    DoCmd.RunSQL strSQL

      Data/hora atual: 16/11/2018, 04:01