29/07/2004, 12:25
|
| | | Fecha de Ingreso: julio-2004
Mensajes: 11
Antigüedad: 20 años, 4 meses Puntos: 0 | |
| Hola, gracias por tu presencia.
En el formulario tengo dos campos independientes: DesdeFecha y HastaFecha
y el siguiente código:
Dim strWhere As String
Me.Visible = False
strWhere = "[FechaCompra]>= #" & Format(Me.DesdeFecha, "mm/dd/yyyy") & "# AND [FechaCompra] <=#" & Format(Me.HastaFecha, "mm/dd/yyyy") & "#"
DoCmd.OpenReport ReportName:="ComprasPeriodo", View:=acPreview, WhereCondition:=strWhere
DoCmd.SelectObject acReport, "ComprasPeriodo"
DoCmd.Close acForm, Me.Name
En el informe dos cuadros independientes con origen:
=[Formularios]![DesdeHasta]![DesdeFecha] y =[Formularios]![DesdeHasta]![DesdeFecha]
Selecciona bien y en pantalla me aparecen las fechas correctamente.
Gracias por tu amabilidad.
Un saludo
Rodolfo |