MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Critério de data

    avatar
    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Critério de data Empty [Resolvido]Critério de data

    Mensagem  M2013 em 20/8/2019, 15:33

    Não sei onde estou errando.A situação é simples.
    Uma tabela que contém um campo DATA e um Relatório.

    A intenção é : se a data for menor que a data de hoje , formatar a fonte de branco do campo.

    Coloquei no 'ao formatar' do relatório , porém sem sucesso.

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
    Dim lngBlack As Long, lngWhite As Long
       lngBlack = RGB(0, 0, 0)
       lngWhite = RGB(255, 255, 255)

    If Format(Me.dt, "dd/mm/yyyy") < Format(Date, "dd/mm/yyyy") Then
    Me.dt.ForeColor = lngWhite
    Else
    End If
    End Sub
    Anexos
    [Resolvido]Critério de data AttachmentDatabase.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 5 vez(es)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Critério de data Empty Re: [Resolvido]Critério de data

    Mensagem  thiagomcosta em 20/8/2019, 17:27

    Na condicional coloque assim:

    Código:
    If Me.dt < Date Then

    Se dt for uma ciaxa de texto:

    Código:
    If CDate(Me.dt) < Date Then
    avatar
    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Critério de data Empty Re: [Resolvido]Critério de data

    Mensagem  M2013 em 20/8/2019, 18:05

    Obrigado pela resposta thiagomcosta,

    é uma caixa de texto , logo apliquei -> If CDate(Me.dt) < Date com sucesso.

    Não tinha conhecimento de CDate, valeu pela informação!

      Data/hora atual: 3/8/2020, 18:29