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

3 participantes

    ver se data está entre um período

    avatar
    davidrocha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/11/2021

    ver se data está entre um período Empty ver se data está entre um período

    Mensagem  davidrocha 14/12/2021, 19:38

    Boa tarde aos amigos...
    Gostaria de saber como posso saber se uma data digitada no forma já pertence a um determinado período já gravado para um funcionário?
    tenho uma tabela de cadastro de férias = tblCadFérias
    e uma consulta = cstCadFérias
    no form de Cadastro de Férias = frmCadFériasInsere
    digito a Data de Início das férias no campo = DataInicio e
    digito a quantidade de dias a gozar no campo = TotalDias
    Ele já calcula o dia final e o dia de retorno, corrigindo se for final de semana para o próximo dia útil.
    _ Preciso que ele veja se o dia digitado já está cadastrado para o mesmo servidor, a fim de não repetir o período.

    Private Sub DataInicio_LostFocus()
    If Not IsNull(Me.DataInicio) And (Me.DataInicio) > Now Then
       If DLookup("DataInicio", "cstCadFérias", "CodACS = " & Me.CodACS) >= Me.DataInicio And DLookup("DataFim", "cstCadFérias", "CodACS = " & Me.CodACS) <= Me.DataFim Then
       MsgBox "Esta Data de Início " & Me.DataInicio & vbCrLf & vbCrLf & _
       "...Já está registrado para ACS: " & vbCrLf & vbCrLf & Me.NomeACS & vbCrLf & vbCrLf & _
       "...Digite outro período... "
       Me.Matrícula.SetFocus
       Me.DataInicio.SetFocus
       Else
       Me.NDSDI = Weekday(DataInicio, 1)
       Me.txtDiaSemDtIni = Format(DataInicio, "ddd", 1)
       Me.TotalDias.SetFocus
           If Me.NDSDI = 1 Then
           MsgBox " ** Esta Data não é válida para início das Férias ! **" & vbCrLf & "... É domingo." & vbCrLf & "... A Data será adiada para a próxima segunda " & Me.DataInicio + 1
           Me.DataInicio = Me.DataInicio.OldValue + 1
           Me.NDSDI = Weekday(DataInicio, 1)
           Me.txtDiaSemDtIni = Format(DataInicio, "ddd", 1)
           Me.TotalDias.SetFocus
           ElseIf Me.NDSDI = 7 Then
           MsgBox " ** Esta Data não é válida para início das Férias ! **" & vbCrLf & "... É sábado." & vbCrLf & "... A Data será adiada para a próxima segunda " & Me.DataInicio + 2
           Me.DataInicio = Me.DataInicio.OldValue + 2
           Me.NDSDI = Weekday(DataInicio, 1)
           Me.txtDiaSemDtIni = Format(DataInicio, "ddd", 1)
           Me.TotalDias.SetFocus
           Else
           End If
       End If
    Else
    MsgBox "Esta Data não é válida para início das Férias !" & vbCrLf & "... Data Vencida."
    Me.Matrícula.SetFocus
    Me.DataInicio.SetFocus
    End If

    End Sub
    Anexos
    ver se data está entre um período AttachmentContole de Folgas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 1 vez(es)


    Última edição por davidrocha em 25/12/2021, 19:18, editado 2 vez(es)
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 445
    Registrado : 27/03/2015

    ver se data está entre um período Empty Re: ver se data está entre um período

    Mensagem  bigfill 23/12/2021, 17:38

    davidrocha, Tente postar o BD para que possamos analisar e/ou explique o erro que esta dando
    avatar
    davidrocha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/11/2021

    ver se data está entre um período Empty Banco de dados para avaliação dos colegas

    Mensagem  davidrocha 25/12/2021, 19:20

    Amigos, finalmente consegui enviar o BD.
    Gostaria que me dissessem se serve para mais alguém.
    estou tentando aprender.
    as informações estão na mensagem anterior ok
    Anexos
    ver se data está entre um período AttachmentContole de Folgas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 9 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    ver se data está entre um período Empty Re: ver se data está entre um período

    Mensagem  Alexandre Fim 25/12/2021, 22:41

    Olá Davi,

    Copie e cole o código abaixo no início do evento DataInicio1_LostFocus

    Código:



        If Not IsNull(Me.DataInicio1) And (Me.DataInicio1) > Now Then
            If DCount("*", "tblCadFérias", "DataInicio1= #" & Format(Me.DataInicio1, "mm/dd/yyyy") & "# And PeríodoAquis = '" & Replace(Me.PeríodoAquis, " / ", "") & "'") > 0 Then
                MsgBox "Já existe ferias de servidor cadastrado neste período.", vbExclamation, "Aviso"
                Me.DataInicio1.SetFocus
                Me.DataInicio1 = Empty
                Exit Sub
            End If
        End If


    É isso

    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    ver se data está entre um período Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    davidrocha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 22/11/2021

    ver se data está entre um período Empty Re: ver se data está entre um período

    Mensagem  davidrocha 27/12/2021, 10:42

    Deu certo amigo. muito obrigado pelo apoio..
    já pode encerrar o tópico.
    muito grato.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    ver se data está entre um período Empty Re: ver se data está entre um período

    Mensagem  Alexandre Fim 27/12/2021, 12:38

    Bom dia Davi,
    Que bom que deu certo !!!!

    É necessário que você dê por Resolvido para encerrar o tópico.

    []'s

    FIM



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    ver se data está entre um período Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 25/9/2022, 16:01