[Resolvido]Campo data não funciona

Caros amigos,

Estou com um pequeno código em um relatório que envolve campos DATAS e não funciona. O campo "reunião" é data e quero que quando esta data de reunião for maior que data de hoje escreva em vermelho, caso contrário não faça nada. Está colocando todas as datas em vermelho como se não estivesse entendendo o "if". Onde eu errei.

If Reunião > Date Then

Reunião.ForeColor = RGB(255, 0, 0)

Else

Reunião.ForeColor = RGB(0, 0, 0)

End If

Bom dia
selecione no campo e use a formatação condicional
é mais fácil.


ficando assim

o valor do campo é maior que Data()


Boa sorte

Vou tentar.

Muito grato

Caro amigo,

Tentando formatação condicional campo reunião > data() fica preto só data igual a data de hoje o restante, tanto maior quanto menor, ficam vermelhos.


Onde estou errando?

Colocando mais uma condição reunião = data() fica tudo vermelho.

você precisa colocar dois critério

uma para quando for maior que a data (vermelho)

outro pra quando for menor ou igual.

Coloquei:
Se > data() fica vermelho
Se = data() fica vermelho
Se < data() fica preto

Ficou tudo vermelho

Não terá alguma coisa haver com o formato da data dd/mm/aa?

Tem como você postar o banco de dados.

Caro amigo,

O banco de dados é muito grande. Vou tentar pegar só esta parte em questão para enviá-lo.

Muito grato

Caro Amigo,

Segue o problema em questão

Muito agradecido

erro na base do sistema. (Tabela)

O seu campo reunião estava como texto, se você quiser que ele compare as dadas este campo também tem que ser data. O problema no seu código vba
poderia ser este também. Veja como ficou a formatação condicional. Alterei o tamanho do campo no relatório não estava cabendo.

Ate mais

Amigo,

Muito grato, vou ver como fica.

Muito grato.

Grande Aabraço

Grande Scandinavo,

Você foi demais. Todo problema causado por campo ser texto. Não desconfiei nunca. Esta tabela TbColaboradorFoneEmail é auxiliar. Criada via "consulta criar tabela" com campos de várias tabelas e campos vazios para serem atualizados com outra "consulta atualização". Entre eles está "reunião". Como não encontrei um modo de criar este campo tipo data usei o artifício de criá-lo com conteúdo #01/01/01# e depois usar outra "consulta atualização" para limpá-lo.
Tem como na consulta criar tabela definir o tipo do campo que é criado vazio?
E qual o motivo do pequeno código ainda continuar dando erro (mesmo depois do campo ser data)?

If Reunião > Date Then
Reunião.ForeColor = RGB(255, 0, 0)       O erro aponta para ".ForeColor"
Else
Reunião.ForeColor = RGB(0, 0, 0)
End If



Muito grato por tudo.

Muito obrigado mesmo.

Grande abraço

Aonde você esta pondo este código.

no evento ao formatar do relatório?

agora na questão de criar tabela e definir que tipo de campo vai ser

Preciso dar uma estudada.

Abra um novo tópico com esta questão, ou de uma pesquisada no fórum deve ter alguma coisa assim.

vou tentar fazer um exemplo se conseguir te envio.


Ate mais

Grande Mestre,

O código está no evento ao formatar.
Sobre a criação de tabela via consulta já pesquisei aqui e em vários outros fóruns e sempre encontro os sábios dizendo que não tem como definir o tipo de um campo estando o mesmo vazio. Sempre sugerem criar a tabela manualmente e sempre ir acrescendo ou atualizando registros via consulta acréscimo ou consulta atualização e depois depois deleta só os registros preservando a estrutura da tabela. Claro, para uma tabela temporária.

Mais uma vez. muito abrigado.

Grande Abraço

faltou o me. no seu codigo


If Reunião > Date Then

me.Reunião.ForeColor = RGB(255, 0, 0)

Else

me.Reunião.ForeColor = RGB(0, 0, 0)

End If


a questao da tabela achei este codigo, não é meu e tambem nao testei.



Sub CreateTable()

Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "CREATE TABLE NovaTabela " _
& "(Nome TEXT, Sobrenome TEXT, " _
& "RG INTEGER, CodInterno DOUBLE);"
dbs.Close
set dbs = nothing.

Grande Mestre,

Vou fazer os testes com estas suas últimas sugestões e ver como fica. Se não utilizar neste momento valeu o aprendizado. Foi muito bom. Esta tudo funcionando perfeitamente (não pelo código, mesmo com o me.). O grande problema foi mesmo o campo contendo uma data que era texto. Você descobriu.
O aprendizado foi ótimo e ainda vou estudar todas as formas sugeridas. No momento vou dá como resolvido.

Muito obrigado. Muito obrigado mesmo!!

Grande abraço

Resolvido

ok
veja este relatório para funcionar as cores você precisa abrir no modo visualizar impressão.


ate mais


para as tabelas se eu conseguir algo tem envio.


Boa sorte

Meu Amigo,

Valeu, vou verificar.

Muito obrigado

Grande Abraço

valeu pelo retorno e ate mais

veja aqui criar tabela pelo vba

https://www.maximoaccess.com/t27755-criar-tabela

Valeu Amigo,

Muito obrigado.

Abraço