Trabalhar com caracteres especiais em um controle Listbox
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Podemos trabalhar com caracteres empecias em um controle Listbox, através da função ChrW$() do Access. Como exemplo vou substituir o resultado de um campo do tipo Sim/Não por um símbolo desejado. Observe o campo do tipo Sim/Não, indicando se a peça está ou não, descontinuada:
Quero exibir o símbolo "X", substituindo o SIM e deixar em branco os que estão com o NÃO. Veja que os marcados com o "X" representam as peças que estão descontinuadas!
Observe a parte em vermelho, no código abaixo, aonde utilizo a função ChrW$(), que irá exibir o símbolo "X" no lugar do SIM. Veja também que utilizei dois apóstrofos contínuos ('') para suprimir o NÃO.
Private Sub Form_Load()
dim strSql$
strSql = "SELECT IdEstoque,Peça,fncAjustaCampo([valorPeça]) As ValorP, "
strSql = strSql & "iif(Descontinuado=-1,ChrW$(10007),'') FROM tblEstoque "
strSql = strSql & "ORDER BY [Peça];"
Me!Lista2.RowSource = strSql End Sub
Baixe o arquivo:
Clique aqui e baixe o arquivo exemplo.
Abra o relatório rltListaSimbolos do exemplo oferecido e veja alguns dos símbolos listados.
Desafio:
Marque a peça "1e", que está em promoção, com o símbolo bola de futebol (código 9917), conforme imagem abaixo:
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Vídeo - Aprenda sobre filtragens
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Adquira o kit UsandoAccess e aprenda em alta velocidade
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
| Não há comentário |