|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - FRIJU
76
« en: Miércoles 15 de Octubre de 2003, 16:02 »
Muchas gracias de todas formas Angeles.  
77
« en: Miércoles 15 de Octubre de 2003, 14:13 »
Hola Angeles! Te agradezco por tu ejemplo, pero no funciona, o al menos a mi no. He abierto la base de datos por un lado y luego ejecutar el proyecto, no pasa por el tratamiento.
78
« en: Miércoles 15 de Octubre de 2003, 14:00 »
Control de errores
Hola Compañer@s!
Estoy intentando tratar un error, pero cuando me da el error no pasa por el tratamiento de errores que le he hecho mal?
Private Sub CmdSalir_Click()
On Error GoTo Tratar_error
DBEngine.CompactDatabase "datos.mdb","datos1.mdb"
Kill "datos1.mdb
Unload Me
End
Exit Sub
Tratar_error:
If Err.Number = 3356 Then
Unload Me
End
Exit Sub
Else
End If
End Sub
79
« en: Miércoles 15 de Octubre de 2003, 12:04 »
Hola Angeles! Lo que estoy haciendo es compilar los datos. Y ese número de error nos dice que hay otro usuario conectado a los datos y por lo tanto no se puede compilar. Pero creo que independientente del número yo lo que quiero es que me vaya al control de error.
80
« en: Miércoles 15 de Octubre de 2003, 11:11 »
Hola Compañer@s! Estoy intentando tratar un error, pero cuando me da un error no pasa por el tratamiento de errores que le he hecho. Private Sub CmdSalir_Click() On Error GoTo Tratar_error DBEngine.CompactDatabase "datos.mdb","datos1.mdb" Kill "datos1.mdb Unload Me End Exit Sub Tratar_error: If Err.Number = 3356 Then Unload Me End Exit Sub Else End If End Sub 
81
« en: Viernes 10 de Octubre de 2003, 13:36 »
Muchas gracias Rober! Lo bajaré y ya contaré en el foro el final. 
82
« en: Jueves 9 de Octubre de 2003, 16:45 »
Yo normalmente asocio a una consulta y no a una tabla, la consulta son todos los campos de de la tabla con algún tipo de ordenación. luego me construyo una Sql en visual y le digo que el origen de ese informe es la sql que me he currado.
Call ElegirSql
' DB.CursorLocation = adUseServer
' Rs.LockType = adLockReadOnly
' Rs.CursorType = adOpenForwardOnly
Set Rs = DB.Execute(StrSql)
If Rs.EOF = False Then
Call ElegirInForme
FrmInformesResultado.CrInforme.ReportSource = Rpt
Rpt.Database.SetDataSource Rs
FrmInformesResultado.CrInforme.ViewReport
FrmInformesResultado.Show 1
Rs.Close
Set Rs = Nothing
' DB.Close
'Set DB = Nothing
Else
FrmSinDatos.Show 1
End If
Espero que te valga.
Un saludo.
83
« en: Jueves 9 de Octubre de 2003, 16:19 »
Insertas en un formulario el componente crystal.
Te creas tantos informes como necesites y lo que haces es visualizarlos en el control de Crystal de tu formulario.
84
« en: Jueves 9 de Octubre de 2003, 16:17 »
Perdona pero, desde donde?
85
« en: Jueves 9 de Octubre de 2003, 14:34 »
Roberto perdona pero cuando estoy empaquetando me dice que no encuentra 2 dlls.
intento buiscar en mi PC estas dlls y no las encuentro.
Utilizo Visual 6.0
Crystal 9.0
Me puedes dar el vínculo donde puedo encontrar Setup Factory 6.0
86
« en: Jueves 9 de Octubre de 2003, 14:32 »
Yo lo hago asi, inserto el objeto de cristal report. y luego eligo dependiendo de los parametros selecionados cual es el informe que debo mostrar.
'*Nos conectamos con Crystal Reports.
'*Informe de Proyectos.
Set Rpt = cr.OpenReport("Ges-fsspPruebas BIZControl_Horas_DatosProyecto.rpt")
FrmInformesResultado.CrInforme.ReportSource = Rpt
Rpt.Database.SetDataSource Rs
FrmInformesResultado.CrInforme.ViewReport
FrmInformesResultado.Show 1
87
« en: Jueves 9 de Octubre de 2003, 12:07 »
Hola compañer@s!
A la hora de empaquetar me da un error, me dice no se encuentram 2 archivos.
Yo creía que al crear el proyecto, se creaba todo lo necesario, en concreto son 2 dlls.
unicows.dll
ctrtowords_en.dll
¿que he podido hacer mal?
88
« en: Jueves 9 de Octubre de 2003, 11:43 »
Hola cortes!
Si te he entendido, puedes hacerlo de 2 maneras:
1º.- Creando un grupo por nº de registro.
2º.- Insertando un parámetro en el informe, de esta manera nos pedirá el parámetro cada vez que abramos el informe.
Yo de todas formas tengo el .9
Espero que te valga de algo
89
« en: Martes 7 de Octubre de 2003, 07:42 »
SELECT DISTINCT TblProyecto.PRODENOMINACION, TlbHoras.HOPERSONA, TlbHoras.HOFECHAINICIO, TlbHoras.HOPLANTA, Sum(TlbHoras.HOCAD) AS SumaDeHOCAD, Sum(TlbHoras.HOCAE) AS SumaDeHOCAE
FROM TlbHoras LEFT JOIN TblProyecto ON TlbHoras.HOPROYECTO = TblProyecto.PROIBPROYECTO
GROUP BY TblProyecto.PRODENOMINACION, TlbHoras.HOPERSONA, TlbHoras.HOFECHAINICIO, TlbHoras.HOPLANTA
ORDER BY TblProyecto.PRODENOMINACION, TlbHoras.HOPERSONA, TlbHoras.HOFECHAINICIO;
90
« en: Martes 30 de Septiembre de 2003, 13:43 »
Explicate un poco más. ¿no?
91
« en: Viernes 26 de Septiembre de 2003, 13:49 »
Posiblemente si, pero son los 2 típicos cuadros de lista, donde pasas valores de uno a otro. de todas formas muchas gracias Rober.
92
« en: Viernes 26 de Septiembre de 2003, 13:33 »
Gracias Rober!! Pero he sido precipitado en analizar el problema, tengo en un formulario un cuadro de lista que me dice que lo que le quiero pasar es demasiado largo. No pensaba que tuviera limitación.
93
« en: Viernes 26 de Septiembre de 2003, 13:06 »
Hola Compañer@s!! Tengo un problemilla. tengo una variable tipo string, que por los datos que acumulo, se me queda pequeña. ¿Puedo declarar una varable Memo? ¿como? Muchas gracias de antemano.
94
« en: Jueves 25 de Septiembre de 2003, 14:22 »
Lo que yo suelo hacer en Acces, es lo siguiente:
1º.- La bases de datos en Acces, van engordando, solamente con la manipulación de la base de datos, independientemente que esté dividida la base de datos.
2º.- Anulo las teclas de control de para que los usuarios tengan que salir desde el formulario de Usuario y contraseña.
3º.- Solo se pued compactar cuando no hay más usuarios.
4º.- Cuando es el último, en el botón de salir en el evento Clic. hago un Call al módulo Compactar que tiene el código que tu me envias.
Ejemplo:
If MsgBox("¿ Deseas Salir del Programa ?", vbOKCancel + vbQuestion + vbDefaultButton2, "SALIDA...") = vbOK Then
Call COMPACTAR
DoCmd.Close
DoCmd.Quit acQuitSaveAll
End If
5º.- Este código lo que hace es ir a la barra de herramientas y compactar.
6º.-También lo puedes hacer de la siguiente manera:
Application.SetOption "AUTO COMPACT", True
DoCmd.Close
Application.Quit
95
« en: Jueves 25 de Septiembre de 2003, 14:09 »
Enhorabuena Roberto!!!
ZORIONAK!:photo:
96
« en: Martes 16 de Septiembre de 2003, 07:27 »
Muchas Gracias Kev!!!
97
« en: Miércoles 10 de Septiembre de 2003, 10:08 »
*Declaración de variables
Dim Rs As New ADODB.Recordset
Dim Rpt As CRAXDRT.Report ' Guardamos el reporte
Dim cr As New CRAXDRT.Application ' Conexión con Crystal report
*Generamos una consulta con una Sql.
*La sql debe de ser igual que el origen que tiene nuestro reporte pero con los parametros que deseemos.
Set Rs = DB.Execute(StrSql)
'*Nos conectamos con Crystal Reports.
Set Rpt = cr.OpenReport("ruta y nombre.rpt")
CrInforme.ReportSource = Rpt
CrInforme.ViewReport
'*le damos el origen de los datos.
Rpt.Database.SetDataSource Rs
Espero que te valga
98
« en: Martes 9 de Septiembre de 2003, 12:27 »
Muchas Gracias Brroz!!
Creo que me valdrá.
Veo que controlas algunas palabras de Euskera. Todo un detalle.
Yo estudié en Santiago de Compontelas como puedas, pero ya se me ha olvidao.
Moitas gracias.
99
« en: Martes 9 de Septiembre de 2003, 11:55 »
Hola compañer@s! Ya me podeis perdonar, pero o no os entiendo o no me explico. Tengo un combo, que deseo que el usuario pueda elegir algún elemento de lista o ninguno. Problema! Cuando selecciono algún nombre, puedo cambiar el seleccionado por otro de la lista. Pero si deseo ningún elemento no lo puedo blanquear. de todas formas Muchisimas gracias por el interes.
100
« en: Martes 9 de Septiembre de 2003, 10:44 »
Bos dias Brroz! No quiero borrar, lo que quiero es que cuando en un combo pueda elegir un elemento de la lista o a blancos. Cuando entro en el formulario el combo está a blancos pero si elijo algún elemento luego no lo puedo blanquear. Muchas Gracias Galiza. Te envio una dirección que igual te interesa sobre el prestige. Deica logo. http://www.iespana.es/tramaprestige/prestige.html
|
|
|
Mostrar Mensajes
