AYUDA CON LA CONECCIóN CRYSTAL REPORT

sayviorc
03 de Agosto del 2005
Private Sub Form_Load()
Set Cr = CreateObject("Crystal.CrystalReport")
End Sub


Private Sub ReporteB_Click(Index As Integer)
Dim Fecha As String, F As Date, CC As CrystalReport
Select Case Index
Case 0
Fecha = InputBox("Por favor suministre la fecha del informe", "Informe diario", Format(Now, "dd/mm/yyyy"))
If Fecha = "" Then Exit Sub
If Not IsDate(Fecha) Then
MsgBox "Dato de fecha no válido", vbExclamation, "Atención"
Exit Sub
End If
With Cr
.Reset
.Connect = "provider= Microsoft.jet.oledb.4.0.; data source= Hotel;pwd= salvadorcastillo"
.WindowTitle = "Reporte de Registro del Hotel"
.WindowState = crptMaximized
.WindowShowPrintBtn = True
.ReportFileName = App.Path & "Registro.rpt"
.SelectionFormula = "{historial.fentrada}=#" & Format(CDate(Fecha), "dd/mm/yyyy") & "#"
.Formulas(0) = "empresa='" & NombreDeLaEmpresa & "'"
.Formulas(1) = "período='Correspondiente al día " & Fecha & "'"
.Action = 0
End With