[Resolvido]Mudar cor da fonte campo texto subformulario

tenho um formulário com subformulário onde tenho uma campo que pega a data atual e faço uma condição abaixo

no evento load do form principal

txtdataatual = Now()
compdata = CDate(txtdataatual - 10)
If (dataabertura <= compdata) And (status = "ABERTO") Then
Me!numeroOS.ForeColor = vbRed
Me!cmbtipo.ForeColor = vbRed
Me!dataabertura.ForeColor = vbRed
Me!datafechamento.ForeColor = vbRed
Me!cmbdesignacao.ForeColor = vbRed
Me!txtlocal.ForeColor = vbRed
Me!servico.ForeColor = vbRed
Me!observacao.ForeColor = vbRed
Me!cmbsituacao.ForeColor = vbRed
Me!cmbgrauprioridade.ForeColor = vbRed
Me!status.ForeColor = vbRed
'Me.subFrmOSPrincipal.Requery
MsgBox "OS em detalhe vermelho com atraso no atendimento.", vbInformation, "Tempo de Atendimento!"
End If

esses campos são do subformulario, nessa condição preciso que o registro que está nessa condição do IF, a fonte fique vermelha.

Boa tarde...

Quais campos são do formulário principal e quais campos são do sub ?

os que estão dentro do if são todos do sub form e tambem o dataabertura e status

o sistema é de OS, e o objetivo é quando abrir o formulario, onde tem um subformulario, com os dados das OS. A OS que está com data muito antiga entra nessa condição.

Forms!NomeFormPrincipal!nomeSubformulario!numeroOS.ForeColor = vbRed

Boa tarde

O código Now(), não devolve a Data, 25-05-2018

Mas sim a Data e Hora 25-05-2018 19:35:00

alterei para Date para pegar a data. mas continuo sem conseguir colocar a fonte em vermelha.

no formulario principal no evento load estou colocando o seguinte

txtdataatual = Date
compdata = CDate(txtdataatual - 10)

If (Forms!frmPrincipal!subFrmOSPrincipal!dataabertura <= compdata) And (Forms!frmPrincipal!subFrmOSPrincipal!status = "ABERTO") Then
Forms!frmPrincipal!subFrmOSPrincipal!numeroOS.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!cmbtipo.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!dataabertura.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!datafechamento.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!cmbdesignacao.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!txtlocal.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!servico.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!observacao.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!cmbsituacao.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!cmbgrauprioridade.ForeColor = 3
Forms!frmPrincipal!subFrmOSPrincipal!status.ForeColor = 3

MsgBox "OS em detalhe vermelho com atraso no atendimento.", vbInformation, "Tempo de Atendimento!"
End If

Ivan

Se postar (só) essa parte da sua BD facilita quem quer ajudar, e pode ter sorte quem necessita da ajuda.

Coloque o evento no Atual.

Mude de ForeColor para BackColor.

Em tempo, o fundo das caixas de textos não podem ser transparentes, tem que ser sólido.

fiz o evento no formulario principal, chega a entrar no msgbox

Private Sub Form_Current()
txtdataatual = Date
compdata = CDate(txtdataatual - 10)

If (Forms!frmPrincipal!subFrmOSPrincipal!dataabertura <= compdata) And (Forms!frmPrincipal!subFrmOSPrincipal!status = "ABERTO") Then
Forms!frmPrincipal!subFrmOSPrincipal!numeroOS.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!cmbtipo.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!dataabertura.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!datafechamento.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!cmbdesignacao.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!txtlocal.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!servico.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!observacao.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!cmbsituacao.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!cmbgrauprioridade.BackColor = vbRed
Forms!frmPrincipal!subFrmOSPrincipal!status.BackColor = vbRed

MsgBox "OS em detalhe vermelho com atraso no atendimento.", vbInformation, "Tempo de Atendimento!"
End If
End Sub

Mas resolveu ?

Não resolveu, ele entra no if mas não pinta os campos, seguindo as informações.

Veja a mensagem de numero nove do amigo Assis..... siga ela.

Segue o arquivo para analise, o formulario é o frmPrincipal.

Silvio

O subformulário é do tipo folha de dados.

Alterei para formulário continuo e.....

Nobre Assis, show de bola....nunca íamos " adivinhar " que era folha de dados.

Como Fazer para ficar com a aparência de folha de dados (excel)

troquei aqui também para formulário continuo mas, preciso que fique com a aparência de folha de dados.

Boa noite

Se precisa como folha de dados é como está naquele que postou na mensagem 15.

Nas propriedades do formulário altere como mostra a imagem

sim eu entendi. mas preciso que fique a formatação de cores, mas como folha de dados, até mesmo pq o sistema e de Abertura de OS, e configurado como formulario continuo não fica usual.

estou tentando fazer pela formatação condicional. até consegui que print um campo de vermelho com a condição da data, mas tambem preciso que a OS esteja com o status aberto.

acabei de conseguir com a formatação condicional, muito obrigado pelas ajudas.


([dataabertura] <= Formulários![frmprincipal]![txtcompdata] ) and ( [status] = ABERTO)


e funcionou.