POR LA XUXA EL CRYSTAL
Publicado por MIERDAAAAAA (5 intervenciones) el 15/12/2004 02:48:05
PUTA QUE ESTOY ENPUTECIO CON ESTA HUEA DEL CRYSTAL REPORT 7 CON VISUAL BASIC 6, CUANDO HISE EL CODIGO ME IMPRIMIA SIN PROBLEMAS PERO AHORA MANDA ESTE ERROR POR FA ALGUIEN QUE ME AYUDE.
"ERROR AL ABRIR EL ARCHIVO"
"NO SE PUDO ABRIR EL ARCHIVO EMPLEADOS EN LA UBICACION EMPLEADOS"
ESTE ES EL CODIGO
Private Sub Command5_Click()
sql = ""
sql = "select * from empleados"
'CrystalReport1.SelectionFormula = "{empleados.rut_emple} = '" & Text11.Text & "'"
CrystalReport1.SelectionFormula = "{empleados.ficha} > (0)" '" & grilla.Col = 1 & "'"
Set rs = db.OpenRecordset(sql, 2)
If rs.RecordCount > 0 Then
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = "C:\WINDOWS\Escritorio\jue\empleados.rpt"
CrystalReport1.SortFields(0) = "+{empleados.nombre_emple}"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.WindowMaxButton = True
CrystalReport1.WindowMinButton = True
CrystalReport1.Action = 1
End If
End Sub
SI LE SACO ESTA LINEA AL CODIGO CrystalReport1.SelectionFormula = "{empleados.ficha} > (0)" '" & grilla.Col = 1 & "'"
AHI LA WEA FUNCIONA, PERO NO ME SIRVE ASI, POR FA AYUDAAAAAAAAAAAAA
GRACIAS
"ERROR AL ABRIR EL ARCHIVO"
"NO SE PUDO ABRIR EL ARCHIVO EMPLEADOS EN LA UBICACION EMPLEADOS"
ESTE ES EL CODIGO
Private Sub Command5_Click()
sql = ""
sql = "select * from empleados"
'CrystalReport1.SelectionFormula = "{empleados.rut_emple} = '" & Text11.Text & "'"
CrystalReport1.SelectionFormula = "{empleados.ficha} > (0)" '" & grilla.Col = 1 & "'"
Set rs = db.OpenRecordset(sql, 2)
If rs.RecordCount > 0 Then
CrystalReport1.Destination = 0
CrystalReport1.ReportFileName = "C:\WINDOWS\Escritorio\jue\empleados.rpt"
CrystalReport1.SortFields(0) = "+{empleados.nombre_emple}"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.WindowMaxButton = True
CrystalReport1.WindowMinButton = True
CrystalReport1.Action = 1
End If
End Sub
SI LE SACO ESTA LINEA AL CODIGO CrystalReport1.SelectionFormula = "{empleados.ficha} > (0)" '" & grilla.Col = 1 & "'"
AHI LA WEA FUNCIONA, PERO NO ME SIRVE ASI, POR FA AYUDAAAAAAAAAAAAA
GRACIAS
Valora esta pregunta


0