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]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: 4/6/2020, 11:37