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.

 

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.

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

Editado el el 4 de febrero6 años por avalencia

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.

.

 

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.

 

Hace 13 horas, Pirtrafilla dijo:

Muchas gracias.

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

Moisés.

 

Hola, la solución era tan sencilla como esta:

FormatPercent([Porcentaje],1) as Porcentaje