La Web del Programador: Comunidad de Programadores
 
    Pregunta:  10637 - DESBLOQUEAR REGISTROS
Autor:  Jose Maria Lopez Lopez
Estoy haciendo un programa para introducir contactos desde dos equipos, pero cuando intento insertar un nuevo registro, si el otro equipo esta consultando uno, me da error de bloqueo. ¿Como puedo hacer que al editar un registro no bloquee la tabla correspondiente?. Mi idea es programar yo mismo los bloqueos, pero para esto tengo que evitar el bloqueo de Access.

La Base de Datos y la Tabla las conecto asi:

DIM DBBASEMA As Database
DIM REGISTRO As Recordset
DIM TRANSDB As Workspace
Set TRANSDB = DBEngine.Workspaces(0)
Set DBBASEMA = OpenDatabase(“MYBD.MDB”)
Set REGISTRO = DBBASEMA.OpenRecordset(“MYTABLA”)

un Saludo y Gracias.

  Respuesta:  Gerald Valdes
Si te entiendo bien el problema estaria en el comando "Opendatabase", ya que luego de especificar el nombre de la base de datos tienes dos comandos opcionales que te permiten utilizar la base compartida, te explico...

set DBBASEMA = Opendatabase("MYBD.MDB", False, False)

El primer "False" dice que quieres la base compartida, o sea que varios usuarios la pueden modificar y el segundo "False" (que creo que no te interesara mucho) es para que la base no quede en solo lectura, en todo caso, por defecto queda "True".

Espero haber ayudado, CHAOP.