Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Ayuda con eliminacion de tabla

Access - Ayuda con eliminacion de tabla

Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda con eliminacion de tabla

Publicado por Diego (9 intervenciones) el 01/06/2005 04:50:55
Hola a todos.
Estoy haciendo un programa en acces pero en el editor de visual y quiero saber como elimino una tabla necesito saber cual es el comando, tambien me gustaria como crear una tabla tambien desde visual y si hay algun comando que me diga si una cierta tabla se encuentra o no.

desde ya agradezco a la persona que pueda ayudarme
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 Alejandro

Manipulación de tablas desde el editor de Visual Basic (VBA)

Publicado por Alejandro (4142 intervenciones) el 03/06/2023 00:29:06
Para eliminar una tabla en Access utilizando VBA, puedes utilizar el método `DeleteObject` del objeto `Database`. Aquí tienes un ejemplo de cómo hacerlo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub EliminarTabla()
    Dim db As DAO.Database
    Dim tableName As String
 
    ' Especifica el nombre de la tabla que deseas eliminar
    tableName = "NombreTabla"
 
    ' Abre la base de datos actual
    Set db = CurrentDb
 
    ' Verifica si la tabla existe antes de intentar eliminarla
    If TablaExiste(db, tableName) Then
        ' Elimina la tabla
        db.TableDefs.Delete tableName
        db.Close
 
        MsgBox "La tabla ha sido eliminada exitosamente."
    Else
        MsgBox "La tabla no existe en la base de datos."
    End If
End Sub
 
Function TablaExiste(db As DAO.Database, tableName As String) As Boolean
    Dim tbl As DAO.TableDef
 
    On Error Resume Next
    Set tbl = db.TableDefs(tableName)
    On Error GoTo 0
 
    TablaExiste = Not (tbl Is Nothing)
End Function

En el código anterior, debes reemplazar "NombreTabla" con el nombre real de la tabla que deseas eliminar. La función `TablaExiste` se utiliza para verificar si la tabla existe antes de intentar eliminarla.

Si deseas crear una tabla desde VBA, puedes utilizar el método `CreateTableDef` del objeto `Database`. Aquí tienes un ejemplo de cómo hacerlo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CrearTabla()
    Dim db As DAO.Database
    Dim tbl As DAO.TableDef
 
    ' Abre la base de datos actual
    Set db = CurrentDb
 
    ' Crea un nuevo objeto TableDef
    Set tbl = db.CreateTableDef("NombreTabla")
 
    ' Define las propiedades de la tabla (campos, tipos de datos, etc.)
    ' ...
 
    ' Agrega la tabla a la colección TableDefs
    db.TableDefs.Append tbl
    db.Close
 
    MsgBox "La tabla ha sido creada exitosamente."
End Sub

En el código anterior, debes reemplazar "NombreTabla" con el nombre deseado para la nueva tabla. Luego, puedes definir las propiedades de la tabla, como los campos, los tipos de datos y cualquier otra configuración necesaria.

Espero que esta información te sea útil para eliminar y crear tablas desde el editor de Visual Basic en Access.
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