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

    Erro no Formulário Recebimento

    jparpinfo
    jparpinfo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 27/06/2014

    Erro no Formulário Recebimento Empty Erro no Formulário Recebimento

    Mensagem  jparpinfo 15/7/2024, 00:55

    Estou com problemas no formulário recebimento conforme a figura abaixo:
    Erro no Formulário Recebimento Erro10

    campo troco esta assim
    =[txtDinheiro]-[txtPix]-[txtCredito]-[txtDebito]-[txtOutros]-[txtTLiquido]
    quando o valor pago é o mesmo que o valor da compra o campo troco fica 0 e gera esse erro acima.
    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 22/04/2016

    Erro no Formulário Recebimento Empty Re: Erro no Formulário Recebimento

    Mensagem  dori 16/7/2024, 18:02

    Tenta dessa forma no evento após atualizar do campo dinheiro.


    If Me.txtDinheiro < Me.txtTotal Then
    MsgBox "Valor pago menor que o valor total ", vbCritical, "Atenção"
    Me.txtPix.SetFocus
    Me.txtDinheiro.SetFocus
    Me.txtDinheiro = ""
    Exit Sub
    Else
    Me.txtTroco = (Me.txtDinheiro + Me.txtPix + Me.txtDebito + Me.txtCredito) - (Me.txtTotal)
    End If

      Data/hora atual: 8/12/2024, 00:33