Ayuda por favor...
Publicado por Luís Mercado (1 intervención) el 30/07/2007 17:50:40
Gracias por poner este foro, es muy importante para algunos de nosotros que necesitamos ayuda para hacer algunos trabajillos. en este caso, tengo un código en un formulario llamado "ensayo", también tengo un MDI, llamado "probando", y un control crystal llamado reporte. además tengo un datacombo1, donde deseo seleccionar de una tabla Integrl.mdb solo los alumnos de un determinado curso (se escogerá del datacombo el curso.) cual es la fórmula o instrucción que debo agregar? pongo para muestra el código que estoy utilizando, cualquier ayuda que me brinden será bien recibida y gracias de antemano:
If DataCombo1 <> "" Then
If strCadena <> "" Then
strCadena = strCadena & " and "
End If
strCadena = strCadena & "{totales.newmatricula} = " & txt_newmatricula - esto es solo ficticio quisiera seleccionar por cursos de acuerdo a la elección en el datacombo
MDIprobando.reporte.SelectionFormula = ""
'MDIprobando.reporte.SelectionFormula = strCadena
MDIprobando.reporte.Destination = crptToPrinter
MDIprobando.reporte.DataFiles(0) = "C:\encanto\integrl.mdb"
MDIprobando.reporte.WindowTitle = "Papel"
MDIprobando.reporte.WindowState = crptMaximized
MDIprobando.reporte.ReportFileName = "C:\encanto\rpt\datosgen1.rpt"
MDIprobando.reporte.Action = 1 'aquí me da error 20536 en tiempo de ejecución con la opción 1 o 0
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub
If DataCombo1 <> "" Then
If strCadena <> "" Then
strCadena = strCadena & " and "
End If
strCadena = strCadena & "{totales.newmatricula} = " & txt_newmatricula - esto es solo ficticio quisiera seleccionar por cursos de acuerdo a la elección en el datacombo
MDIprobando.reporte.SelectionFormula = ""
'MDIprobando.reporte.SelectionFormula = strCadena
MDIprobando.reporte.Destination = crptToPrinter
MDIprobando.reporte.DataFiles(0) = "C:\encanto\integrl.mdb"
MDIprobando.reporte.WindowTitle = "Papel"
MDIprobando.reporte.WindowState = crptMaximized
MDIprobando.reporte.ReportFileName = "C:\encanto\rpt\datosgen1.rpt"
MDIprobando.reporte.Action = 1 'aquí me da error 20536 en tiempo de ejecución con la opción 1 o 0
Else
MsgBox "Por favor elija un curso para imprimir", vbOKOnly
End If
End Sub
Valora esta pregunta
0