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]Emitir aviso 5 dias antes

    Compartilhe

    AJM
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 27/01/2012

    [Resolvido]Emitir aviso 5 dias antes

    Mensagem  AJM em Qui 23 Abr 2015, 04:16


    Boa noite

    Tenho um campo 1_Experiencia que contem a data que vence o contrato de experiência do funcionário. Gostaria que quando
    abrisse um formulario, me avisasse 5 dias antes de vencer, que tem funcionarios vencendo o contrato.
    Teria que contar se tem registros com data entre hoje e daqui 5 dias mas nao ta funcionando, alguem pode me ajudar?


    Private Sub Form_Load()

    Dim ContaRegistros As Integer
    ContaRegistros = DCount("[ID]", "FUNCIONARIOS", "[1_EXPERIENCIA]>=date()" And "[1_EXPERIENCIA]<=Date()-5")
    If ContaRegistros > 0 Then
    MsgBox "Verifique ", vbOKOnly, "Alerta"

    End If

    End Sub

    AJM
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 27/01/2012

    Resolvido

    Mensagem  AJM em Qui 23 Abr 2015, 04:48

    Descobri

    Era só a colocacao das aspas

    Dim ContaRegistros As Integer
    ContaRegistros = DCount("[ID]", "FUNCIONARIOS", "[1_EXPERIENCIA]>=date() And [1_EXPERIENCIA]<=Date()+5 and [Situação]='Ativo'")
    If ContaRegistros > 0 Then
    MsgBox "Verifique ", vbOKOnly, "Alerta"

      Data/hora atual: Dom 20 Ago 2017, 22:14