Filtrar Subform desde form con 2 combos
Publicado por Dany (40 intervenciones) el 15/12/2015 22:39:59
Hola saludos cordials a todos.
Este tema ya se ha tratado infinidad de veces pero creerme que no le doy al clavo.
Para filtar un SubFormulario por medio de un combo lo hago asi:
Para ver todos los datos lo hago asi:
Pero quiero filtar por 2 combobox, es decir que el usuario filtre el campo Gage con el Combo CboGage y de ese filtro que tiene en pantalla pueda filtrar el campo terminal con el CboTerm. para despues realizar una actualización sobre los datos en pantalla. Pero no he podido realizar el doble filtro.
Intente con este codigo pero me arroja error me dice que la variable no esta definida.
No veo donde me esta el error, espero me tiendan una mano.
Saludos
DS
Este tema ya se ha tratado infinidad de veces pero creerme que no le doy al clavo.
Para filtar un SubFormulario por medio de un combo lo hago asi:
1
2
3
4
5
6
7
8
9
Private Sub CboGage_AfterUpdate()
If Nz(Me.CboGage, "") <> "" Then
Me.SubTerminales_NoValidations.Form.Filter = "Gage=" & Me.CboGage
Me.SubTerminales_NoValidations.Form.FilterOn = True
Me.Recalc
End If
End Sub
Para ver todos los datos lo hago asi:
1
2
3
4
5
Private Sub CmdVer_Click()
Me.SubTerminales_NoValidations.Form.RecordSource = "Select * from [Terminales Sin Validar]"
End Sub
Pero quiero filtar por 2 combobox, es decir que el usuario filtre el campo Gage con el Combo CboGage y de ese filtro que tiene en pantalla pueda filtrar el campo terminal con el CboTerm. para despues realizar una actualización sobre los datos en pantalla. Pero no he podido realizar el doble filtro.
Intente con este codigo pero me arroja error me dice que la variable no esta definida.
1
Form!SubTerminales_NoValidations.Form.RecordSource = "Select * From [Terminales Sin Validar] where Gage=" & Me.CboGage And TERMINAL = "'" & Me.CboTerm
No veo donde me esta el error, espero me tiendan una mano.
Saludos
DS
Valora esta pregunta
0