Início
![[Resolvido]definir cor letra Empty](https://2img.net/i/empty.gif)
TINOSEIXAS 31/8/2012, 01:47boas mais uma vez,apos acrescentar alguns campos na formula ficou conforme preçiso,mas se possivel gostava de fazer mais uma alteração,ao adicionar o texto na caixa de hora pretendida sera possivel altera a cor da mesma caixa em funçao do grau de urgencia tipo:1 vermelho,2 amarelo,3 verde,mando o codigo aonde aparece esse campo a seguir.
obrigado
Sub GravaCliente()
Dim StrTexto As String
StrTexto = Nz(DLookup("[NomeDoContacto]", "Clientes", "[CódigoDoCliente] = " & Forms!Pedidos.CódigoDoCliente & ""), "Em Branco")
StrTexto = "Serviço marcado: " & StrTexto & "/" & [Form_Pedidos por Cliente].Cidade & "/" & Form_Pedidos.Tipo_de_equipamento & "/" & Forms!Pedidos.DescriçãoDoProblema & "/" & "URGENCIA" & ":" & Form_Pedidos.Caixa_de_combinação108
Me(Me.ActiveControl.Name) = StrTexto
End Sub
obrigado
Sub GravaCliente()
Dim StrTexto As String
StrTexto = Nz(DLookup("[NomeDoContacto]", "Clientes", "[CódigoDoCliente] = " & Forms!Pedidos.CódigoDoCliente & ""), "Em Branco")
StrTexto = "Serviço marcado: " & StrTexto & "/" & [Form_Pedidos por Cliente].Cidade & "/" & Form_Pedidos.Tipo_de_equipamento & "/" & Forms!Pedidos.DescriçãoDoProblema & "/" & "URGENCIA" & ":" & Form_Pedidos.Caixa_de_combinação108
Me(Me.ActiveControl.Name) = StrTexto
End Sub
