14/07/2004, 14:25
|
| | | Fecha de Ingreso: junio-2004 Ubicación: Barcelona
Mensajes: 61
Antigüedad: 20 años, 5 meses Puntos: 1 | |
| A ver puedes probar asi:
===================================
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
==================================
Creo que te servira
un saludo
Skakeo® |