MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]regra de validação nao funciona

    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]regra de validação nao funciona Empty [Resolvido]regra de validação nao funciona

    Mensagem  Ney Santos em 25/3/2020, 16:16

    Boa tarde a todos!
    Estou quebrando  com um determinado código que escrevi, pois uam das condiçoes imposta nao esta sendo
    obedecida pelo access, vou postar o código e na sequencia explico melhor:

    Private Sub BTBAIXAR_Click()
    If IsNull(Me!VlrPg) Then
    MsgBox "Você precisa informar o valor Pago", vbInformation, "Valor da Despesa"
    Me.VlrPg.SetFocus
    Exit Sub
    End If
    If Me!VLR > Me!VlrPg Then
    MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"
    Exit Sub
    End If

    Dim Escolha
    Dim DB As Database
    Dim RS As DAO.Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("DESPESAS")
    RS.Index = "IDDESP"
    RS.Seek "=", (Me!IDDESP)

    RS.Edit
    Escolha = MsgBox("Confirmao pagamento dessa conta?", vbYesNo, "Confirmação")
    If Escolha = 6 Then
    RS!STATUS = 1
    RS!VlrPago = Me!VlrPg
    Me.CBLISTA.Requery
    MsgBox "Conta baixada", vbInformation, "Confirmação"
    RS.Update
    Me.CBLISTA.Requery
    Else
    DoCmd.CancelEvent
    Me.Undo
    MsgBox "O pagamento nao foi efetivado!", vbinfomation, "Cancelado pelo Usuário"
    End If

    End Sub
    '------------------------------------------------------------------------------------------------------------------------------------
    O código em si funciona perfeitamente o prblema está na linha em negrito
    Trata-se de regra de validaçao onde ele compara o valor da Despesa e o valor que está sendo pago.
    No caso o valor pago não pode ser menor que o valor da despesa, pois seria incoerente.
    porém no caso de um atraso no pagamento se o valor tiver alguma multa ou correção,o pagamento a baixa ocorreria normalmente visto que isso seria normal ( Exemplo: pagamento de boleto em atraso).
    Oque está acontecendo é que se habilito esse código de validação nao importa se o valor é igual ou maior que o valor da conta em questão o sistema simplesmente me informa via msgbox que o valor informadoprecisa verficado exatamente como esá no código.
    e ai não executa o resto do processo.
    Isso só deveria ocorrer quando valor pago fosse menor que o valor a pagar .
    O campo VLR é o Valor da conta o Campo VlrPg é o valor pago.
    Onde estou errando?
    Alguem poderia me dar uma luz
    Obrigado!
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Finformática em 25/3/2020, 16:58

    Caro Ney Santos, Boa tarde.

    Posta aqui a parte do banco onde está ocorrendo o problema para visualizarmos melhor.

    Grande abraço.
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1009
    Registrado : 23/09/2011

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  cleverson_manaus em 25/3/2020, 17:09


    boa tarde,

    o ideal seria testar no bd, mas tenta dessa forma:

    Código:
    Private Sub BTBAIXAR_Click()

    Dim Escolha
    Dim DB As Database
    Dim RS As DAO.Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("DESPESAS")


    If IsNull(Me!VlrPg) Then

        MsgBox "Você precisa informar o valor a Pagar", vbInformation, "Valor a Pagar"
        Me.VlrPg.SetFocus
        Exit Sub

    End If


    If IsNull(Me!VLR) Then

        MsgBox "Você precisa informar o valor da Despesa", vbInformation, "Valor da Despesa"
        Me.VLR.SetFocus
        Exit Sub

    End If


    If Me!VLR > Me!VlrPg Then

        MsgBox "Verifique o valor do pagamento!", vbCritical, "Valor a Menor"
        Exit Sub

    End If

    Escolha = MsgBox("Confirmao pagamento dessa conta?", vbYesNo, "Confirmação")

    If Escolha = 6 Then

        RS.Index = "IDDESP"
        RS.Seek "=", (Me!IDDESP)
        RS!STATUS = 1
        RS!VlrPago = Me!VlrPg
        RS.Edit
        RS.Update
       
        Me.CBLISTA.Requery
        MsgBox "Conta baixada", vbInformation, "Confirmação"

        Exit Sub

    Else

        DoCmd.CancelEvent
        Me.Undo

        MsgBox "O pagamento nao foi efetivado!", vbinfomation, "Cancelado pelo Usuário"

        Exit Sub

    End If

    End Sub


    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Ney Santos em 25/3/2020, 17:27

    Vou testar , mas a pedidos segue parte do bd
    desde já agradeço a atenção.
    Para selecionar um laçamento de um duplo click na listagem de contas
    Anexos
    [Resolvido]regra de validação nao funciona AttachmentBanco de dados4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 5 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Silvio em 25/3/2020, 17:48

    Boas, só dando um pitaco !

    If Me!VLR > Me!VlrPg Then
    MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"
    Exit Sub
    End If


    if Me!VLR > Me!VlrPg Then
    Me!VLR.setfocus
    MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"
    Exit Sub

    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."
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Ney Santos em 25/3/2020, 17:54

    Prezado Silvio!
    Obrigadp pela atenção...
    realmente faltou esse detalhe mas não resolve, independente do valor digitado ,maior ou menor que o valor da conat o evento dispara e nao concretisa a baixa..

    Abraço.
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Ney Santos em 25/3/2020, 18:01

    Prezado Cleverson, testei seu código e tambem não funcionou, ou seja ele contnua nao respeitando a regra de validação.
    fiz algumas alteraçoes pois quando simplesmente comentei a parte que tratava do valor a meno estava dando erro ai reescrevi e o codigo funciononou porem desde que eu desabilite a parte onde verifica seo valor pago e menor ou amoir que o valor a pagar veja:


    If IsNull(Me!VLRPG) Then

    MsgBox "Você precisa informar o valor a Pagar", vbInformation, "Valor a Pagar"
    Me.VLRPG.SetFocus
    Exit Sub

    End If


    If IsNull(Me!VLR) Then

    MsgBox "Você precisa informar o valor da Despesa", vbInformation, "Valor da Despesa"
    Me.VLR.SetFocus
    Exit Sub

    End If
    Dim Escolha
    Dim DB As Database
    Dim RS As DAO.Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("DESPESAS")
    RS.Index = "IDDESP"
    RS.Seek "=", (Me!IDDESP)

    RS.Edit
    'If Me!VLR > Me!VLRPG Then

    ' MsgBox "Verifique o valor do pagamento!", vbCritical, "Valor a Menor"
    ' Exit Sub

    'End If

    Escolha = MsgBox("Confirmao pagamento dessa conta?", vbYesNo, "Confirmação")

    If Escolha = 6 Then


    RS!STATUS = 1
    RS!VlrPago = Me!VLRPG
    ' RS.Edit
    RS.Update
    Me.VLRPG = Null
    Me.CbLista.Requery
    MsgBox "Conta baixada", vbInformation, "Confirmação"

    Exit Sub

    Else

    DoCmd.CancelEvent
    Me.Undo

    MsgBox "O pagamento nao foi efetivado!", vbinfomation, "Cancelado pelo Usuário"

    Exit Sub

    End If


    Continuamos a tentar...
    Abraços
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Assis em 25/3/2020, 18:50

    Ney

    Altere esta parte e teste:

    If Me!VLR.Value > CDBl(Me!VlrPg) Then
    MsgBox " Verifique o valor digitado!", vbCritical, "Valor não Permitido"

    Exit Sub
    End If


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Silvio em 25/3/2020, 18:55

    If IsNull(Me!VLRPG) Or Me!VLRPG= "" Or IsNull (Me!VLR OR Me.VLR= "" Then

    MsgBox "Você precisa informar o valor a Pagar, preste atenção !!! ", vbInformation, "Valor a Pagar"
    Me.VLRPG.SetFocus
    Exit Sub

    Else


    Dim Escolha
    Dim DB As Database
    Dim RS As DAO.Recordset
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("DESPESAS")
    RS.Index = "IDDESP"
    RS.Seek "=", (Me!IDDESP)


    .................................................................................
    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."
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Ney Santos em 25/3/2020, 19:10

    Prezado Assis, funcionou perfeitamente.
    Essa comunidade é simplesmente maraviolhosa sempre disposta a nos ajudar.
    agora funcionou da maneira que eu esperava.
    muito obrigado a todos que se manifestaram para ajudar.
    Deixo o topico como resolvido,

    Att

    Ney Santos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Assis em 25/3/2020, 19:15

    Obrigado Ney

    Pelo retorno o forum agradece.


    .................................................................................
    *** Só sei que nada sei ***
    Ney Santos
    Ney Santos
    Avançado
    Avançado

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 262
    Registrado : 23/05/2011

    [Resolvido]regra de validação nao funciona Empty Re: [Resolvido]regra de validação nao funciona

    Mensagem  Ney Santos em 25/3/2020, 19:20

    só por curisidade oque srika esse Item CDBl?
    eel nao consta no meu projeto..
    Fiquei curioso tentando entender essa linha que vc alterou..

      Data/hora atual: 1/12/2020, 18:27