[Resolvido] Preenchimento de uma determinada hora realacionada a outra inserida

Bem Amigos Estamos Aqui de Novo para Salvação de Algum Projeto em Andamento !!!!!!!
Estou usando Access 2007.

Tenho dois Campos onde o Usuario Inseri a Hora Inicial e Hora Final Abreviada do tipo 17:00, ou 15:30, ou 07:00.
Estas Horas Seria Entrada e Saida de Equipes.
Tenho um Tabela chamada Tab_HorarioEquipes, Com a Relação de Horas ou Seja uma Regra, se a pessoa sai as 15:30, ela entrou as 07:30, se a Hora final é 17:00 então a inicial foi 07:30, e assim por diante varios horarios de escala, na tabela tem somente, Hora Inicial e Hora Final.....

Dentro do meu Form tenho Um outro campo que se chama [DeveriaTerEntrado]

Bom Vamos Lá a Hora Inicial é Preenchida automatica puxando a hora do sistema quando se inseri um novo registro, e o usuario deve somente informar a Hora Final.
O que eu gostaria e que quando fosse inserido a hora Final no Campo Hora Final, o Codigo Buscasse na Tabela Tab_HorarioEquipes a Hora Inicial Verificando a Hora Final que o Usuario inseriu no Campo Hora Final. Pra que Isso ? para Fazer uma Comparação de Horas, ou seja tenho outras Consultas Rodando que Faz os Calculos pegando a Hora Inicial com a Hora que Deveria Ter Entrado vericando quante tempo aquela equipe ficou indisponivel do Tipo, a equipe entrou as 08:00 mas deveria ter entrado as 07:30 ou seja ela ficou indisponivel 30 min.
Hoje atualmente faço isso manual ou seja o Usuario deve informar qual horario aquela equipe deveria ter entrado, visto que a hora inicial o sistema ja carrega sozinho.

Tentei Algo do Tipo apos Atualizar do Campo HoraFinal
if me.HoraFinal = "17:00" then
me.DeveriaTerEntrado.value = "07:30"
if me.HoraFinal = "15:00" then
me.DeveriaTerEntrado.value = "07:00"
end if
end if
Mas não Funcionou, não acontece nada.......

Os Campos HoraInicial, HoraFinal, DeveriaTerEntrado estão Todos Formatado como DataHora tanto no Form, como nas Tabelas.....


Gostaria de automatizar este recurso, baseando no horario Final verificando na Tabela com isso eu conseguiria incluir no campo DeveriaTerEntrado o Horario Inicial da Tabela.....
Sera que consegui explicar para os Amigos Do Forum, Fico muito agradecido as Feras deste Forum Por Ter me ajudando tanto ate hoje !!!!!

Talvez algo assim:


Dim HoraFInal as String

DimHoraEntrada1 as String



HoraFinal = Me.HoraFinal

Hora Entrada1 =”07:30”



If horaFinal < HoraEntrada1 then

Me.DevereiraEntrar.Value = horaEntrada

ElseIf.....

Posso nao ter entendido direito.. mas..
Cada equipe tem um tempo predeterminado de horario?
ou seja se entra hora x deve permancer por n's minutos/ou horas e sai no tempo inicial somado com o tempo predeterminado?
ou seja.. se entra adiantado,,, tem que sair adiantado? e vice/versa?

Esclareca um pouco

Saudações

Harysohn Obrigado por Tentar Ajudar....Vamos Lá
So tentei Explicar pra que queria Fazer isto, na verdade esque o Tempo de Trabalho !
o que Preciso e Prencher autimaticament um campo basenado na Referencia de outro...
na Minha Tabela Tenho um Campo HorarioInicial e Outro Campo HorarioFinal, ja esta Definido os Horarios dentro deste Campos. Como
HoraInicial: 07:00 - HoraFinal 15:00
HoraInicial 15:00 - HoraFinal: 23:00 e Assim por diante .........
o que Preciso é no meu Fom, o Usuario vai inserir a Hora Final e basenda em algun Codigo ou sei la, ele me traga dentro do Form no Campo Deveria Ter entrado a HoraInicial registrado na tabela, baseado na Hora Final da Tabela. Ou seja a HoraFinal do Form. tem que Ser igual a HoraFinal da Tabela, para que a Referencia da HoraInicial seja Correta...
Tentei Algo do Tipo
DeveriaTerEntrado = DLookup("HorarioInicial", "Tab_HorarioEquipes", "HorarioFinal=" & HorarioSaida)
mas estar a dar erro 3075
Erro de Sintaxe (operador faltando ) na expressão de consulta'HorarioFinal = 17:00:00'.
Não sei onde !!!!!!!
mas to tentando algo deste tipo preencher o campo basenado na Referencia de outro, Consegui explicar melhor !!!!!!!
Abraço !

Só a título de dica: se o campo a ser filtrado for tipo data ou hora, precisa acrescentar # na pesquisa:

DeveriaTerEntrado = DLookup("HorarioInicial", "Tab_HorarioEquipes", "HorarioFinal=#" & HorarioSaida & "#")

Pode tentar colcar aquele codigo seu no evento apos perder foco..
ou mesmo um comando salvar ao perder foco..
Ja me aconteceu de mesmo apos digitar, nao conseguir usar o valor digitado para comparaçao.. so consegui salvando apos perder foco e depois fazendo a comparacao.. nao sei se me entendeu,...
muitas vezes no access dependendo do evento que aplica o codigo ele nao consegue ler o texto digitado na caixa que dá o start ao código..
Nao sei se entendeu..
mas se tem a caixa texto no form.. nao precisa usar o Dlookup...
Pode ser como voce falou..
If Me.HoraFinal = xx:xx then
Me.HoraDeveria Ter Entrado = xx:xx

Esse codigo serve para isso..

Amigão.. Consegui fazer isso.. mas usando campo texto, no campo como data.. não consigo..
pode deixar a data inicial preenchendo automaticamente e as demais usar campo texto e usar uma mascara de entrada

http://dl.dropbox.com/u/26441349/Teste.rar
Teste ai,,, Digite 15:00 e de um TAB

Na realidade criquio nao e o caso de Dloolup..
Ele ja tem essa informacao no form..
O que ele nao esta conseguindo e fazer a seguinte comparacao
If Me.HoraFinal = "15:00" (como o campo é data e o formato e Hora... ele nao esta entendendo este valor "15:00" por isso nao popula a caixa texto seguinte especificada no código..

Talvez se preenchesse 15:00:00
Bem....

E isso ai amigão... consegui com campos data assim:

Option Compare Database

Private Sub HoraFinal_LostFocus()
If Me.HoraFinal = "03:00:00" Then
Me.HoraDeveria = "07:30"
End If
End Sub

Tem que ter os segundos..
mesmo que nao aparecam na hora da digitacao.....

http://dl.dropbox.com/u/26441349/Teste_FormatoHora.rar

Amigo Criquio era isto que estava ocorrendo este era o erro, por Ser campo data devemos sempre colocar o Coringa #
Deu certinho por Aqui Fico muito agradecido ao amigos do Forum
obrigado amigos estou fazendo alguns ajustes mas deu certo......

O Fórum agradece o retorno.. Coloque o resolvido ai amigão...
Saudações

Beleza então... o importante e que resolveste..
So nao se esqueca do resolvido no tópico
Tenha uma boa noite..
Ate