Access y vba
Hola, estoy haciendo un programa en access y vba y necesito añadir un campo a una tabla desde código vba, ¿sabes cómo es? Muchas gracias
1 Respuesta
Respuesta de juanito01
1
A ver ...
Private Sub Comando0_Click()
Dim base As DAO.Database
Dim tabla As DAO.TableDef
Dim campo As New DAO.Field
Set base = CurrentDb()
Set tabla = base.TableDefs("Tabla1")
campo.Name = "campo2"
campo.Type = dbText
tabla.Fields.Append campo
Set tabla = Nothing
Set base = Nothing
Set campo = Nothing
End Sub
Private Sub Comando0_Click()
Dim base As DAO.Database
Dim tabla As DAO.TableDef
Dim campo As New DAO.Field
Set base = CurrentDb()
Set tabla = base.TableDefs("Tabla1")
campo.Name = "campo2"
campo.Type = dbText
tabla.Fields.Append campo
Set tabla = Nothing
Set base = Nothing
Set campo = Nothing
End Sub
