Un Formulario para dos
Publicado por Sandra (203 intervenciones) el 25/09/2007 21:51:45
Hola ... realmente necesito esto. Espero que pudieran ayudarme.
Tengo lo siguiente:
Formulario (A), Formulario (B) y el un formulario de Busqueda (C) (Que gentilmente me cedieron en este foro y lamentablemente no recuerdo quien, pero se llama Busquedas2000)
La busqueda (C) es la misma para los dos formularios (A) y (B), solo que el Form (A) me trae todas las facturas y el otro (B) solo la suma total de fras por cientes.
Me gustaria poder utilizar el Formulario (C) para los dos formularios.
Es decir que al hacer doble clic en el cuadro de lista del Form(C) mediante codigo pueda ejecutar direferentes consultas. Yo hasta ahora tengo lo siguiente, pero me gustario agregar la otra parte
Private Sub Lista1_DblClick(Cancel As Integer)
IF Formulario que llama al formulario (C) es el (A) THEN
Form_Deuda_Detallada.Cuenta = Lista1.Column(0)
Form_Deuda_Detallada.nombre = Lista1.Value
Form_Deuda_Detallada.cuit = Lista1.Column(2)
DoCmd.Close acForm, "Busca"
DoCmd.Requery "Sub_SAP_Detalle_Final"
DoCmd.Requery "DetalleMicCali"
ElseIf Formulario que llama al formulario (C) es el (B) THEN
XXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXxxxx
XXXXXXXXXXXXXXXXXX
ENDIF
End Sub
Se podra hacer algo asi? Espero ANCIONSAMENTE que alguien pueda ayudarme
Saludos
Sandra!
Tengo lo siguiente:
Formulario (A), Formulario (B) y el un formulario de Busqueda (C) (Que gentilmente me cedieron en este foro y lamentablemente no recuerdo quien, pero se llama Busquedas2000)
La busqueda (C) es la misma para los dos formularios (A) y (B), solo que el Form (A) me trae todas las facturas y el otro (B) solo la suma total de fras por cientes.
Me gustaria poder utilizar el Formulario (C) para los dos formularios.
Es decir que al hacer doble clic en el cuadro de lista del Form(C) mediante codigo pueda ejecutar direferentes consultas. Yo hasta ahora tengo lo siguiente, pero me gustario agregar la otra parte
Private Sub Lista1_DblClick(Cancel As Integer)
IF Formulario que llama al formulario (C) es el (A) THEN
Form_Deuda_Detallada.Cuenta = Lista1.Column(0)
Form_Deuda_Detallada.nombre = Lista1.Value
Form_Deuda_Detallada.cuit = Lista1.Column(2)
DoCmd.Close acForm, "Busca"
DoCmd.Requery "Sub_SAP_Detalle_Final"
DoCmd.Requery "DetalleMicCali"
ElseIf Formulario que llama al formulario (C) es el (B) THEN
XXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXxxxx
XXXXXXXXXXXXXXXXXX
ENDIF
End Sub
Se podra hacer algo asi? Espero ANCIONSAMENTE que alguien pueda ayudarme
Saludos
Sandra!
Valora esta pregunta


0