Grandes Mestres,
Mais uma vez estou aqui necessitando de vocês. O código abaixo foi baseado em outro feito com ajuda de vocês e que funcionava, no entanto estou colocando o mesmo em outro relatório e recebendo a mensagem: ERRO DE COMPILAÇÃO: Método ou membro de dados não encontrado.
O erro aponta para o ".ForeColor"
Fiz uma rotina bem parecida há algum tempo atrás e funcionou perfeitamente. Não estou vendo onde estou errando.
Ajudem-me
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(DtConcluído) Then
NomeSolicitante.ForeColor = RGB(0, 0, 0)
FoneResidencial.ForeColor = RGB(0, 0, 0)
FoneTrabalho.ForeColor = RGB(0, 0, 0)
Assunto.ForeColor = RGB(0, 0, 0)
DtInício.ForeColor = RGB(0, 0, 0)
DtConcluído.ForeColor = RGB(0, 0, 0)
Else
NomeSolicitante.ForeColor = RGB(255, 0, 0)
FoneResidencial.ForeColor = RGB(255, 0, 0)
FoneTrabalho.ForeColor = RGB(255, 0, 0)
Assunto.ForeColor = RGB(255, 0, 0)
DtInício.ForeColor = RGB(255, 0, 0)
DtConcluído.ForeColor = RGB(255, 0, 0)
End If
End Sub
Ajudem-me
Muito grato
Mais uma vez estou aqui necessitando de vocês. O código abaixo foi baseado em outro feito com ajuda de vocês e que funcionava, no entanto estou colocando o mesmo em outro relatório e recebendo a mensagem: ERRO DE COMPILAÇÃO: Método ou membro de dados não encontrado.
O erro aponta para o ".ForeColor"
Fiz uma rotina bem parecida há algum tempo atrás e funcionou perfeitamente. Não estou vendo onde estou errando.
Ajudem-me
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(DtConcluído) Then
NomeSolicitante.ForeColor = RGB(0, 0, 0)
FoneResidencial.ForeColor = RGB(0, 0, 0)
FoneTrabalho.ForeColor = RGB(0, 0, 0)
Assunto.ForeColor = RGB(0, 0, 0)
DtInício.ForeColor = RGB(0, 0, 0)
DtConcluído.ForeColor = RGB(0, 0, 0)
Else
NomeSolicitante.ForeColor = RGB(255, 0, 0)
FoneResidencial.ForeColor = RGB(255, 0, 0)
FoneTrabalho.ForeColor = RGB(255, 0, 0)
Assunto.ForeColor = RGB(255, 0, 0)
DtInício.ForeColor = RGB(255, 0, 0)
DtConcluído.ForeColor = RGB(255, 0, 0)
End If
End Sub
Ajudem-me
Muito grato