Filtrar 1form con otro form
Publicado por Sara (1 intervención) el 08/01/2008 17:15:04
Mi duda es la siguiente:
Tengo 2 formularios:
FORM1 con 2 cuadros combinados: comb1 y comb2
FORM2 con 2 subformularios: subform1 y subform2
Lo que necesito es que, una vez el usuario da valores a comb1 y comb2, en FORM1 al hacer click en un boton se abra FORM2 y se filtre lo siguiente en sus subformularios: subform1 = comb1 y subform2 = comb2
He probado con el siguiente codigo pero el valor de las variables se pierde cuando se ejecuta el filtro:
__
Private Sub Comando3_Click()
Static id1, id2
id1 = Forms![FORM1]![comb1].Column(0)
id2 = Forms![FORM1]![comb2].Column(0)
DoCmd.Close
DoCmd.OpenForm "FORM2"
Forms![FORMS2]![subform1].Form.Filter = "[promo_id] = " & id1
Forms![FORMS2]![subform1].Form.FilterOn = True
Forms![FORMS2]![subform2].Form.Filter = "[promo_id] = " & id2
Forms![FORMS2]![subform2].Form.FilterOn = True
End Sub
__
Tambien he probado:
Me!Filter = "[subform1].Form![promo_id] = " & id1 & " and [subform2].Form![promo_id] = " & id2
Si inserto un MsgBox id1 antes de cerrar FORM1 se muestra bien... No se donde se pierde la variable???
Alguien puede echarme una mano??
Tengo 2 formularios:
FORM1 con 2 cuadros combinados: comb1 y comb2
FORM2 con 2 subformularios: subform1 y subform2
Lo que necesito es que, una vez el usuario da valores a comb1 y comb2, en FORM1 al hacer click en un boton se abra FORM2 y se filtre lo siguiente en sus subformularios: subform1 = comb1 y subform2 = comb2
He probado con el siguiente codigo pero el valor de las variables se pierde cuando se ejecuta el filtro:
__
Private Sub Comando3_Click()
Static id1, id2
id1 = Forms![FORM1]![comb1].Column(0)
id2 = Forms![FORM1]![comb2].Column(0)
DoCmd.Close
DoCmd.OpenForm "FORM2"
Forms![FORMS2]![subform1].Form.Filter = "[promo_id] = " & id1
Forms![FORMS2]![subform1].Form.FilterOn = True
Forms![FORMS2]![subform2].Form.Filter = "[promo_id] = " & id2
Forms![FORMS2]![subform2].Form.FilterOn = True
End Sub
__
Tambien he probado:
Me!Filter = "[subform1].Form![promo_id] = " & id1 & " and [subform2].Form![promo_id] = " & id2
Si inserto un MsgBox id1 antes de cerrar FORM1 se muestra bien... No se donde se pierde la variable???
Alguien puede echarme una mano??
Valora esta pregunta


0