[Resolvido]Ajuda em filtro

Tenho uma tela de login simples com toda base de login senha em vba.
Quero colocar para cada Usuario um filtro.
[BD_CENTRL]![REF_MAILLING]=1
[BD_CENTRL]![REF_MAILLING2]=10 para o user01


[BD_CENTRL]![REF_MAILLING]=2
[BD_CENTRL]![REF_MAILLING2]=20 para o user02

[BD_CENTRL]![REF_MAILLING]=3
[BD_CENTRL]![REF_MAILLING2]=30 para o user03
Assim em diante,, quem pode me ajudar nesse VBA ??
O form tem 2 textbox e um botão.
Coloquei nome do textbox que recebe o usuario de login,
Coloquei nome do textbox que recebe o senha de senha.

Evendo click do botão segui o Código abaixo

Código:

Private Sub Comando4_Click()
LOGIN.SetFocus
If LOGIN = "user01" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close

'AQUI SEGUI EXECUÇÃO DE UMA MACRO OU FILTRO PARA FORM EMBRATEL
DoCmd.OpenForm "EMBRATEL"

ElseIf LOGIN = "user02" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close

'AQUI SEGUI EXECUÇÃO DE UMA MACRO OU FILTRO PARA FORM EMBRATEL
DoCmd.OpenForm "EMBRATEL"

ElseIf LOGIN = "user03" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close

'AQUI SEGUI EXECUÇÃO DE UMA MACRO OU FILTRO PARA FORM EMBRATEL
DoCmd.OpenForm "EMBRATEL"

Else
MsgBox "Login ou Senha invalidos.", vbInformation, "ERRO!"
End If
End Sub


Não entendi bem o uso prático do seu código. Poderia por gentileza explicar o resultado esperado?

Private Sub Comando4_Click()
LOGIN.SetFocus
If LOGIN = "user01" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close

'AQUI SEGUI EXECUÇÃO DE UMA MACROU OU FILTRO PARA FORM EMBRATEL
DoCmd.OpenForm "EMBRATEL"
Else
MsgBox "Login ou Senha invalidos.", vbInformation, "ERRO!"
End If
End Sub


Só quero que cada user tenho um filtro ou execute uma macro diferente.
para user01 macro o1...
If LOGIN = "user01" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close

'aqui seria macro filtro ou um filtro em vba

DoCmd.OpenForm "EMBRATEL"

DoCmd.RunMacro "SuaMacro"

vou testar esse que encontrei aqui no forum..

Amigo consegui aqui com um comando vba que encontrei no forum

ficou da seguinte forma..


rivate Sub Comando4_Click()
LOGIN.SetFocus
If LOGIN = "user01" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close
DoCmd.RunMacro "01" 'MACRO QUE ABRI O FORM E APLICA O FILTRO


ElseIf LOGIN = "user02" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close

DoCmd.Close
DoCmd.RunMacro "02" 'MACRO QUE ABRI O FORM E APLICA O FILTRO

ElseIf LOGIN = "user03" And senha = "123" Then
MsgBox "Carregando...", vbInformation, "T5"
DoCmd.Close

DoCmd.RunMacro "03" 'MACRO QUE ABRI O FORM E APLICA O FILTRO

Else
MsgBox "Login ou Senha invalidos.", vbInformation, "ERRO!"
End If
End Sub



BRIGADO PELA FORÇA...

Muito bem amigo. Obrigado pelo retorno. Passando o tópico para Resolvido