[Resolvido]Tela de acompanhamento de agendamentos

boa tarde pessoal,

preciso de uma força, tenho um sistema e queria fazer uma tela de acompanhamento, por exemplo: a transportadora envia um email ou liga fazendo um agendamento para entregar ou coletar alguma mercadoria e eu queria colocar isso em uma TV, la aparecia todos os agendamento conforme a pessoa for cadastrando, mas seria um agendamento da semana inteira mostrando as coletas e entregas agendadas. ai conforme for lançando no BD ir atualizando na tela a cada 5 min +/-


alguem tem uma ideia, um exemplo ou uma direção de como fazer isso?

segue anexo da imagem que eu quero colocar na tela para acompanhamento

Tenho uma agenda aqui. Conforme vai lançando ele vai gravando.
Já pra ir atualizando para todos verem tem que está em rede a agenda .

Resolvi, segue o código que corre na tela

Código:

Public Sub ProgramacaoTela()
Dim db As DAO.Database
Dim rs As DAO.Recordset
   
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("tblAgendamentoAZUL") ' Corre a Tabela
    'EOF = End Of File
Do Until rs.EOF 'faça até o fim do arquivo
    'faz a comparação
  'PRIMEIRA COLUNA
 
If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "08:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_08.Visible = True
  Form_frmAcompanhamento.txtEntrada_08 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "08:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_08.Visible = True
  Form_frmAcompanhamento.txtSaida_08 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "08:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_08.Visible = True
  Form_frmAcompanhamento.txtSaida_08 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_08.Visible = True
  Form_frmAcompanhamento.txtEntrada_08 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")

End If
 
If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "09:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_09.Visible = True
  Form_frmAcompanhamento.txtEntrada_09 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "09:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_09.Visible = True
  Form_frmAcompanhamento.txtSaida_09 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "09:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_09.Visible = True
  Form_frmAcompanhamento.txtSaida_09 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_09.Visible = True
  Form_frmAcompanhamento.txtEntrada_09 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If

If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "10:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_10.Visible = True
  Form_frmAcompanhamento.txtEntrada_10 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "10:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_10.Visible = True
  Form_frmAcompanhamento.txtSaida_10 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "10:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_10.Visible = True
  Form_frmAcompanhamento.txtSaida_10 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_10.Visible = True
  Form_frmAcompanhamento.txtEntrada_10 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If

If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "11:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_11.Visible = True
  Form_frmAcompanhamento.txtEntrada_11 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "11:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_11.Visible = True
  Form_frmAcompanhamento.txtSaida_11 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "11:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_11.Visible = True
  Form_frmAcompanhamento.txtSaida_11 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_11.Visible = True
  Form_frmAcompanhamento.txtEntrada_11 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If


If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "12:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_12.Visible = True
  Form_frmAcompanhamento.txtEntrada_12 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "12:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_12.Visible = True
  Form_frmAcompanhamento.txtSaida_12 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "12:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_12.Visible = True
  Form_frmAcompanhamento.txtSaida_12 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_12.Visible = True
  Form_frmAcompanhamento.txtEntrada_12 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If


If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "13:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_13.Visible = True
  Form_frmAcompanhamento.txtEntrada_13 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "13:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_13.Visible = True
  Form_frmAcompanhamento.txtSaida_13 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "13:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_13.Visible = True
  Form_frmAcompanhamento.txtSaida_13 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_13.Visible = True
  Form_frmAcompanhamento.txtEntrada_13 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If


If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "14:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_14.Visible = True
  Form_frmAcompanhamento.txtEntrada_14 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "14:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_14.Visible = True
  Form_frmAcompanhamento.txtSaida_14 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "14:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_14.Visible = True
  Form_frmAcompanhamento.txtSaida_14 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_14.Visible = True
  Form_frmAcompanhamento.txtEntrada_14 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If

If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "15:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_15.Visible = True
  Form_frmAcompanhamento.txtEntrada_15 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "15:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_15.Visible = True
  Form_frmAcompanhamento.txtSaida_15 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "15:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_15.Visible = True
  Form_frmAcompanhamento.txtSaida_15 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_15.Visible = True
  Form_frmAcompanhamento.txtEntrada_15 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If

If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "16:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_16.Visible = True
  Form_frmAcompanhamento.txtEntrada_16 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "16:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_16.Visible = True
  Form_frmAcompanhamento.txtSaida_16 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "16:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_16.Visible = True
  Form_frmAcompanhamento.txtSaida_16 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_16.Visible = True
  Form_frmAcompanhamento.txtEntrada_16 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If

If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "17:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_17.Visible = True
  Form_frmAcompanhamento.txtEntrada_17 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "17:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_17.Visible = True
  Form_frmAcompanhamento.txtSaida_17 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "17:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_17.Visible = True
  Form_frmAcompanhamento.txtSaida_17 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_17.Visible = True
  Form_frmAcompanhamento.txtEntrada_17 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If


If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "18:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_18.Visible = True
  Form_frmAcompanhamento.txtEntrada_18 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "18:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_18.Visible = True
  Form_frmAcompanhamento.txtSaida_18 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "18:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_18.Visible = True
  Form_frmAcompanhamento.txtSaida_18 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_18.Visible = True
  Form_frmAcompanhamento.txtEntrada_18 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If

 
If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "19:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_19.Visible = True
  Form_frmAcompanhamento.txtEntrada_19 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "19:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_19.Visible = True
  Form_frmAcompanhamento.txtSaida_19 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "19:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_19.Visible = True
  Form_frmAcompanhamento.txtSaida_19 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_19.Visible = True
  Form_frmAcompanhamento.txtEntrada_19 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If
 
If rs.Fields("Data").Value = Date And rs.Fields("Horario").Value = "20:00:00" And rs.Fields("Tipo").Value = "ENTREGA" Then
  Form_frmAcompanhamento.txtEntrada_20.Visible = True
  Form_frmAcompanhamento.txtEntrada_20 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "20:00:00" And rs.Fields("Tipo").Value = "COLETA" Then
  Form_frmAcompanhamento.txtSaida_20.Visible = True
  Form_frmAcompanhamento.txtSaida_20 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
 
ElseIf rs.Fields("Data").Value = Form_frmAcompanhamento.txtDataHoje And rs.Fields("Horario").Value = "20:00:00" And rs.Fields("Tipo").Value = "ENTREGA E COLETA" Then
 
  Form_frmAcompanhamento.txtSaida_20.Visible = True
  Form_frmAcompanhamento.txtSaida_20 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
  Form_frmAcompanhamento.txtEntrada_20.Visible = True
  Form_frmAcompanhamento.txtEntrada_20 = rs.Fields("Transportadora") & " " & rs.Fields("Placa")
     
End If


  rs.MoveNext

  Loop
    'fechar conexão
    rs.Clone
    db.Close
    'libera memória
  Set rs = Nothing
  Set db = Nothing
 

End Sub