Início![[Resolvido]consulta excluir mais de uma tabela Empty](https://2img.net/i/empty.gif)
Agravina 28/10/2018, 14:26Como crio uma consulta exclusão para mais de uma tabela no caso 3 tabelas?
2 participantes
[Resolvido]consulta excluir mais de uma tabela
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
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
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