Dim Rango As String
Rango = "Select * From MASIVOS Where (Fecha>=" & "'" & DTPickFechaDesde & "'"
Rango = Rango & " And Fecha<='" & DTPickFechaHasta & "')"
'Buscar Todos los Registros de MASIVOS por Rango de Fechas:
If RsMasivos.EOF = True Then
Exit Sub
End If
RsMasivos.MoveFirst
While Not RsMasivos.EOF
If Rango = RsMasivos!Fecha Then
RsMostrarBusqueda.AddNew
RsMostrarBusqueda!Gestion = RsMasivos!Gestion
RsMostrarBusqueda!Fecha = RsMasivos!Fecha
RsMostrarBusqueda!Dias_Habiles = RsMasivos!Dias_Habiles
RsMostrarBusqueda!Cantidad = RsMasivos!Cantidad
RsMostrarBusqueda!Mes = RsMasivos!Mes
RsMostrarBusqueda!Oficina = RsMasivos!Oficina
RsMostrarBusqueda!Servicio = RsMasivos!Servicio
RsMostrarBusqueda.Update
End If
RsMasivos.MoveNext
Wend