MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Código com erro na verificação IF

    Compartilhe

    Convidado
    Convidado

    [Resolvido]Código com erro na verificação IF

    Mensagem  Convidado em 19/2/2018, 23:42

    boas
    tenho o seguinte código que funciona... sendo que tem um senão . . .

    Código:
    Private Sub DadosPessoais_Click()
        If Me.txtSenha = "1234" Then
        DoCmd.OpenForm "frmClientesDadosPessoais"
        txtSenha.SetFocus
        txtSenha = Null
        Else
        MsgBox "Senha de acesso... Não corresponde !"
        txtSenha.SetFocus
        txtSenha = Null
        End If
        
        stDocName = "frmClientesDadosPessoais"
        If IsNull(Me.ID) = False Then
        stLinkCriteria = "[ID]=" & Me![ID]
        Else
        stLinkCriteria = "[ID]=0"
        End If
        DoCmd.OpenForm stDocName, , , stLinkCriteria
       End Sub

    O problema esta que após dar o Ok abre na mesma o form Dados Pessoais não respeitando uma vez que a senha não corresponde !
    Obrigado
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  FabioPaes em 20/2/2018, 00:07

    As linhas sao lida na Ordem...

    Essa ultima linha será lida independente de condição, pois ela está fora dos Ifs.

    DoCmd.OpenForm stDocName, , , stLinkCriteria
    End Sub

    É ela que abre o Formulario...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Convidado
    Convidado

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  Convidado em 20/2/2018, 10:58

    Olá Fábio
    Retirando essa linha ou mesmo colocando acima, não abre realmente o form, mas, ao colocar a senha de acesso não mantém o foco no Cliente aberto anteriormente !
    Obrigado
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  Silvio em 20/2/2018, 11:22

    Bom dia para todos...

    Se as linhas são lidas na ordem, então...

    stDocName = "frmClientesDadosPessoais"
    If IsNull(Me.ID) = False Then
    stLinkCriteria = "[ID]=" & Me![ID]
    Else
    stLinkCriteria = "[ID]=0"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Convidado
    Convidado

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  Convidado em 20/2/2018, 11:31

    Olá Sílvio, antes de mais agradecer lhe ! No entanto ao colocar como disse funciona, não abre o form sem a senha, no entanto não abre o form dados Pessoais no Cliente aberto anteriormente, ou seja, não mantém o foco no cliente seleccionado.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4153
    Registrado : 20/04/2011

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  Silvio em 20/2/2018, 11:44

    Poste as partes envolvidas para uma melhor analise do mesmo.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  FabioPaes em 20/2/2018, 15:31

    E nos conte o que pretende...

    Tipo: Ao clicar no botão xxx quero que peça a senha, se a senha tiver errada abra isso, se tiver certa, abra aquilo...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Convidado
    Convidado

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  Convidado em 20/2/2018, 15:44

    ok... amigão !
    Cá vai . . .

    E nos conte o que pretende...
    Tipo: Ao clicar no botão xxx quero que peça a senha, se a senha tiver errada abra isso, se tiver certa, abra aquilo...


    tenho um form frmClientes, dentro deste um botão (Dados Pessoais)... e um campoa (txtSenha) ao clicar no botão, se a senha foi coincidir, ou se não tiver colocado a senha o form não abre.
    Se estiver tudo bem... aí abre o form frmDadosPessoais no Cliente aberto anteriormente. Imagine se :
    Estavamos com o Cliente 1 Fábio Paes, iria abrir os Dados Pessoais deste Cliente.
    Inclusive tentei assim :
    Código:
    Private Sub DadosPessoais_Click()
        If Me.txtSenha = "Saude" Then
        DoCmd.OpenForm "frmClientesDadosPessoais"
        txtSenha.SetFocus
        txtSenha = Null
        Else
        MsgBox "Senha de acesso... Não corresponde !"
        txtSenha.SetFocus
        txtSenha = Null
        End If
        DoCmd.CancelEvent
        stDocName = "frmClientesDadosPessoais"
        If IsNull(Me.ID) = False Then
        stLinkCriteria = "[ID]=" & Me![ID]
        Else
        stLinkCriteria = "[ID]=0"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
        End If
      End Sub
    Colocando o DoCmd.CancelEvent
    Desta form que esta faz tudo menos manter o foco do cliente aberto. Seria isto... Obrigado
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  FabioPaes em 20/2/2018, 15:53


    If IsNull(Me.txtSenha) or Me.txtSenha = "" Then
    msgbox "Senha nao preenchida"
    exit Sub
    End if

    If Me.txtSenha = "Saude" Then
       DoCmd.OpenForm "frmClientesDadosPessoais", , , "ID = " & Me.IDCliente & ""
    Else
       MsgBox "Senha de acesso... Não corresponde !"
       exit sub
    End If


    Tente dessa forma... Bem simples...

    o Exit Sub interrompe a leitura do Código. ou seja, para nele e não faz mais nada!

    Teste assim e depois incremente o que precisar...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Convidado
    Convidado

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  Convidado em 20/2/2018, 16:04

    Ups... Grande Fábio obrigado amigo... tudo certo.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: [Resolvido]Código com erro na verificação IF

    Mensagem  FabioPaes em 20/2/2018, 16:09

    Baca amigo, grato pelo retorno e até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 16/12/2018, 17:56