COMBO BOX

CRISTIANOLIVE 13/12/2006 16:41:37
#189785
Pessoal
Em banco de dados feito em Access 97 existem algumas informações que gostaria que aparecessem em minha tela, mas o problema é o seguinte:
Tenho 5 combo box e cada um teria que receber os dados que o anterior não recebeu
mais ou menos assim:

If TBRelatório("SOQ19") <> "" Then
frmDefeito.Combo1 = "Liga/ Desliga"
End If
If TBRelatório("SOQ20") <> "" Then
frmDefeito.Combo1 = "Vibração/ Campainha"
End If
If TBRelatório("SOQ21") <> "" Then
frmDefeito.Combo1 = "Teste de Chamada"
End If
If TBRelatório("SOQ22") <> "" Then
frmDefeito.Combo1 = "àcone Nív. Antena/ Bateria"
End If
If TBRelatório("SOQ23") <> "" Then
frmDefeito.Combo1 = "Confirmação de ECR"
End If

Aqui já tem erro, pois se no BD exister mas de um item que não está em branco ele colocará somente um e acho que o último mas aqui está o exemplo somente do primeiro combo, mas tenho 5 combos.

o que eu gostaria de fazer é o seguinte:
ele verifica se o TBRelatório ("SOQ19") <> "" se for coloca "Liga/ Desliga" em meu combo1, se o próximo TBRelatório ("SOQ20") <> "" ele colocaria no combo2 "Vibração/ Campainha", assim por diante. E se no caso o TBRelatório ("SOQ19") = "", o TBRelatório ("SOQ20") = "" e o TBRelatório ("SOQ21")<>"" ele coloca o valor "Teste de Chamada" no combo1.

Acho que a melhor maneira para isso seria utilizando o until, mas não estou conseguindo.

Espero que vcs entenderam e que me ajudem

Obrigado
LIONHEART 13/12/2006 17:08:50
#189797
cara, desenha que fica mais facil.
eu li e reli e reli e não entendi o que vc quis passar...
USUARIO.EXCLUIDOS 13/12/2006 18:24:34
#189818
Amigo:

Não é mais fácil você fazer um 'STATUS', ao invés de colocar 5 Combo Box, ou seja, ao clicar aparecerá um Status de 'LIGA' Gravando a informação em um registro .Ini ou até mesmo no registro do Win, e assim por diante.

Espéro ter te ajudado ok.
CRISTIANOLIVE 14/12/2006 13:43:15
#189926
Seria mais ou menos assim os 5 combos receberão os valores que está no banco de dados, mas se o combo 1 pegar o 1º valor o combo 2 ficará com o 2º e assim por diante.
CRISTIANOLIVE 21/12/2006 10:45:45
#191421
Mais alguém?


Grato
USUARIO.EXCLUIDOS 31/12/2006 02:16:39
#193430
Tenta fazer isso aqui

"select A.* from tabela A, tabela1 B where a.campo <> b.campo1 and b.campo1 = " & id
Tópico encerrado , respostas não são mais permitidas