Select RecNo() As Registro, RLock() As Trava From Tabela Where Codigo = 1 Into Cursor Resultado If Resultado.Trava = .F. MessageBox("Registro em uso por outro usuário") Return .F. EndIfPara destravar:
UnLock Record Resultado.Registro In TabelaE fim de papo! :)