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


3 participantes

    [Resolvido]ao sair limpa tudo

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

    [Resolvido]ao sair limpa tudo Empty [Resolvido]ao sair limpa tudo

    Mensagem  Convidado 30/5/2014, 10:10

    boas

    tenho um form que tem um botão - Sair com o seguinte código :
    DoCmd.Close
    DoCmd.OpenForm "FRMLOGIN"
    o que pretendia era que este ao chamar o form : FRMLOGIN limpa-se os dados que este mantem, ou seja, a aplicação arranca com este form FRMLOGIN e abre outro form, mas ao voltar a tras estão lá os dados de acesso, tipo :
    Utilizador: Marco
    Senha: ****
    se clicar no enter volta a entrar com este utilizador, coisa que não pretendo... por isso solicitar ajuda do pessoal para limpar os dados de acesso para que outro utilizador seja obrigado a colocar os seus.
    Obrigado
    • Ir para o topo
    rdrck
    rdrck
    rdrck
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1011
    Registrado : 11/03/2014
    • Mensagem nº2

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  rdrck 30/5/2014, 12:51

    Olá Marco,
    Se bem entendi, no FRMLOGIN, você preenche o login, preenche a senha e clica num botão para fazer o login, certo?
    Então abre outro form, porém o FRMLOGIN permanece com o login e senha digitados, certo?
    Pode tentar o seguinte, no click desse botão de efetuar o login:
    Além do código que já exista no botão para efetuar o login, coloque em baixo:

    Me.NomeCampoLogin.Undo
    Me.NomeCampoSenha.Undo


    .................................................................................
    Meu Programa / OS:
    Access 2010 - Windows 10.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  Convidado 30/5/2014, 13:52

    boas
    Antes demais muito obrigado pela sua resposta no sentido de me ajudar . . .
    Coloquei o que me falou... mas sem exito !
    Deixo bd para analise dos mestres . . .

    https://www.dropbox.com/s/1vuqdrtpxx0gdji/GesREG.rar
    • Ir para o topo
    Fernando Bueno
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012
    • Mensagem nº4

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  Fernando Bueno 30/5/2014, 13:59

    Bom dia amigos,

    Teste dessa forma amigo.

    DoCmd.OpenForm stDocName
    Me.txtUser = ""
    Me.txtSenha = ""


    .................................................................................
    Um abraço
    Fernando Bueno

    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]ao sair limpa tudo 16rzeq
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº5

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  Convidado 30/5/2014, 14:42

    ok...
    ... e coloco este codigo onde ? . . .
    • Ir para o topo
    clynton
    clynton
    clynton
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 309
    Registrado : 08/07/2013
    • Mensagem nº6

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  clynton 30/5/2014, 18:57

    Com a permissão dos amigos, coloque no final do Código do botão o seguinte comando: DoCmd.Close acForm, "FRMLOGIN"
    Ao final do Código que fecha a outra tela, coloque: DoCmd.OpenForm "FRMLOGIN", acNormal


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."
    • Ir para o topo
    Fernando Bueno
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012
    • Mensagem nº7

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  Fernando Bueno 30/5/2014, 20:31

    Ai esta o bd corrigido colega.

    No botão de Login.

    Private Sub cmdEntrar_Click()
    Dim Identificacao As Integer

    If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
    Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
    Select Case Identificacao
    Case 1
    stDocName = "FrontOffice"
    Case 2
    stDocName = "BackOffice"
    Case 3
    stDocName = "MENU"
    Case 4
    stDocName = "..."
    Case 5
    stDocName = "MENU"
    Case 6
    stDocName = "..."
    Case 7
    stDocName = "..."
    Case 8
    stDocName = "..."
    Case 9
    stDocName = "..."
    End Select
    DoCmd.OpenForm stDocName
    Me.txtUser = ""
    Me.txtSenha = ""
    Else
    MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
    Me.txtSenha.Value = ""
    Exit Sub
    End If

    End Sub


    .................................................................................
    Um abraço
    Fernando Bueno

    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]ao sair limpa tudo 16rzeq
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº8

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  Convidado 2/6/2014, 10:15

    Fantastico ! Obrigado. Obrigado mesmo.
    • Ir para o topo
    Fernando Bueno
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012
    • Mensagem nº9

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  Fernando Bueno 2/6/2014, 14:35

    Por nada, agradecemos o retorno!


    .................................................................................
    Um abraço
    Fernando Bueno

    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]ao sair limpa tudo 16rzeq
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº10

    [Resolvido]ao sair limpa tudo Empty Re: [Resolvido]ao sair limpa tudo

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 28/4/2024, 23:41