Sr
Publicado por Bladimir Simoza (6 intervenciones) el 16/10/2007 19:25:25
Hola. Estoy realizando una aplicacion donde debo, en una base de datos llamada Pacientes, ya existente, abrir una tabla que se llama "Evoluciones" y a esa tabla adicionar un campo en modo de ejecución el cual consiste en el formato de fecha del dia. El problema es que aparece el siguiente error:
Error 3211
El motor de base datos no puede bloquear la tabla "Evoluciones" por que actualmente la esta usando otro usuario o proceso.
El código que uso es el siguiente:
Option Explicit
Dim Base_de_datos As DAO.Database
Dim Tabla As DAO.TableDef
Dim CreateField As DAO.Field
Dim Campo As DAO.Field
Private Sub Guardar_Click()
Dim TableDefs As DAO.TableDef
Set Base_de_datos = OpenDatabase("C:/Cardiobeta/Pacientes.mdb")
Set Tabla = Base_de_datos.TableDefs("Evoluciones")
Set Campo = Tabla.CreateField(Fecha.Caption, dbText, 255)
Tabla.Fields.Append Campo
Mucho sabría agradecerles la ayuda que me puedan proporcionar.
Error 3211
El motor de base datos no puede bloquear la tabla "Evoluciones" por que actualmente la esta usando otro usuario o proceso.
El código que uso es el siguiente:
Option Explicit
Dim Base_de_datos As DAO.Database
Dim Tabla As DAO.TableDef
Dim CreateField As DAO.Field
Dim Campo As DAO.Field
Private Sub Guardar_Click()
Dim TableDefs As DAO.TableDef
Set Base_de_datos = OpenDatabase("C:/Cardiobeta/Pacientes.mdb")
Set Tabla = Base_de_datos.TableDefs("Evoluciones")
Set Campo = Tabla.CreateField(Fecha.Caption, dbText, 255)
Tabla.Fields.Append Campo
Mucho sabría agradecerles la ayuda que me puedan proporcionar.
Valora esta pregunta
0