MS Access: ¿cómo se comunican los formularios entre sí los formularios?

Question

Tengo un formulario (FORMATO-A) que requiere que el usuario seleccione un vehículo. El usuario debe hacer clic en un botón en el FORMATO-A que dice seleccionar el vehículo. Se debe abrir un formulario de selección (FORMATO-B) donde el usuario pueda seleccionar un vehículo. El valor seleccionado debe comunicarse nuevamente a FORM-A.

¿Cómo lo lograrías en MS Access 2010?

FORM-B es una forma continua que contiene una imagen del vehículo y otra información.

Answer 1

Por lo que entiendo de su pregunta, quiere que formB abra un tipo de ventana emergente. Cuando se cierra la ventana emergente, su resultado se coloca en algún lugar en el formulario de llamada.
Propuesta de solución:
a) abra FormB utilizando la sintaxis docmd.openform "formB", windowmode:=acDialog.
Esto evitará la ejecución de las siguientes líneas hasta que el formularioB esté cerrado u oculto.
b) en el botón Aceptar de FormB, simplemente oculta el formulario, no lo cierres.
c) cuando el código se reanuda en forma, ahora puede

1. verificación si formB todavía está abierta. Si no es así, se ha cancelado
2. leer el valor en formB oculta (todavía abierto), a continuación, cierre formB

lo contrario, también podría tener formB para actualizar un control en forma antes del cierre. Pero no me gusta ese enfoque porque entonces formB no es reutilizable y crea una dependencia innecesaria entre formB y formA.

Answer 2

No estoy seguro de por qué necesitaría un formulario separado para esto - solo haga que el primer cuadro de texto sea una lista de todos los registros de vehículos en la base de datos, donde seleccionaría uno, y el resto de la información del vehículo es auto-poblada de la tabla del vehículo, pero no copiada en su tabla principal. Por supuesto, tampoco estoy seguro de la estructura de su mesa, por lo que podría haber una razón para este método que no es evidente para mí.

Los beneficios del método anterior es que si se añade más vehículos, el cuadro de selección se actualiza automáticamente - y mantener las formas que tiene que cargar a un mínimo (siempre un buen rendimiento movimiento)

Answer 3

Puede crea una instancia de formB dentro de formA y contrólala. A continuación se muestra el código de VBA para formA. Al hacer clic en un botón en formA, crea una nueva instancia de formB y le da enfoque. Al mismo tiempo, puede establecer propiedades para sus controles. Puede usar este enfoque para establecer la imagen correcta en su control en el formulario B. Espero que esto ayude.

Ejemplo:

Option Compare Database 

Dim fB As Form_FormB 

Private Sub btnA_Click() 
    Set fB = New Form_FormB 
    fB.SetFocus 
    fB.tbxB.Text = "Some text sent from A to B!" 
End Sub 

Si desea ambas formas sean visibles todo el tiempo, se sugiere emplear un subformulario con la lista de todos los vehículos o simplemente detalles de la que el usuario ha seleccionado.

Answer 4

Puede hacer referencia a los formularios de esta manera! FormName! ControlName. Una vez que vea cómo funciona esto, podrá engañarlo para que funcione con su configuración existente. Usemos 3 controles de un cuadro de texto en el Formulario A, una imagen en el Formulario B y un cuadro de texto en el Formulario-B. El cuadro de texto en Form-A se denominará txtVehicle, la imagen en Form-B se denominará imgVehicle y el cuadro de texto en Form-B se denominará txtVehicleName. Puede establecer el nombre de un control dentro de las propiedades. Al hacer clic en imgVehicle, pondrá el valor de txtVehicleName en txtVehicle.

Tendrá que hacer un pequeño código, aunque es fácil si no lo ha hecho antes. Debajo de las propiedades de la imagen, verá los eventos. Si hace clic en el evento "Al hacer clic" obtendrá una lista desplegable. Una de las opciones será [Procedimiento de evento]: elija eso. Un pequeño botón con 3 puntos aparecerá también al final de la fila. Haz clic y deberás acceder a una ventana de código con un código como este.

Private Sub imgVehicle_Click() 

End Sub 

Aquí es donde pone su código. Algo como esto debería funcionar. Esto es en su forma más simple.

Private Sub imgVehicle_Click() 
    Forms!Form-A!txtVehicle=forms!Form-B!txtVehicleName 
End Sub 

Ahora bien, aunque eso funcionará, hay algunas cosas que deberíamos hacer en este método que no hacemos. Deberíamos referirnos directamente al Formulario B ya que estamos en él, debemos verificar que el Formulario A sea de hecho abierto.

Private Sub imgVehicle_Click() 
    If currentproject.allforms(“Form-A”).isloaded then 
      Forms!Form-A!txtVehicle=me!txtVehicleName 
    End if 
End Sub 

Espero que ayude