Imprimir página | Cerrar ventana

Pasar un dato de un formulario a otro

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84283
Fecha de impresión: 21/Abril/2019 a las 00:23


Tema: Pasar un dato de un formulario a otro
Publicado por: ROCIO
Asunto: Pasar un dato de un formulario a otro
Fecha de publicación: 10/Febrero/2019 a las 12:05
Buenos dias,la duda que me surge es como sigue, yo tengo un formulario con ños datos de clientes, y un boton con el cual abro otro formulario para añadir datos en otra tabla que estan relacionada con el numero cliente mi duda es como pasar el numero de cliente gracias de antemano



Respuestas:
Publicado por: Mihura
Fecha de publicación: 10/Febrero/2019 a las 14:19
Una opción sería usar el parámetro OpenArgs al abrir el formulario.

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: ROCIO
Fecha de publicación: 10/Febrero/2019 a las 17:28
Gracias lo probare


Publicado por: ROCIO
Fecha de publicación: 11/Febrero/2019 a las 23:18
Buenas al hacer click en el boton abro el formulario pasandole el numero de cliente por el parametro OpenArgs, pero luego pero luego al querer utilizar ese dato en la funcion al abrir me da error.


Publicado por: ROCIO
Fecha de publicación: 11/Febrero/2019 a las 23:37
Lo que hago es lo siguiente, en la funcion al haver click del boton pongo

DoCmd. OpenForm 'REVISIONES',,,, acFormAdd,, [Ncliente]
Luego en la funcion al abrir del formulario revisiones pongo

Dim cliente as string
Cliente= Forms! REVISIONES. OpenArgs

Y aqui me da error me dice que no encuentra el formulario


Publicado por: mounir
Fecha de publicación: 11/Febrero/2019 a las 23:45
Hola!

Aquí tienes todo lo que debes saber sobre la propiedad "OpenArgs"


http://www.accessyexcel.com/domina-la-propiedad-openargs-en-access/" rel="nofollow - http://www.accessyexcel.com/domina-la-propiedad-openargs-en-access/


Edito para dejarte otro enlace del correcto uso de "DoCmd", ya que no lo aplicaste bien.

http://www.accessyexcel.com/como-usar-en-access-y-vba-el-comando-docmd-openform-para-abrir-un-formulario/" rel="nofollow - http://www.accessyexcel.com/como-usar-en-access-y-vba-el-comando-docmd-openform-para-abrir-un-formulario/

-------------
Un Saludo.


Publicado por: ROCIO
Fecha de publicación: 11/Febrero/2019 a las 23:45
Mo se si tendra que ver, tengo un formulario clientes en el cual estan todos los datos del cliente, un subformulario con las revisiones del cliente y el boton para añadir una nueva revision y este boton seria el que abriria wl foemulario para añadir. Como dije antes


Publicado por: ROCIO
Fecha de publicación: 12/Febrero/2019 a las 00:31
Gracias, ya paso bien el parametro, pero ahora le quiero dar ese valor al campo ncliente y me dice que no se le puede asignar el valor a ese objeto. Me explico lo guardo en una variable y estupendo y ahora le quieeo asignar ese valor al campo ncliente y me da ese error


Publicado por: mounir
Fecha de publicación: 12/Febrero/2019 a las 11:16
Hola!

Este campo "ncliente" es editable?

-------------
Un Saludo.


Publicado por: ROCIO
Fecha de publicación: 12/Febrero/2019 a las 15:41
Si es clave principal


Publicado por: mounir
Fecha de publicación: 12/Febrero/2019 a las 17:24
Hola!

Si es Clave Principal me temo que sería un campo autonumérico, por lo tanto, sería mejor que pusiera los nombres de las dos tablas, sus campos relacionados y el tipo de datos de cada campo para poder ayudarte, de lo contrario se va alargar este hilo innecesariamente.

Tambien si pones el código de como lo haces

-------------
Un Saludo.


Publicado por: ROCIO
Fecha de publicación: 12/Febrero/2019 a las 21:41
mis tablas se llaman datos personales y Revisiones ambas relacionadas por el campo Nº cliente, en la primera tabla tipo autonumerico y en la segunda numero.
en la función abrir del formulario REVISIONES pongo lo siguiente
Dim cliente As String
    
   If Not IsNull(Me.OpenArgs) Then
          cliente = Me.OpenArgs
         [Nº cliente] = CInt(cliente)
    End If

gracias por vuestra ayuda


Publicado por: mounir
Fecha de publicación: 12/Febrero/2019 a las 23:22
Hola!

Cuando hay una relación Uno a Varios y estableces integridad referencial entre ambas tablas no te permite pasar un dato al campo por infringir l regla de integridad referencial.

Soluciones:
- Eliminar la integridad referencial y sigues con el la propiedad OpenArgs.
- Crear formulario Clientes y dentro de él insertas el formulario "Revisiones" como subformulario, así cuando generas un Nuevo Clientes automáticamente se crea en el formulario revisiones la misma clave principal.

-------------
Un Saludo.


Publicado por: ROCIO
Fecha de publicación: 12/Febrero/2019 a las 23:34
Mas arriba explique que tengo un formulario cliente en el que esta los datos del cliente, um subformulario con las revisiones de ese cliente y um boton para añadir una nueva revision que me abre el foemulario revisione para añadir, a no ser qie en el subfoemulario se pueda ageegar de otra forma mas sencilla.


Publicado por: ROCIO
Fecha de publicación: 12/Febrero/2019 a las 23:46
Puede ser que en el subformulario se pueda agregar directamente?


Publicado por: mounir
Fecha de publicación: 12/Febrero/2019 a las 23:48
Hola!

Tienes razón, no lo había leído.
Claro que se puede añadir en el subformulario sin problemas.

¿Tienes el subformulario vinculado "sincronizado" con el formulario "Clientes"?

-------------
Un Saludo.


Publicado por: ROCIO
Fecha de publicación: 12/Febrero/2019 a las 23:57
Gracias problema solucionado, no habia caido en añadie los datps en el subfoemulariobdirectamente.


Publicado por: ROCIO
Fecha de publicación: 24/Febrero/2019 a las 01:19
Tema solucionado se puede cerrar el hilo



Imprimir página | Cerrar ventana