BETWEEN CON FECHAS
Publicado por Simon (2 intervenciones) el 25/08/2006 20:53:47
hola foreros , estoy haciendo una macro en excel donde me debe de mostrar unos registros deacuerdo a un rango de fechas especificadas.
Este es mi codigo
Dim fecha As Date, fecha2 As Date
Dim base As Database
Dim exam As Recordset
Dim dia As String, nr As String, mes As String, f1 As String, f2 As String, año As String
Sub Macro1()
' Acceso directo: CTRL+m
'
Set base = OpenDatabase("C:\examen\titulacion.mdb")
fecha = Date
dia = Day(fecha)
mes = Month(fecha)
año = Year(fecha)
dia = dia + 30
fecha2 = DateSerial(año, mes, dia)
f1 = Format(fecha, "mm/dd/yyyy")
f2 = Format(fecha2, "mm/dd/yyyy")
Set exam = base.OpenRecordset("SELECT * FROM examen WHERE fecha_sistema BETWEEN '" & f1 & "' And '" & f2 & "' ")
r = 1
For i = 1 To exam.RecordCount Step 1
Cells(r, 1) = exam!no_control
Cells(r, 2) = exam!nombre
Cells(r, 3) = exam!paterno
Cells(r, 4) = exam!materno
Cells(r, 5) = exam!fecha_candidato
Cells(r, 6) = exam!fecha_sistema
r = r + 1
Next i
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TAMBIEN UTILIZO ESTA INTRUCCION DE CONSULTA PERO NO ME DA RESULTADOS.
Set exam = base.OpenRecordset("SELECT * FROM examen WHERE fecha_sistema BETWEEN #" & fecha & "# And #" & fecha2 & "#")
OJALA Y ME PUEDAN AYUDRA .
GRACIAS.....................
Este es mi codigo
Dim fecha As Date, fecha2 As Date
Dim base As Database
Dim exam As Recordset
Dim dia As String, nr As String, mes As String, f1 As String, f2 As String, año As String
Sub Macro1()
' Acceso directo: CTRL+m
'
Set base = OpenDatabase("C:\examen\titulacion.mdb")
fecha = Date
dia = Day(fecha)
mes = Month(fecha)
año = Year(fecha)
dia = dia + 30
fecha2 = DateSerial(año, mes, dia)
f1 = Format(fecha, "mm/dd/yyyy")
f2 = Format(fecha2, "mm/dd/yyyy")
Set exam = base.OpenRecordset("SELECT * FROM examen WHERE fecha_sistema BETWEEN '" & f1 & "' And '" & f2 & "' ")
r = 1
For i = 1 To exam.RecordCount Step 1
Cells(r, 1) = exam!no_control
Cells(r, 2) = exam!nombre
Cells(r, 3) = exam!paterno
Cells(r, 4) = exam!materno
Cells(r, 5) = exam!fecha_candidato
Cells(r, 6) = exam!fecha_sistema
r = r + 1
Next i
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TAMBIEN UTILIZO ESTA INTRUCCION DE CONSULTA PERO NO ME DA RESULTADOS.
Set exam = base.OpenRecordset("SELECT * FROM examen WHERE fecha_sistema BETWEEN #" & fecha & "# And #" & fecha2 & "#")
OJALA Y ME PUEDAN AYUDRA .
GRACIAS.....................
Valora esta pregunta
0