CAPTION RECEBENDO VARIAVEL

JAMESBOND007 01/07/2010 14:03:36
#346276 
Dim cap As String


Private Sub cor()
            cap = l1.Caption = REGULAR
            If l1.Caption = 2 Then
            l1.Caption = cap
            End If
End Sub

No meu banco de dados os valores estao como numeros, gostaria que na hora que eu fizesse a busca eles me aparecem nas captions como não sei se a minha logica esta boa mas me ajudem se poder
ex: BOM | REGULAR | RUIM
Não sei se vocês iram entender a minha logica mais me ajudem se poder!
GERARDA 01/07/2010 15:59:46
#346306
NA SEI SE ENTENDI DIREITO MAS....

ONDE VC RECEBE OS DADOS DO BANCO

Call cor(NOME DO CAMPO)

=========


Private Sub cor(numeros As Double)
If numeros = 0 Then L1.Caption = [Ô]BOM[Ô]
If numeros = 1 Then L1.Caption = [Ô]REGULAR[Ô]
If numeros = 2 Then L1.Caption = [Ô]RUIM[Ô]
End Sub

VE SE é ISSO
FFCOUTO 01/07/2010 19:10:10
#346344 Resposta escolhida
use a função Choose, assim

L1.Caption = Choose(rs([Ô]Campo[Ô]), [Ô]BOM[Ô], [Ô]REGULAR[Ô], [Ô]RUIM[Ô])


Onde:
BOM = 1
REGULAR = 2
RUIM = 3

Ou seja, quando o seu campo tiver o valor 1 ele vai mostrar BOM e assim por diante.
Tópico encerrado , respostas não são mais permitidas
Voltar