Jump to content
Pirtrafilla

Problema con formato columnas Listbox

Recommended Posts

Hola a todos de nuevo.

Tengo un problema al cargar los datos de una consulta SQL de una Access a mi archivo Excel. La consulta funciona bien, de hecho ya tengo el formulario casi listo. El problema viene porque quiero modificar el formato de varias columnas. Por ejemplo la columna 4 a pesar de estar el Access en moneda cuando lo cargo en el listbox lo hace en números con decimales.

Estoy leyendo pero no encuentro exactamente esto, al menos al cargar todos los datos en el listbox de manera multiple.

Agradezco vuestra ayuda como de costumbre. Pongo el código, creo que no es necesario todo el archivo para ver que código me falta poner.

Sub Llenar_Checklist()
'macro para llenar el Listbox2
Conexión
ListBox2.Clear
Dim Fin As String, GR As String
With ListBox2
    .ColumnCount = 10
    .ColumnWidths = "120 pt; 40 pt; 160 pt; 50 pt; 50 pt; 50 pt; 50 pt; 50 pt; 140 pt; 70 pt" 'Definimos el tamaño de las columnas
End With
Fin = ListBox1.ListCount
For i = 1 To Fin
If ListBox1.Selected(i) = True Then GR = ListBox1.List(i)
Next
If GR = "" Then GoTo 30
Sql = "Select [Proveedor],[Referencia],[Usuario],[Importe],[Porcentaje],[Previsto],[Contable]" & _
" From Tb_Checklist Where [OT]= '" & ComboBox1 & "'" & " And [AGRUPACION]= '" & ComboBox2 & "'" & _
" And [GRUPO] like " & "'%" & GR & "%'" & " And [PERIODO_Checklist]= '" & ComboBox3 & "'"
Rst.Open Sql, Conn, 3, 3, 1
If Rst.EOF = False Then ListBox2.Column = Rst.GetRows
Rst.Close
30:
End Sub

Aquí es donde lo cargo de un solo golpe con "GetRows", y no se si así es posible cambiar el formato de solo una columna específica.

If Rst.EOF = False Then ListBox2.Column = Rst.GetRows

Muchas gracias por adelantado.

Moisés.

 

Share this post


Link to post
Share on other sites

Hola @Pirtrafilla, solo debes colocar dentro de la cadena SQL la conversión al formato deseado, en el caso de moneda quedaria algo así:

Select [Proveedor],[Referencia],[Usuario],FormatCurrency([Importe]) as Importe,[Porcentaje],[Previsto],[Contable] 

En el caso de no querer decimales asi:

Select [Proveedor],[Referencia],[Usuario],FormatCurrency([Importe],0) as Importe,[Porcentaje],[Previsto],[Contable] 

Comentas, saludos.

Share this post


Link to post
Share on other sites

Hola

Ya que @AlexanderS dio la respuesta correcta, solo me gustaría agregar que con el tema de algunos formatos de Access (y otros)  cuando se obtienen dichos datos con ADO y SQL (y otros como "Obtener datos externos" de Excel)  el campo es "extraido" en su formato "plano" por lo que es necesario "reformatearlo" en la cadena SQL o de forma posterior tipo " Format(rst.Fields!Nombrecampo, "Currency")" 

Saludos

Abraham Valencia

Edited by avalencia

Share this post


Link to post
Share on other sites
Hace 3 horas, AlexanderS dijo:

Hola @Pirtrafilla, solo debes colocar dentro de la cadena SQL la conversión al formato deseado, en el caso de moneda quedaria algo así:

Select [Proveedor],[Referencia],[Usuario],FormatCurrency([Importe]) as Importe,[Porcentaje],[Previsto],[Contable] 

En el caso de no querer decimales asi:

Select [Proveedor],[Referencia],[Usuario],FormatCurrency([Importe],0) as Importe,[Porcentaje],[Previsto],[Contable] 

Comentas, saludos.

Muchas gracias. Es lo que necesitaba.

Tengo más campos a formatear, y lo que no quiero es molestar. Pero no acabo de encontrar información de cómo hacerlo.

Por ejemplo, este otro campo lo he de convertir a %.

FormatNumber([Porcentaje]) as Porcentaje

Está claro que así no es.

Si os es posible dirigirme a algún link donde pueda leer más acerca de esto os lo agradezco. Claro que me gustaría saber la solución, pero prefería aprender cómo hacerlo y aunque Internet es infinito, o no hay mucha información o no se como hacerlo, porque no encuentro mucha información.

Luego tendré que convertir seguramente a fechas, por ejemplo. Por eso digo si sabéis donde puedo buscar y no estar molestando por aquí.

Os agradezco mucho como de costumbre la ayuda desinteresada que ofrecéis

Moisés.

.

 

Share this post


Link to post
Share on other sites
Hace 2 horas, avalencia dijo:

Hola

Ya que @AlexanderS dio la respuesta correcta, solo me gustaría agregar que con el tema de algunos formatos de Access (y otros)  cuando se obtienen dichos datos con ADO y SQL (y otros como "Obtener datos externos" de Excel)  el campo es "extraido" en su formato "plano" por lo que es necesario "reformatearlo" en la cadena SQL o de forma posterior tipo " Format(rst.Fields!Nombrecampo, "Currency")" 

Saludos

Abraham Valencia

Muchas gracias.

Esta información es de mucho valor. Me es muy útil.

Moisés.

 

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png