[Resolvido]Bloquear Edição

Olá amigos, estou criando um livro ponto e gostaria de bloquear um campo após atualiza-lo, meu comando esta assim: Me.EM = Time() Ao Clicar.
Ao clicar ele me da a hora atual, depois desse comando eu gostaria de bloquear nova edição, no caso de clik errado, no caso clicar na entrada da manha se for saída da manhã. Obrigado.

Adapte, código do JPaulo.

Private Sub Ativo_AfterUpdate()
Me.Idcliente.SetFocus
'JPaulo
Dim Cancel As Integer
Dim UsrResposta
UsrResposta = InputBox(" © Digite a senha para confirmar a alteração © ", "© Password ©", "© Password ©")
If UsrResposta <> "123" Then 'este valor entre aspas é a senha
MsgBox " © Senha Inválida cancelando a alteração no campo © ", vbCritical, " © Aviso © "
Cancel = True
Me.Undo
Me.Idcliente.SetFocus
Exit Sub
End If
End Sub

Se você tiver uma dica, o que eu fiz não deu nada. Após a edição seguiu aceitando edição. Eu não queria criar caixa de seleção pois tenho oito campos.

boa tarde amigo César, você quer bloquear o campo que recebe a Hora ou o Botão , ou não importa qual, e quando quer que desbloqueia ?
Nogaro !

Veja, meu comando não tem botão, é um campo que ao clicar insere a hora: Me.EM = Time(), depois de receber a hora da entrada da manhã, por exemplo, na saída da manhã este campo já não pode receber o comando pois seria um engano e mudaria a entrada da manhã por isso preciso que depois de fazer o clic ele insira a hora e depois se receber outro clic no mesmo dia não faça nada.

olá César, de qual horário a qual horário quer bloquear o campo ?
tem como postar ao menos as partes envolvidas do seu Bd
Nogaro !

https://drive.google.com/file/d/0B6SqUBwihdlFMFByTmlIbkZOdE0/view?usp=sharing

olá César, você mandou o exemplo certo livro de ponto ?
veio " caixa "

ops

https://drive.google.com/file/d/0B6SqUBwihdlFRUdsS1hkUXJ4ODA/view?usp=sharing

César fiz algumas alterações no Aplicativo, após ter enserido as horas
os campos ficam bloqueados, ao abrir o formulário vem em novo dia de registro e os campos desbloqueados. verifica e me diz foi o que consegui ! abraço Nogaro !

Amigo é quase isso mas ainda segue editando quando clicamos em cima. Dê uma testada por favor. Você pode dar uma olhada no relatório no campo onde quero executar a função ise, não estou conseguindo fazer funcionar também. Obrigado. Outra coisa, não é bom que o formulário volte em novo registro, pois se precisar reiniciar o computador dá bode. Então eu prefiro por enquanto deixar os campos mestre e filho garantir a movimentação do dia, o que você acha?

Amigos, dando um pitaco.  

César:

Como irá colocar o tempo nos campos, clicando sobre, deixe
esses campos bloqueados, evitando digitação.

Coloque esse código em cada controle:

If IsNull(Me.EM) Then ' se for nulo, coloca o horário
  Me.EM = Format(Time(), "hh:mm")
Else 'caso contrário, vai para o próximo controle
 SendKeys "{ENTER}", True
End If

Não esqueça de mudar os nomes dos controles, o exemplo acima é do controle EM.

Sobre o Ise, não sei qual é a versão do teu Access, deve ser Office 64.

Aqui, no lugar do Ise, aparece SeImed.

Tente mudar para SeImed.

[ ]'s

boa tarde aos amigos César e Noobezinho, tentei adaptar este código que utilizo em um formulário , [Relogio].Formulário![txtTempo]>="08:00 hrs" E [Relogio].Formulário![txtTempo]<"09:00 hrs" para Formatação Condicional entre as 8 e 9 horas, mas sem sucesso, César coloca conforme o Noobezinho orientou com certeza seria o melhor! abraço Nogaro !

Funcionou perfeitamente, muito obrigado. Era justamente o que eu precisava. Até.

Ótimo que ajudei !

Valeu pelo retorno!

Boa sorte!