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


2 participantes

    [Resolvido]Critério de data

    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : 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 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 : Respeito às Regras 100%

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

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

    Mensagem  thiagomcosta 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 : 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 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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 5/3/2024, 03:50