Muchisimas gracias a todos por el interés mostrado. Por fin ya he resuelto
el problema y os muestro la solucion dada por Julio Collado, por si le
sirviera a alguien que tenga el mismo problema.
----------------------------------------------------------------------------
--------------------------------------------
1) En el reporte tienes una formula que se llama SelecGrupo, esta formula
hace referencia a un campo que no existe en la base de datos, elimina
esta formula.
2) Selecciona las opciones de menu Database, Set Location y en el cuadro
de dialogo selecciona "Same as Report".
3) Selecciona las opciones de menu Database, Verify database
Cada vez que hagas un cambio a una base de datos debes
realizar esto para cada uno de tus reportes.
4) Al probar con la frase in date... to date... no me funciona, asi que
para no perder tiempo probe con la manera en que yo lo hago y
funcionó bien, este es el codigo, los MID$ los pase fuera del selection
formula solo por claridad pero igual te sirven si los pusieras en la
misma
linea del selectionformula
Dim FechaInicial
Dim FechaFinal
Dim CodVendedor
Dim FI
Dim FF
FechaInicial = "01/09/1997"
FechaFinal = "31/12/1997"
CodVendedor = Vendedor.Text
FI = Mid$(FechaInicial, 7, 4) + "," + _
Mid$(FechaInicial, 4, 2) + "," + _
Mid$(FechaInicial, 1, 2)
FF = Mid$(FechaFinal, 7, 4) + "," + _
Mid$(FechaFinal, 4, 2) + "," + _
Mid$(FechaFinal, 1, 2)
cr1.SelectionFormula = "{Pedidos.Vendedor}='" + _
CodVendedor + "' And {Pedidos.Fecha} >= Date(" + _
FI + ") And {Pedidos.Fecha} <= Date(" + _
FF + ")"
cr1.Action = 1
Saludos
Julio Collado
jcollado@sistematica.com.ni
Managua, Nicaragua
America Central
----------------------------------------------------------------------------
-------------------------------------------
Un saludo.
ramonrubio@telebase.es