... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Trabalhar com caracteres especiais em um controle Listbox

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:

Usando Access - Função ChrW$

 

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!

Usando Access - Função ChrW$

 

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.

Usando Access - Função ChrW$

Desafio:

Marque a peça "1e", que está em promoção,  com o símbolo bola de futebol (código 9917), conforme imagem abaixo:

Usando Access - Função ChrW$

 

Bom estudo!


 

 


Não há comentário

Envie seu comentário: