La Web del Programador: Comunidad de Programadores
 
    Pregunta:  54870 - COMO BLOQUEAR UN REGISTRO DE ACCESS CON VB5
Autor:  Jose Moreno
Estoy trabajando con access y VB5, tengo una tabla que me da numeros, seria como un contador, y un formulario que los pide, quiero que al pedir el numero me bloque el campo para que nadie pueda entrar hasta que no acepte el numero que me ha dado, pero no lo consigo, ¿Como puedo hacerlo?

Aqui esta el codigo que tengo

Set Megacmd = New ADODB.Connection
Set rst = New ADODB.Recordset
Megacmd.Open CurrentProject.Connection
Megacmd.BeginTrans

strsql = "SELECT DoyNumeros.Numero, DoyNumeros.IdClave From DoyNumeros WHERE (((DoyNumeros.IdClave)=" & CmbClave.Value & "))"
rst.Open strsql, Megacmd, adOpenDynamic, adLockOptimistic, adCmdText
If rst.EOF = False Then
txtNUM.Value = rst.Fields(0)
rst.Fields(0) = rst.Fields(0) + 1
Else
MsgBox "Este dato no existe"
End If

Después tengo un botón para seguir o terminar, si termino pongo esto:

Megacmd.RollbackTrans
Megacmd.Close

Y si sigue:

rst.Update
Megacmd.CommitTrans
Megacmd.Close

¿Alguien me puede ayudar?

Gracias

  Respuesta:  RONNEY ARAGUNDI
puedes usar otro campo en la tabla que te da numero un flag que lo trabajas como swith y asi esperas si otro usuario requiere el numero que todavia no lo aceptas..... lo mas recomendable es que no uses ninguna tabla de numeros solo usa una funcion max y asi no tienes que esperar

saludos