Public Function gfbBloquearRegistro(loObjecto As Object) As Boolean
Dim lsSQL As String
Dim loRS As Recordset
Dim lbBloqueado As Boolean
'Si el registro no está bloqueado entonces lo bloqueo
lbBloqueado = False
lsSQL = "SELECT * FROM Bloqueos WHERE sKeyRegistro = " & loObjecto.MPSCODIGO 'Propiedad que me devuelve la Key
Set loRS = goBD.Execute(lsSQL)
lbBloqueado = Not loRS.EOF
If Not lbBloqueado Then
lsSQL = "INSERT INTO Bloqueos VALUES (" & loObjecto.MPSCODIGO & "," & goUsuario.midUsuario & ")"
goBD.Execute lsSQL
End If
loRS.Close
Set loRS = Nothing
End Function
Dim loCliente As clsClientes
Dim lbBloqueado As Boolean
Set loCliente = New clsClientes
loCliente.MPSCODIGO = "clsClientes#1"
lbBloqueado = gfbBloquearRegistro(loCliente)
If lbBloqueado Then MsgBox "EL registro está bloqueado bla bla bla"