Senhas

[Rickardo]

ae por exemplo eu tenho uma tbl_user, onde tem os campos

nome_user

senha_user

tipo_user

tenho tambem os forms

form01

form02

quero que ao abrir o aplicativo, seja exigido o login e senha do usuario, sendo q se o usuario for tipo_user = 01 abre o form01 e se o usuario for tipo_user = 02 abre o form02

alguém aí sabe como é q faço isso???

grato

[Rickardo]

sera possível ninguém sabe ??

kd a irmandade gente???

[Rickardo]

moderador ..................

socorro.............. ajuda~e mano............

[Fredox]

se você já tem o formulario que verifica se a senha esta correta então é so colocar no botao de confirmar a senha o seguinte:

if tipo_user = "01" then

DoCmd.openform "form_01"

else

DoCmd.openform "form_01"

end if

agora, se você não tem nem o formulario de verificação da senha.

ai da mais trabalho e to meio sem tempo agora. depois nois conversa.

[Fredox]

ou melhor

if tabela.tipo_user = "01" then

DoCmd.openform "form_01"

else

DoCmd.openform "form_02"

end if

[Rickardo]

ou melhor

if tabela.tipo_user = "01" then

DoCmd.openform "form_01"

else

DoCmd.openform "form_02"

end if

pois é ..

eu não tenho não

como é que eu faço??

pode me ajudar??

[MrMALJ]

Bom a principio você terá que criar um novo formulario que será aberto imediatamente ao abri o seu projeto (MDB), nele você ira colocar duas caixas de texto não acoplados para que possa ser informado o nome do usuario e a senha do mesmo. Vamos chama-las de xUso e xSenha, então nas propriedades "Após atualizar" de cada caixa de texto você pode utilizar códigos semelhantes aos que vou mostrar abaixo

-- Para xUso

dim vUso as string

vUso=dlookup("[nome_user]","tbl_user","[nome_user]"=xUso)

if isnull(vUso) then

msgbox "Usuário não encontrado"

me.xUso.setfocus

end if

-- Para xSenha

dim vSenha as string

dim vTipo as variant

vSenha=dlookup("[senha_user]","tbl_user","[nome_user]"=me.xUso)

if isnull(vSenha) or me.xSenha<>vSenha then

msgbox "Senha Incorreta!"

else

vTipo=dlookup("[tipo_user]","tbl_user","[nome_user]"=me.xUso)

docmd.close

if vTipo=1 then

docmd.openform "SeuForm1"

else

docmd.openform "SeuForm2"

End if

end if

----------------

Bom acho que isso deve resolver, talvez uma ou outra correção no código, mais basicamente é isso daí