[Resolvido]Bloquear edição do campo após inserir data atual

Caros Colegas,

Gostaria de pedir a ajuda de vocês com o seguinte problema, pois já tentei de tudo ao meu alcance, já pesquisei no fórum e não encontrei solução:

Tenho um Processo de produção que após o operador assinar são alimentados automaticamente os campos OperInício e HoraInício, porém o Operador fixa, mas a hora não está fixando ela altera a cada perda de foco

Private Sub SenhaInício_LostFocus()
Me.OperInício = DLookup("Código", "Funcionários Cadastro", "Senha='" & Me.SenhaInício & "'")
If Me.OperInício <> "" Then Me.HoraInício = Now()
End Sub

Já tentei várias coisas como bloquear o campo Horainício no atual, bloquear no próprio comando, desativar o campo, mas não funciona, ele continua alterando após perder o foco do campo SenhaInício dentro do registro já preenchido, não tenho como impedir o operador de clicar sem querer no campo já preenchido, uma vez que o registro fica pendente no formulário porque na sequência será preenchido também automaticamente OperTérm e Horatérm.

Agradeço muito a ajuda

Por favor, poste seu Aplicativo... Pode mandar apenas a parte envolvida. Para que possar verificar...

Bom dia Fábio,
Obrigada pela retorno, segue o arquivo com a parte envolvida

Campo SenhaInício, evento APOS ATUALIZAR, Coloque:

Código:


Private Sub SenhaInício_AfterUpdate()
Me.OperInício = DLookup("Código", "Funcionários Cadastro", "Senha='" & Me.SenhaInício & "'")
'Se tiver Nulo A horaInicio ele preenche, se nao deixa como está.
If IsNull(Me.HoraInício) Then
Me.HoraInício = Now()
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub



Campo SenhaTermino, evento APOS ATUALIZAR, Coloque:

Código:


Private Sub SenhaTérm_AfterUpdate()
Me.OperTérm = DLookup("Código", "Funcionários Cadastro", "Senha='" & Me.SenhaTérm & "'")
If IsNull(Me.HoraTérm) Then
Me.HoraTérm = Now()
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub


Deixe o Campo HoraInicio e HoraTermino Bloqueados;
Remova Estas linhas:

Private Sub Form_Current()
If Me.[OperInício] <> "" Then
Me.SenhaInício.Locked = True
Me.HoraInício.Locked = True
Me.OperInício.Locked = True
Else
Me.SenhaInício.Locked = False
Me.HoraInício.Locked = False
Me.OperInício.Locked = False
End If
End Sub

----------------------------------------

Que deverá se Comportar como pretende!



Obs: coloquei no Evento Apos atualizar, para Otimizar o sistema... Ja que: Só executará a verificação, se FOR ALTERADO O CAMPO. Se o operador apenas entrar no campo e sair, ele nao executa... Então fica melhor do que no Evento ao perder Foco... Pois neste evento Toda hora que entrar no campo ira processar todo o Código... Perdendo desempenho!

Bom dia Fábio,

Maravilha!!! Show de bola!!!!!!
Devia ter pedido ajuda antes, Muitíssimo obrigada Colega.

Uma Maravilhosa Semana para você!!!!

Bacana que deu certo!

Otima semana pra vc tambem... Ate mais!