Hola!
Para hacer eso te puedes servir de un pequeño truco. Te explico:
Supongamos que tus campos se llaman como efectivamente los llamas en tu consulta, [decimales] y [Cantidad].
Lo que tienes que hacer es:
1.- Te creas un módulo estandar y le escribes, bajo la línea o líneas "Option", el siguiente código:
...
Public Function fncNuevoNum(elNumero As Double, numDec As Byte) As Double
Dim i As Long
Dim elFormato As String
For i = 1 To numDec
elFormato = elFormato & "0"
Next i
elFormato = "#,##0." & elFormato
fncNuevoNum = Format(elNumero, elFormato)
End Function
...
2.- En tu informe añades, en la sección detalle, un cuadro de texto. Le puedes quitar la etiqueta.
3.- Tu campo [Cantidad] lo sitúas en no visible (Propiedades -> Pestaña Formato -> Visible: NO)
4.- Sitúas ese cuadro de texto como si fuera el campo cantidad.
5.- Dentro de ese cuadro de texto escribes la siguiente expresión:
=fncNuevoNum([Cantidad];[decimales])
Y ya lo tienes.
Saludos,
http://neckkito.siliconproject.com.ar