Abrir formulario a traves de un Filtro y que se presente como una tabla

 

'que abra el formulario como una tabbla

Dim CONSU As String

 CONSU = Texto245

'DoCmd.OpenForm "RDMsQF", acFormDS, , "IDSEG IN(" & Consu & ")", acFormPropertySettings, acIcon

DoCmd.OpenForm "RDMsQF", acFormDS, , "(" & "RDM=" & """" & CONSU & """" & ")", acFormPropertySettings, acIcon

RDMsQF  es el nombre del formulario

RDM es el dato que se rescata a travez de la celda Texto245

y es el dato    que se filtrará en el formulario cuando se abra

'con ID

 Dim CONSU As String

 CONSU = Me.List2.Column(1)

DoCmd.OpenForm "SeguimientoPEMO", acNormal, , "NsegP IN(" & CONSU & ")"

'con dato string

Dim CONSU As String

 CONSU = List2.Column(1)

DoCmd.OpenForm "AWVs", acNormal, , "(" & "AWV=" & """" & CONSU & """" & ")"