[Resolvido]Preenchimento de campo com uma condição

moacirfj 7/4/2014, 19:25

moacirfj: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 52
Registrado : 23/12/2013

Mensagem nº1

[Resolvido]Preenchimento de campo com uma condição

Mensagem moacirfj 7/4/2014, 19:25

Srs,

Necessito de uma ajuda.

Tenho uma tabela que contém um campo chamado horas e outro chamado turno.
No formulário, tenho a necessidade de que o campo turno seja preenchido automático conforme a condição abaixo:

Se o horário for entre 05:40 e 14:00, preencher com 1º Turno
Se o horário for entre 14:00 e 22:40, preencher com 2º Turno
Se o horário for entre 22:20 e 05:40, preenhcer com 3º Turno

Por ser três condições não pude utilizar a função SeIsMed(), pensei em utilizar VBA com a rotina CASE mas não soube como desenvolver.

Fico no aguardo.

Att.

Moacir

clynton 8/4/2014, 02:43

clynton

clynton: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 309
Registrado : 08/07/2013

Mensagem nº2

Re: [Resolvido]Preenchimento de campo com uma condição

Mensagem clynton 8/4/2014, 02:43

moacirfj

Na Tabela, coloque o 'Tipo de Dados' do Campo 'Horas' como: 'Data/Hora.

No Formulário coloque no evento 'Após atualizar' do campo 'Horas':

If Me.Horas.Value >= "05:40:00" And Me.Horas.Value < "13:59:59" Then
Me.Turno.Value = "1º Turno"
End If

If Me.Horas.Value >= "14:00:00" And Me.Horas.Value < "22:19:59" Then
Me.Turno.Value = "2º Turno"
End If

If Me.Horas.Value >= "22:20:00" And Me.Horas.Value < "23:59:59" Then
Me.Turno.Value = "3º Turno"
End If

If Me.Horas.Value >= "00:00:00" And Me.Horas.Value < "05:39:59" Then
Me.Turno.Value = "3º Turno"
End If

Se não der certo só avisar que verificaremos.

**Avelino Sampaio** 8/4/2014, 08:18

Avelino Sampaio

Avelino Sampaio: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3900
Registrado : 04/04/2010

Mensagem nº3

Re: [Resolvido]Preenchimento de campo com uma condição

Mensagem Avelino Sampaio 8/4/2014, 08:18

Olá!

Veja mais uma forma de escrita:

Private Sub HoraInicio_AfterUpdate()
Dim Turno(4)
Turno(1) = Eval("#" & Me!HoraInicio & "# between #05:40:00# and #13:59:59#")
Turno(2) = Eval("#" & Me!HoraInicio & "# between #14:00:00# and #22:19:59#")
Turno(3) = Eval("#" & Me!HoraInicio & "# between #22:20:00# and #23:59:59#")
Turno(4) = Eval("#" & Me!HoraInicio & "# between #00:00:00# and #05:39:59#")
Me!Turno = Switch(Turno(1), "1º Turno", Turno(2), "2º Turno", Turno(3), "3º Turno", Turno(4), "3º Turno")
End Sub

Bom estudo!

.................................................................................
Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces
Clique AQUI e analise o custo beneficio do material oferecido.