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 & """" & ")"

 =DBúsq("ValorTC";"TClink";"TC = ""ZCLP""")

=DBúsq("FechaTC";"TClink";"TC = ""USD""")

TClink es el nombre de la Tabla

ValorTC  y FechaTC,  es el valor de la Columna que queremos rescatar

TC es el nombre de la columna que queremos comparar con el dato

ZCLP y USD es un string que evaluaremos si existe en TC

=DBúsq("CodigoSAPCliente";"Clientes";"ClienteBase = Texto47")

Texto47 es una celda en el formulario

=DBúsq("Vendedor";"ClienteVendedorQ";"ClienteBase = Texto47")