MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Buscar dados da tabela - Dcount - Vba

    avatar
    vinicius.anna
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 29/04/2011

    [Resolvido]Buscar dados da tabela - Dcount - Vba Empty [Resolvido]Buscar dados da tabela - Dcount - Vba

    Mensagem  vinicius.anna 6/2/2019, 18:44

    Boa tarde

    Possuo uma tabela chamada tb_IndicacaoDtHr com os campos:
    id_Indicacao - numeração automática
    id_MedicoInd - número (relacionado com a tabela médicos)
    dtDataInd - data/hora (data de indicação);
    hrIni - data/hora (hora inicial);
    hrFin - data/hora (hora final);

    Preciso testar na tabela a existência de registro que coincida com o id_Medico (código do médico),  dtDataInd (Data de indicação), a partir disto pegar do formulário o campo AgHora (hora de agendamento) e verificar se a hora informada está no intervalo. Criei um botão para tal teste mas não estou conseguindo realizar o teste com o resultado desejado. Minha dificuldade está em hrIni (que estou a buscar do formulário, mas preciso buscar da tabela) bem como hrFin. Alguma amigo tem alguma dica do que posso fazer a respeito? Desde já agradeço pela atenção. O código que estou a usar é este:

    Código:

    Dim filtroDtHrMed As Variant
    Dim regItemDtHrMed As Variant

    filtroDtHrMed = "[id_MedicoInd]=" & Forms![frmViniTeste]![Id_Medico] & " and dtDataInd =#" & Format(Me!dtData, "mm/dd/yyyy") & "# Between hrIni =#" & Format(Me!agHora, "hh:nn") & "# and hrFin =#" & Format(Me!agHora, "hh:nn") & "#"
    regItemDtHrMed = DCount("id_Indicacao", "tb_IndicacaoDtHr", filtroDtHrMed)
            
            MsgBox "filtroDtHrMed: " & filtroDtHrMed
            MsgBox "regItemDtHrMed: " & regItemDtHrMed


    Obrigado

    Att.
    Vinicius
    avatar
    vinicius.anna
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 29/04/2011

    [Resolvido]Buscar dados da tabela - Dcount - Vba Empty Re: [Resolvido]Buscar dados da tabela - Dcount - Vba

    Mensagem  vinicius.anna 7/2/2019, 18:16

    Boa tarde

    Muito obrigado, criei um array e através dele consegui o que preciso.

    Código:

        Do While Not Rst.EOF

        nIdMed = Rst("id_MedicoInd")
        ndtData = Rst("dtDataInd")
        nHrIni = Rst("hrIni")
        nhrFin = Rst("hrFin")
       
        If nIdMed = (Forms![frmTeste]![Id_Medico]) Then
            If ndtData = (Forms![frmTeste]![dtData]) Then
                If (Forms![frmTeste]![agHora]) >= nHrIni And (Forms![frmTeste]![agHora]) <= nhrFin Then
                    MsgBox "A hora est? no intervalo..."
                End If
            End If
        End If
        Rst.Edit
       
        Rst.Update
       
        Rst.MoveNext
        Loop
        Rst.Close


    Att.
    Vinicius

      Data/hora atual: 25/7/2021, 04:08