Private Sub cmdAceptarFlujoEmbarcaciones_Click()
Dim strSelFormula As String

If DateDiff("d", DTPFInicio.Value, DTPFFin.Value) < 0 Then
        MsgBox "Por favor, un rango de fechas valido!", vbExclamation
        DTPFFin.SetFocus
        Exit Sub
End If
With CrystalReport1
        .Reset
        .ReportFileName = frmMain.Ap_Hist & "Historial Flujo Embarcaciones.rpt"
Esta es la condicin para el reporte.
            strSelFormula = "{Flujo Embarcaciones.FechaStatus} >= #" & Format$(DTPFInicio.Value, "MM/dd/yyyy") & "# AND {Flujo Embarcaciones.FechaStatus} <= #" & Format$(DTPFFin.Value, "MM/dd/yyyy") & "#"
            .ReplaceSelectionFormula strSelFormula
        .DiscardSavedData = True
        .WindowTitle = "Flujo Embarcaciones"
        .PageZoom 100
        .Action = 1
        
    End With
 
End Sub
