Pessoal estou com o seguinte problema, preciso que o vb atualize minha tabela da seguinte forma, tenho uma tabela que se chama agenda, nela tenho os dados dos clientes que teem horários agendados, o meu sistema agenda o horário para cada cliente de acordo com o tempo disponível para atendimento e numeros de pessoas, mas eu preciso que ele tb entenda que existe um intervalo onde não pode ser agendado ninguém, esse intervalo no caso pode ser o almoço, tenho dois textbox para digitar esse intervalo, o inicial e o final, como posso fazer ?

verifica se a data que vc digitou esta entre 12 e 13 h, mais ou menos assim

 

if mid(txtdataini,1,2) > 12 and mid(txtdatafim,1,2) < 13 then

   horario de almoço

else

   horario normal

endif

 

Alexandre vou testar, obrigado...

Alexandre não deu certo !

do while ...

            If Mid(varHorario, 1, 2) > Text3 And Mid(varHorario, 1, 2) < Text4 Then
                MsgBox "Intervalo"
            Else
                Hora
                tbAgenda.Edit
                tbAgenda!Qtd = Text5.Text
                tbAgenda!DTPrevista = Date
                tbAgenda!HRPrevista = varHorario

                tbAgenda.Update
                tbAgenda.MoveNext
                i = i + 1
            End If
loop

mas, é o seguinte , o que vc te na variavel text3 , tem que colocar o mid nele tb

 

If Mid(varHorario, 1, 2) > mid(Text3,1,2) And Mid(varHorario, 1, 2) < mid(Text4,1,2) Then
                MsgBox "Intervalo"
            Else
                Hora
                tbAgenda.Edit
                tbAgenda!Qtd = Text5.Text
                tbAgenda!DTPrevista = Date
                tbAgenda!HRPrevista = varHorario

Tb não deu certo ! A variavel contem a hora !

varHorario = 12:35:00        'Hora a ser verificada

text3 = 12:00:00              'Hora inicial da pausa

text4 = 14:00:00              'Hora final da pausa