Problema cuando varios usuarios modifican el mismo registro en base de datos

[culd]

Código vb:

On Error GoTo error
     'haces tu consulta
     Exit Sub ó Exit Function
error:
Dim a as long
If Err.Number <> 0
     a = InStr(1, Err.Description, "No se puede agregar o cambiar el registro porque se necesita un registro relaciona en la tabla", vbTextCompare)
     If a > 0 then
          'Aca reconociste que salto ese error
     End If
End If
 

Te lo puse asi por que por lo general si mal no recuerdo siempre devuelve el mismo numero de error... Entonces mejor que busque por la descripcion del error.