Início
rg3915 18/8/2013, 18:54Estou tentando mas não estou conseguindo alterar a fonte do controle em relatório.
A fonte de controle do meu campo PrazoEntrega é
= "Em até " & [Entrega] & " dias " & [ObsPrazoEntrega]
Mas eu queria que quando Entrega = 0 ou Entrega = "" a fonte do controle fosse
= [ObsPrazoEntrega]
Eu tentei isso em VBA, mas não deu certo.
A fonte de controle do meu campo PrazoEntrega é
= "Em até " & [Entrega] & " dias " & [ObsPrazoEntrega]
Mas eu queria que quando Entrega = 0 ou Entrega = "" a fonte do controle fosse
= [ObsPrazoEntrega]
Eu tentei isso em VBA, mas não deu certo.
- Código:
Private Sub Report_Load()
Dim intPrazoEntrega, strObsPrazoEntrega As String
intPrazoEntrega = DLookup("PrazoEntrega", "Contratos", "IDContrato = " & Me.IDContrato)
strObsPrazoEntrega = DLookup("ObsPrazoEntrega", "Contratos", "IDContrato = " & Me.IDContrato)
If Not IsNull(intPrazoEntrega) Or Not IsEmpty(intPrazoEntrega) Or intPrazoEntrega = "" Then
Me.PrazoEntrega.ControlSource = "Em até " & intPrazoEntrega & " dias " & strObsPrazoEntrega
Else
Me.PrazoEntrega.ControlSource = strObsPrazoEntrega
End If
End Sub
