Ayuda
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
'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