MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Tela de acompanhamento de agendamentos

    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 23/10/2017

    [Resolvido]Tela de acompanhamento de agendamentos Empty [Resolvido]Tela de acompanhamento de agendamentos

    Mensagem  juliobertoso em 1/6/2018, 20:54

    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
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1030
    Registrado : 23/01/2018

    [Resolvido]Tela de acompanhamento de agendamentos Empty Re: [Resolvido]Tela de acompanhamento de agendamentos

    Mensagem  crysostomo em 22/2/2019, 12:39

    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 .
    avatar
    juliobertoso
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 86
    Registrado : 23/10/2017

    [Resolvido]Tela de acompanhamento de agendamentos Empty Re: [Resolvido]Tela de acompanhamento de agendamentos

    Mensagem  juliobertoso em 22/7/2019, 12:51

    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

    Conteúdo patrocinado

    [Resolvido]Tela de acompanhamento de agendamentos Empty Re: [Resolvido]Tela de acompanhamento de agendamentos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2019, 22:22