FOROS DE INFORMATICA
Noticias: Habilitada la opción de Karma para usuarios con más de 50 mensajes
 
*
Bienvenido(a), Visitante. Por favor, ingresa o regístrate.
¿Perdiste tu email de activación?
Abril 18, 2024, 08:31:07


Ingresar con nombre de usuario, contraseña y duración de la sesión


Páginas: [1]
  Imprimir  
Autor Tema: Coger datos de otro formulario. Access 2010  (Leído 8833 veces)
Dgon
Junior
**

Karma:0
Desconectado Desconectado

Mensajes: 79


« : Agosto 12, 2011, 08:31:46 »

Buenos días,

Trabajo con Access 2010.

Tengo un formulario llamado Incidencias que tiene el campo código del camión, nº de incidencia y fecha. Lo que quiero es crear un botón que me abra un formulario llamado "Nueva incidencia". El problema que se me presenta ya que no lo consigo, es que cuando abra el formulario automaticamente coja el código del camión.
En línea
Dgon
Junior
**

Karma:0
Desconectado Desconectado

Mensajes: 79


« Respuesta #1 : Agosto 12, 2011, 11:29:38 »

Ya lo he solucionado. Dejo lo que he hecho por si os interesa.

1.- Abrir el formulario con el código del camión

Voy a suponer que el código del camión es de tipo numérico, y que el campo que lo contiene se llama [CodCamion]. Tú deberás cambiar el nombre del campo por el que tengas en tu BD.

También supondré que el campo del formulario "Nueva incidencia" se llama [CodCamionNuevo]

1.- Al boton que utilizas para crear la nueva incidencia, en el evento Al hacer click, le generas el siguiente código:

---

Private Sub...
Dim vCam As Integer
vCam = Me.[CodCamion].Value
DoCmd.OpenForm "Nueva incidencia",,,,acFormAdd
Forms![Nueva incidencia].[CodCamionNuevo].value = vCam
End Sub

---

2.- Agregar registros con el mismo código

1.- En el formulario "Nueva incidencia" creas un botón de comando que se llamará como título, por ejemplo, <Agregar con mismo código>.

2.- Sacas las propiedades de ese boton y te vas a la pestaña Otras->Nombre, y le escribes ahí cmdNuevoMismoCodCam

3.- Todavía en las propiedades, te vas a la pestaña Eventos->Al hacer click, y le generas el siguiente código:

---

Private Sub...

Dim vCam As Integer
DoCmd.RunCommand acCmdSaveRecord
vCam = Me.[CodCamionNuevo].Value
DoCmd.RunCommand acCmdRecordsGoToNew
Me.[CodCamionNuevo].Value = vCam

End Sub

---
En línea
Páginas: [1]
  Imprimir  
 
Ir a:  

Impulsado por MySQL Impulsado por PHP Powered by SMF 1.1.13 | SMF © 2006-2009, Simple Machines LLC

XHTML 1.0 válido! CSS válido! Dilber MC Theme by HarzeM