crystal reports vb6

fco
20 de Junio del 2004
Tengo este procedimiento y cuando intento ejecutarlo, me da error de formula alguien me podría decir el por que Dim cadena1, cadena2 As String
'Cambia el puntero del mouse por un reloj de arena.
Private Sub ComVer_Click()
Screen.MousePointer = vbHourglass
Dim Primero As Date
Dim Ultimo As Date
Primero = DTPicker1
Ultimo = DTPicker2
cadena1 = DTPicker1
cadena2 = DTPicker2
Dia1 = Day(Primero)
Mes1 = Month(Primero)
Año1 = Year(Primero)
Dia2 = Day(Ultimo)
Mes2 = Month(Ultimo)
Año2 = Year(Ultimo)
Form4.Cr.Reset
Form4.Cr.DataFiles(0) = "C:PepitoPepito.mdb"
Form4.Cr.Formulas(0) = "Fecha1= """ & cadena1 & """"
Form4.Cr.Formulas(1) = "Fecha2= """ & cadena2 & """"
Form4.Cr.ReportFileName = "C:PepitoReport1.rpt"
Form4.cr.SelectionFormula={DatosClientes.FechaAlta}in date ("& Año1 &","&Mes1&","& Dia1 &")to date ("& Año2 &","& Mes2 & ","& Dia2 &")"
Form4.Cr.WindowState = 2
Form4.Cr.Destination = 0
Form4.Cr.Action = 1
' Vuelve al puntero normal.
Screen.MousePointer = vbDefault
End Sub