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

    Função localizar data coincidente

    Compartilhe

    tonsoares
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 27/10/2016

    Função localizar data coincidente

    Mensagem  tonsoares em 5/3/2018, 03:29

    Boa noite

    Gostaria de ajuda para o seguinte:

    Tenho um formulário onde digito o nome do funcionário e uma data de saída. Tenho uma tabela onde consta os funcionários com vários períodos de viagens ( exemplo: Data inicial: 15/01 Data Final: 20/01 ) . O que eu gostaria é que ao atualizar a data no formulário fosse feita busca na tabela para verificar se o funcionário estaria em viagem a partir da data digitada no formulário , e então emitir aviso de que o funcionário encontra-se em viagem.

    obrigado

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 71
    Registrado : 27/10/2013

    Re: Função localizar data coincidente

    Mensagem  cpampas em 6/3/2018, 11:33

    Ola

    Nao testei, mas acho que algo assim deveria funcionar, embora deva existir algum problema na sintax do findFirst, porque adaptei de uma situaçao diferente que eu tinha


    Código:
    Dim rst As Recordset
    dim nf as integer
    nf = 2   ' procurar no funcionario numero 2

          Set rst = Me.RecordsetClone
            rst.FindFirst ("[funcionarioID] = " & nf & " AND [DataViagem] > #" & Format(DataInicial, "mm\/dd\/yy") & "#" & " AND  & [DataViagem] < #" & Format(DataFinal, "mm\/dd\/yy") & "#" & ""'")


               if not rst.noMatch then
                   msgbox("funcionario encontra-se em viagem")
               end if

      Data/hora atual: 24/9/2018, 15:03