Pequeño problemilla
Hola. Tengo un pequeño problemilla, a ver si me puedes echar un cable. Tengo un 'EliminarObjeto' en un macro que elimina una tabla temporal. Necesitaría que solo borrara la tabla si esta existe porque si no existe y la intenta borrar la macro, da un error y no me ejecuta la macro entera. Algo como If(nombre_tabla; borrar; no borrar). Yo no se como hacerlo. Gracias por adelantado.
1 Respuesta
Respuesta de juanito01
1
Te lo pongo por código, por macro no se...
Public Function borra_tabla(s As String) As Boolean
Dim obj As AccessObject, dbs As Object
borra_tabla = False
Set dbs = Application.CurrentProject
For Each obj In dbs.Alltables
If obj.Name = s Then
DoCmd.DeleteObject acTable, s
borra_tabla =true
Exit Function
End If
Next obj
borra_tabla =false
End Function
Public Function borra_tabla(s As String) As Boolean
Dim obj As AccessObject, dbs As Object
borra_tabla = False
Set dbs = Application.CurrentProject
For Each obj In dbs.Alltables
If obj.Name = s Then
DoCmd.DeleteObject acTable, s
borra_tabla =true
Exit Function
End If
Next obj
borra_tabla =false
End Function
