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]Código com erro na verificação IF

    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 20/2/2018, 16:04

    Ups... Grande Fábio obrigado amigo... tudo certo.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 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!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:00