Jump to content
Fórum Script Brasil
  • 0

Senhas


Rickardo

Question

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

Link to comment
Share on other sites

6 answers to this question

Recommended Posts

  • 0

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.

Link to comment
Share on other sites

  • 0

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í cool.gif

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.6k
×
×
  • Create New...