access - Abrir formulario pasando parametro

[vbm]

Pues esa es la pregunta:

¿Como hago para abrir un formulario y pasarle un parametro?

Ejemplo

Formulario1

'Estamos dentro del Formulario1 y tenemos una variable que es del tipo fecha/hora que se llama Fecha

DoCmd.OpenForm("Formulario2") 'aqui quiero pasarle la variable Fecha

Formulario2

'Estamos dentro del Formulario2 y quiero tener utilizar la variable Fecha

'Fin

Muchas gracias.

[Remon]

Imaginemos que tenemos un formulario de productos, donde desemos abrir el formulario segun el codigo de producto que esta en un combo donde tienen los productos (Nombres y codigos) del actual formulario:

Imaginemos que el combo de productos se llama CmbProductos, el formulario de productos se llama PRODUCTOS..entonces:

MiCriterio = "COD_PRO=" & CmbProductos & ""
DoCmd.OpenForm stDocName, , , MiCriterio

Ojo como se cree que es numerico, va con esta sintaxis:

=" & CmbProductos & "

Si fuer texto seria:

='" & CmbProductos & "'"

Si fuera fecha seria:

=#" & Format(CmbProductos,"MM/dd/yyyy") & "#"

Aqui en fechsa toca formatear porque las consultas trabajan este formato (Mes/Dia/Año)

[Taribo007]

Uno d elos parametros del metodo openform es OpenArgs, asi le pasas una variable que se guarad en la propiedad OpenArg del form abierto.

Es decir, lo abres asi:

DoCmd.OpenForm "NOmbreForm", , , , , , "HOLA"

Y en el evento load del form que abres, pones:

msgbox me.Openargs

Y te saldra un mensaje con "hola"

Otra opcion es usar variables declaras como publicas a nivel de modulo, ya que son vivibles desde cualquier parte de la palicacion

un saludo

[vbm]

Vale muchas gracias por las respuestas, voy a ver si me aclaro. Si tengo algun problema os lo digo.

1 saludo!!

[vbm]

Veamos:

La respuesta de Remon no la he entendido mucho, luego he intentado el metodo de Taribo007. Os explico: yo tengo un cuatro de texto del tipo fecha (dentro del formulario1) que se llama Fecha. Tengo tambien un boton que lo que hace es abrir el formulario2. El formulario2 lo abro con DoCmd.openForm "formulario2". Si pongo DoCmd.openForm "formulario2",,,,,,Fecha y luego en formulario2 hago msgbox me.OpenArgs me da el sigiente error: 'uso invalido de null'. Lo que a mi me interesa es poder meter en un cuadro de texto del formulario2 la Fecha que le paso desde el formulario1, por eso no se si lo que estoy haciendo es lo correcto.

Muchas gracias por la ayuda

[Taribo007]

LO estas haciendo bien, pero fecha es una palabra reservada de acces y en segun que sitio puede darte problemas. prueba asi:

DoCmd.openForm "formulario2",,,,,,me.Fecha

Y si sigue dando problemas, cambia el nombre dle cuadro de texto por Txtfecha, y luego:

DoCmd.openForm "formulario2",,,,,,me.TxtFecha

Un saludo

[vbm]

Nada. Me sigue dando el error "uso no valido de null". No se que puede estar pasando y lo hago exactamente como tu me dices. Si puedes decirme otra alternativa te lo agradeceria muchisimo, sino pues te agradezco toda la atencion prestada.

1 saludo!

[Taribo007]

Dos cositas. Primero, que version de access utilizas. y segundo, pon exactamente el codigo que utilizas. Cuando te sale el error??

Otras alternativas: en el from load del formulario2

me.CuadroDeTextoDelFormulario2=forms("Formulario1" ).controls("CuadroDeTextoelFormulario1")

Para esto, al abrir el form 2, el form1 ha de estar abiert.

Otra opcion, declara una variable publica en un modulo nuevo:

Public VarFecha as date

Antes de abrir el formulario2:

VarFecha=me.CuadroDeTextoelFormulario1

Y en el form load del formulario1:

me.CuadroDeTextoDelFormulario2=varFecha

un saludo

[vbm]

Arreglado! Uso el 2007. He optado por por declararme una funcion publica a la cual le llamo desde el formulario2 y me devuelve la fecha. De todas formas probaré lo que me has dicho.

Muchas gracias!

un saludo!