SoloCodigo

Lo mejor que puedes hacer es una function:

variable=Nombre_de_Fun

para ello basta cambiar el SUB por FUNCTION y decirle que devuelva el tipo de la variable. Ejemplo sustituye

Sub Hola(variable as string)
...
end sub

por

Function Hola() as string
...
end function

Hola angelescj: otra vez aqui, gracias por tu explicacion, pero me sigue dando error. De hecho he llegado a conseguir que muestre el informe con PrintReport, pero almacenando los datos, es decir, en el crystal le digo que guarde datos con informe. Pero luego cuando cambian los datos no me los actualiza, me vuelve a sacar los mismos. Estuve mirando las opciones del informe, cambiando propiedades y llegue a un punto en el que ya no me funciona nada, ni me lo muestra ni nada. La verdad ya no se que hacer, pues tengo muchas aplicaciones desarrolladas que "tiran" del Crystal. A ver si me puedes ayudar. Sabras de algun manual? Sabes como se actualizan los datos en tiempo de ejecucion? Socorro.


Edu

Hola de nuevo:
A ver si puedo aclarar mas mi problema:
Estoy usando el control del Crystal Reports 8 con visual 6 y resulta que a la hora de llegar a la ejecucion del informe, es decir, Rptlistado.action=1 me da error 20535 y no se por donde ando. Agradeceria me echarais una mano por favor, me urge bastante. No se si el problema esta en visual basic o en el propio Crystal Reports. Lo que si es cierto es que intenta cargar el informe, pues da un pantallazo tipico de carga  de informe (cuando se manda por ventana), y luego da el error en tiempo de ejecucion. Gracias de nuevo.

hola a tod@s: acabo de migrar a Crystal Reports 8, y necesitaba saber cual es el comando de ejecucion de un informe desde VB6. Yo utilizaba la version 4.6 del crystal y hacia:
Rptlistado.action=1 para ejecutar el informe. Como puedo hacer ahora?, pues esta instruccion no me la permite para la version 8. Gracias de antemano.

Egala

Prueba a poner un format a la fecha que usas en el insert o en update de la siguiente manera

Update ..... fecha=#' format(fechatuya,"mm/dd/aaaa") & "#"
....

A ver si esto te sirve:
Deberas tener la Base de datos en la misma carpeta que los informes (en el servidor), luego abre con el crystal esos informes y en la opcion "Establecer Ubicacion de la base de datos" (creo que se llama asi) selecciona cada una de las tablas que usas y para cada una de ellas pincha en el boton llamado "Igual que el Informe". Guarda los cambios y prueba.

Amigo J.M.Movilla, te agradezco la respuesta (algo se aprende), pero creo que no me explique bien en lo que yo quiero hacer. Vease un ejemplo:

Sub CargaLista(Valor as integer,Lista as ListBox)
  Lista.additem Valor
End sub

La llamada desde el formulario seria:
call CargaLista(Valor, LstNuestraLista)

Bien, pues es lo mismo pero en vez de pasar una unica Lista, quiero pasar un conjunto de listas (matriz de controles), osea algo como:

Sub CargaLista(Valor as integer,Lista as ListBox,Posicion as integer)
  Lista(posicion).additem Valor
End sub

La llamada desde el formulario seria:
call CargaLista(Valor, LstNuestraLista,i)
donde i es el indice de la lista en la cual quiero insertar el valor pasado.
Pero me da error

Bueno, espero que con esta explicacion puedas ayudarme

Gracias de antemano

Hola a todos:
A ver si alguien me puede ayudar, necsito pasar por parametro una matriz de controles a un procedimiento o funcion.
Alguien sabe como?

Gracias

Egala

Eso creo que es porque la ruta del acceso directo no es la misma que tienes tu en tu aplicacion. Te recomiendo que añadas una conexion de red permanente al equipo donde esta la aplicacion y sobre ella hagas el acceso directo. Entonces logras ejecutar asi el programa desde otra maquina pero sobre la que tiene el programa.

Suerte

Egala

Lo unico que se me ocurre es que si estan hechos ambos con el crystal reports, en el propio crystal configures las impresoras de modo fijo, es decir, indicandole a cada uno la impresora deseada.
Tambien puedes, a la hora de imprimir, que te saque un cuadro de dialogo y te pregunte por la impresora que quieres imprimir.

Suerte

Egala

No soy Jose Arriaga pero si te sirve mi contestacion estupendo.
Depende como lo hagas: Una forma:
1º.- De Bd as txt
'Abrir la Bd
Set BD=opendatabase(nombre.mdb,parametros)

'seleccionar los registros que queramos mediante Sql
set Ss=Bd.openrecordset(Sql,parametros)

txt.text=Ss(campo)


2º.- De Txt a Bd
'editar el registro guardado y actualizar
set Ds=bd.openrecordset(sql,parametros)

Ds.edit
Ds(campo)=txt.text
Ds.update

'si el registro no existe cambia el Ds.edit por Ds.addnew

Esta es una forma, pero hay muchas, puedes probar a usar los Datas y vincular los campos directamente con la tabla que quieras de access. Ya sabes que el uso indiscriminado de Datas hace que el proyecto sea mas lento


Suerte

Egala

Has probado a poner esto:?
Procedimiento:
sub Proc1(tus parametros, CajaTexto as control)

Llamada:
call Proc1(parametros tuyos, txtAudD)

Suerte

Egala