Como utilizar vários critérios para permitir a edição em formulário contínuo

Pessoal,

Estou liberando a edição de um campo bloqueado de acordo com o usuário (ver abaixo) e além disso, quero bloquear essa edição quando o tempo decorrido entre o momento da criação do registro e o momento atual for maior que uma hora...

Resumo:
Só altera o registro quem criou e se fizer isso em até uma hora.

alguém sabe?


Private Sub ComentariosCOMENT_TBL_Enter()

If Me.UsuarioCOMENT_FRM.Value = fOSUserName() Then

Me.ComentariosCOMENT_TBL.Locked = False
Me.AllowEdits = True

Else

Me.ComentariosCOMENT_TBL.Locked = True
Me.AllowEdits = False

End If
End Sub

Olá Leandro,

Vê se esse exemplo resolve a questão do tempo.

Testei com o tempo de 01 (um) minuto e deu certo.


Nivaldo Aguiar.

Olá Nivaldo,

Não consigo abrir arquivos no formato accdb... tens o exemplo em .mdb?

thanks

Leandro

Olá Leandro,

Segue o arquivo na versão 2003


Nivaldo Aguiar

Nivaldo
Achei bem interessante seu exemplo, será bem útil para todos.
Um abraço.

OK, vou dar uma olhada assim que der tempo e dou retorno.

assim mesmo, muchas gracias a todos

Pessoal

Não sei se foi respondido plenamente a pergunta do Leandro, mas o exemplo caiu como uma luva para uma coisa que pretendo... obrigado...

Nivaldo,

Apesar do seu exemplo ser bem interessante, não é exatamente o que procuro. Eu preciso que em um formulário contínuo, todos os registros que tiverem a data anterior a atual, sejam bloqueados, ou seja, eu só conseguiria editar os registros criados hoje...

abraços

Leandro

Desculpe Leandro,


É que você não mencionou isso no primeiro post.

Se o teu formulário contínuo está baseado a uma consulta, cria um campo para fazer a verificação da data e usa esse campo no formulário para determinar a edição dos dados.

Nivaldo.

Olá Nivaldo,

tentei mas não funfou... algo está errado?

Private Sub ComentariosCOMENT_TBL_Enter()

If Me.UsuarioCOMENT_FRM.Value = fOSUserName() Then

Me.ComentariosCOMENT_TBL.Locked = False
Me.AllowEdits = True

ElseIf Me.Texto24 <> Date Then
Me.ComentariosCOMENT_TBL.Locked = True
Me.AllowEdits = False

Else

Me.ComentariosCOMENT_TBL.Locked = True
Me.AllowEdits = False

End If

End Sub

Leandro