Visual Basic - URGENTE!!ERROR 3260 AYUDENME PLEASE COLEGAS

URGENTE!!ERROR 3260 AYUDENME PLEASE COLEGAS
Hola amigo, tengo un grandisisisisimoo problema, mi
sistema es de transcripcion de datos el cual los usuarios
trabajan practicamente todo en un mismo modulo (data
enter), resulta que cuando estan trabajando se les
presenta el siguiente "error 3260: NO SE PUEDE
ACTUALIZAR, ACTUALMENTE ESTA BLOQUEADO POR EL
USUARIO 'ADMIN' EN LA MAQUINA U20"
La maquina U20 es uno de los usuarios y varia de maquina
dependiendo en que usuario de el error. El problema me
parece grave ya que el sistema se sale por completo y
bueno tambien que sucede cuando efectuan el registro
dandole al boton correspondiente. El codigo esta en DAO
con base de datos en Access. El codigo para abrir la BBDD
y las tablas es el siguiente, lo cual me imagino que de
ahi viene el problema:
Public DATA As DAO.Database
Public CEDORI As DAO.Recordset
Public WKS As Workspace
Public Sub Abrir()
Set WKS = CreateWorkspace("", "admin", "", dbUseJet)
Set DATA = WKS.OpenDatabase(".\CEDULACION.mdb",
False, False, ";PWD=DIOS84")
End If
End Sub
En el formulario de ingreso en el evento load tengo el
siguiente código para el recorset:
Set CEDORI = DATA.OpenRecordset("CEDORI", dbOpenTable)
CEDORI.Index = "PrimaryKey"

Agradezco de toda la ayuda posible colega... Gracias de
antemano

Hola

El problema que tenes es basicamente de bloqueo, cuando un usuario esta usando esa tambla, registro, los otros no pueden hacer nada sobre el y por eso se presenta el error.

En access es muy dificil mejorar esta cituacion por lo que te recomiendo que uses SQL server o MSDE (version gratis del SQL) y que uses el ADO como conexion de ODBC.

Asi todo se va a mejorar.

Saludos

El problema está en que un usuario está bloqueando parte de la tabla mientras guarda algun dato, y otro usuario está intentado acceder a esa parte de la tabla para guardar otro.
La solucion más elegante es usar una rutina de manipulacion de errores. Despues de tu definicion:
Set CEDORI = DATA.OpenRecordset("CEDORI", dbOpenTable)
supongo que usarás una de las siguientes instrucciones:
CEDORI.Edit o CEDORI.AddNew
dependiendo si quieres editar un registro existente o añadir uno nuevo.
Pues antes de cualquiera de estas dos instrucciones, deberias añadir:
On error goto ControlErrores
Y al final del codigo del evento:
ControlErrores:
if Err=3260
MsgBox "Está intentando modificar un registro abierto por otro usuario. Inténtelo más tarde.", vbCritical + vbOKOnly, "Registro bloqueado"
End if
Con esto conseguiras que la aplicacion no se cierre, y cuando el usuario lea el mensaje, lo intentará otra vez, y posiblemente, para entonces la tabla ya estará desbloqueada.

Si algo no te queda claro, mandame un mensaje
Suerte