MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Formulário Login

    avatar
    fb14
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 17/10/2012

    [Resolvido]Formulário Login Empty [Resolvido]Formulário Login

    Mensagem  fb14 27/11/2012, 15:12

    Boa tarde comunidade!
    Venho por este meio colocar uma duvida que me surgiu....eu tenho um frm de Login e fiz um outro agora de alteração de palavra-chave, para quando houver utilizadores novos ou o administrador alterar a palavra-chave o utilizador ao fazer login seja alterada por ele a palavra-chave.
    Dessa forma o frm de alteração da Palavra-chave é um frm modal (popUp).
    Dessa forma quero que ele seja aberto automaticamente para isso coloquei no VBA o seguinte codigo no frm do Login:

    " Private Sub cmdLogin_Click()
    Dim X As Byte
    Dim strUtilizadores As String
    Dim rstPrimeiraVez As Recordset
    X = BuscaCodigo()
    If X = 1 Then
    If IsNull(txtCodigo) Then
    MsgBox "Deve introduzir o código do utilizador !", vbCritical + vbOKOnly, glbNomeApp
    txtCodigo.SetFocus
    Exit Sub
    End If
    If IsNull(txtChave) Then
    MsgBox "Deve introduzir a chave utilizador !", vbCritical + vbOKOnly, glbNomeApp
    txtChave.SetFocus
    Exit Sub
    End If

    If strUtilizadores = "Select Utilizadores, Nome, PalavraChave, Departamento, Email, Administrador, PrimeiraVez" Then
    FROM ("tblUtilizadores")
    WHERE Utilizadores = txtCodigo
    Set rstPrimeiraVez = CurrentDb.Execute(strUtilizadores)
    End If

    End Sub"
    Sei que tenho de colocar isto: " If "AlterarPalavraChave" Then
    DoCmd.OpenForm "frmAlterarPalavraPasse", acNormal, , , acFormPropertySettings
    Exit Sub"
    Para poder ir buscar o frm mas não sei onde colocar Sad
    Mas ele não esta funcionando alguem me pode ajudar? Obrigado!
    RneoX
    RneoX
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 26/07/2011

    [Resolvido]Formulário Login Empty Re: [Resolvido]Formulário Login

    Mensagem  RneoX 28/11/2012, 10:55

    não entendi direito, mas vamos lá!

    Você quer fazer um formulário onde usuários novos possa alterar sua senha e administradores possam alterar de quaisquer um?

    por que não faz um formulário de criar um login e assim o usuário já coloque a senha dele, e você administrador faça um formulário que carrega os usuários e senhas para que possa alterar quando quiser?

    tem um exemplo maravilhoso de Login e Senha com exatamente isso que precisa, procure por Projeto 2013 (Casco do Máximo Access) está em Repositório de MsAccess ou clicando aqui: Projeto 2013


    .................................................................................
    Conhece meus projetos que ajudam os usuários a entender o funcionamento de várias funções encontradas aqui no fórum? também pode usa-lo para seus negócios ou para uso pessoal, não conhece? então visite aqui e veja como está bacana: Projeto Casco do Máximo Access v3.0 (Pré-Release 4.0) 
    Ser livre é ter liberdade para expressar suas idéias,
    Ser diferente é ser especial e o reverso da igualdade,
    Ser criativo é ser poderoso,
    Ter conhecimentos e não dividir-los é ser egoísta e orgulhoso,
    Ensinar é um prazer que todos devem ter por seus alunos, pois é dele que vem nossos troféus.
    avatar
    fb14
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5
    Registrado : 17/10/2012

    [Resolvido]Formulário Login Empty Re: [Resolvido]Formulário Login

    Mensagem  fb14 28/11/2012, 11:14

    Desde já quero agradecer toda a ajuda Smile
    Esse post é bem bacano! Vou dar uma olhada e tirar umas ideias Smile
    RneoX
    RneoX
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 26/07/2011

    [Resolvido]Formulário Login Empty Re: [Resolvido]Formulário Login

    Mensagem  RneoX 28/11/2012, 11:41

    Que isso qualquer dúvida pode pergunta que tem muitas pessoas boas e com conhecimentos vastos de ACCESS que pode te ajudar como me ajudaram também!

    se está resolvido, por favor clique no botão edit do primeiro post e lá em baixo tem um botão escrito resolvido!
    e Seja Bem Vindo!


    .................................................................................
    Conhece meus projetos que ajudam os usuários a entender o funcionamento de várias funções encontradas aqui no fórum? também pode usa-lo para seus negócios ou para uso pessoal, não conhece? então visite aqui e veja como está bacana: Projeto Casco do Máximo Access v3.0 (Pré-Release 4.0) 
    Ser livre é ter liberdade para expressar suas idéias,
    Ser diferente é ser especial e o reverso da igualdade,
    Ser criativo é ser poderoso,
    Ter conhecimentos e não dividir-los é ser egoísta e orgulhoso,
    Ensinar é um prazer que todos devem ter por seus alunos, pois é dele que vem nossos troféus.

    Conteúdo patrocinado


    [Resolvido]Formulário Login Empty Re: [Resolvido]Formulário Login

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 16:59