Oséias Assis

amigos, seguinte ... to com o seguinte problema, criei uma rotina para mudar a cor da borda de uma determinada caixa, porém, essa rotina tem 4 if's, esses if's analizam algumas condições e de acordo com a analise das condições as cores das bordas serão diferentes, porém, tenho uma tabela atualmente com mais de 630 cadastrados, ela irá gerar para cada cadastrado um crachá, preciso q em cada cliente da tabela ele verifique antes da criação de cada crachá individualmente; da seguinte maneira, se ele verificar a primeira condição e for verdadeira, todas as demais carteirinhas serão criadas da cor que for o resultado da primeira pesquisa, isso não pode acontecer, por que ele tem q mudar as cores das demais. Exemplo: ele verifica o primeiro cliente da tabela, a condição especificou que a cor seria laranja, se a segunda tiver como resultado que a cor seja azul, ele não esta imprimindo azul no relatório, mas sim laranja porque a primeira foi laranja, e assim ele esta fazendo sucessivamente, a primeira condição verdadeira ele está criando todos os crachás com a mesma cor. obrigado.

olaaaa amigos ... o problema foi resolvido pelo orkut, segue o link; obrigado ... http://www.orkut.com.br/Main#CommMsgs?cmm=...410482316874385

Ola amigos, boa tarde; veja bem, estou com o seguinte problema, criei uma rotina q verifica se o texto digitado em um determinado campo é igual a um valor pré-estipulado e muda a cor da borda de uma caixa, porém, meu problema é q ele não esta mudando para a cor desejada, ele muda para preto, alguém pode me ajudar ? preciso muito disso ae, já tentei varias cores, algumas deram certo, mas é q preciso de uma determinada tonalidade q esta me dando trabalho. mt obrigado, abaixo o código Funcao.SetFocus If Funcao.Text = "Membro" Or Funcao.Text = "Diácono(a)" Then Caixa47.BorderColor = "FFC20E" Caixa48.BorderColor = "FFC20E" Else If Funcao.Text = "Presbítero" Or Funcao.Text = "Evangelista" Then Caixa47.BorderColor = CC6600 Caixa48.BorderColor = CC6600 Else If Funcao.Text = "Pastor" Then Caixa47.BorderColor = 8000 Caixa48.BorderColor = 8000 Else If Funcao.Text = "Missionário(a)" Then Caixa47.BorderColor = "FF00FF" Caixa48.BorderColor = "FF00FF" End If End If End If End If