Access - ELIMINAR TABLAS

 
Vista:

ELIMINAR TABLAS

Publicado por ANDRES VARGAS (2 intervenciones) el 14/02/2007 15:41:12
HOLA, ESTOY REALIZANDO UN PROGRAMA QUE ELIMINA TABLAS DESDE PROGRAMACIÓN, PERO DESEO SABER COMO HAGO PARA SABER QUE LA TABAL EXISTE EN AL BASE DE DATOS, PORQUE CUANDO NO EXISTE, EL SISTEMA ME VISUALIZA ERROR.

ESPERO ME PUEDAN AYUDAR. GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Enrique Ramírez
Val: 37
Ha aumentado su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

RE:ELIMINAR TABLAS

Publicado por Enrique Ramírez (629 intervenciones) el 14/02/2007 15:57:30
Copia este código y tu problema esta solucionado, con un FOR leo todas las tablas de la base de datos y cuando localizo la que tu quiero eliminar le doy el DROP para eliminar fisicamente la tabla, si usas DELETE solo limpiara el contenido de la tabla pero te sigue dejando la tabla vacia.

'Elimina la tabla Movimientos
Dim db As DAO.Database, tabla As DAO.TableDef, campo As DAO.Field
Dim vestru As String, Linea As String
Dim vSql As String

Set dbTable = CurrentDb
For Each tabla In dbTable.TableDefs
If Mid(tabla.Name, 1, 19) = "Movimientos" Then
vSql = ""
vSql = "DROP Table Movimientos"
With DoCmd
.SetWarnings False
.RunSQL vSql
.SetWarnings True
End With
End If
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar