14/07/2004, 14:28
|
| | | Fecha de Ingreso: junio-2004 Ubicación: Barcelona
Mensajes: 61
Antigüedad: 20 años, 5 meses Puntos: 1 | |
| Perdon:
===================================
Private Sub ImprCompras_Click()
Dim strWhere As String
Me.Visible = False
strWhere = "[FechaCompra] >= #" & DesdeFecha & "# AND [FechaCompra] <=#" & HastaFecha & "#"
DoCmd.OpenReport ReportName:="ComprasPeriodo", View:=acPreview, WhereCondition:=strWhere
DoCmd.SelectObject acReport, "ComprasPeriodo"
DoCmd.Close acForm, Me.Name
End Sub
==================================
Suponiendo que sean variables, si el filtro lo creas en un formulario y DesdeFecha, HastaFecha son textbox y se llaman asi debes poner
strWhere = "[FechaCompra] >= #" & me.DesdeFecha & "# AND [FechaCompra] <=#" & me.HastaFecha & "#"
Creo que no me olvido nada esta vez
Un saludo
Skakeo® |