Filtro por macro

Pretendo criar um filtro atravez de uma macro. que filtre dois campos da minha tabela ambos os campos pretendo filtrar valores


Nome da tabela:BD_CENTRAL
Nome dos campos:REF_MAILLING e REF_MAILLING2
Nome do form que seria aplicado o filtro:FORM01

Quere extrair do campo REF_MAILLING o valor "1", e extrair do campo REF_MAILLING2 o valor "10", e excluir do meu filtro do campo REF_MAILLING2 o valor 151 ??

como faço esse filtro em macro ou sql ??

Código:

Private Sub Form_Open(Cancel As Integer)

DoCmd.Maximize

If getUsuarioAtual = "OPERADOR01" Then

filtro BD_CENTRL / REF_MAILLING = 1 / REFMAILLING2 = 10

If getUsuarioAtual = "OPERADOR02" Then

filtro BD_CENTRL / REF_MAILLING = 2 / REFMAILLING2 = 20


ASSIM VAI ATÉ OS 10 USERS.


Você tem varios exemplos de multi criterios aqui;

http://maximoaccess.forumeiros.com/t1594-instrucoes-sql-como-utilizar

Amigo então seria assim?



DoCmd.Maximize

Código:

If getUsuarioAtual = "OPERADOR01" Then

Dim strSQL, strSQL1, strSQL2 As String
DoCmd.SetWarnings False
strSQL = "SELECT * FROM BD_CENTRAL WHERE REF_MAILLING LIKE '1'"
DoCmd.RunSQL (strSQL)

strSQL1 = "strSQL = "SELECT * FROM BD_CENTRAL WHERE REF_MAILLING2 LIKE '10'"
DoCmd.RunSQL (strSQL1)

If getUsuarioAtual = "OPERADOR02" Then


Dim strSQL, strSQL1, strSQL2 As String
DoCmd.SetWarnings False
strSQL = "SELECT * FROM BD_CENTRAL WHERE REF_MAILLING LIKE '2'"
DoCmd.RunSQL (strSQL)

strSQL1 = "strSQL = "SELECT * FROM BD_CENTRAL WHERE REF_MAILLING2 LIKE '20'"
DoCmd.RunSQL (strSQL1)

Assim vai até os 10 users.



Editado pelo moderador Dilson - Data/hora: Qui Fev 24, 2011 6:35 pm - Motivação: trecho do texto em desacordo com a Regra do Fórum n° 12