MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 60
    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 : 60
    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 04 Dez 2016, 06:00