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]Saldo igual . . .

    Compartilhe

    Convidado
    Convidado

    [Resolvido]Saldo igual . . .

    Mensagem  Convidado em Sab 10 Fev 2018, 09:41

    boas
    Amigos preciso de fazer o seguinte, só não estou a conseguir elaborar o código. Cá vai a minha dúvida.
    Tenho um campo desacoplado (Valor_de_Cx), onde coloco o valor de Cx, após, e se este é igual a soma dos valores de Cx aparece um visto(Imagem) a confirmar, que antes esta :
     Me.Confere.Visible = False
    Obrigado.
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 11/11/2009

    Re: [Resolvido]Saldo igual . . .

    Mensagem  scandinavo em Sab 10 Fev 2018, 11:03

    No evento depois de atualizar do seu campo

    If me.seucampo desacoplado = me.seuoutrocampo then
    Me.confere.visible= true
    Else
    End if

    frankhosaka
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 22/12/2017

    Re: [Resolvido]Saldo igual . . .

    Mensagem  frankhosaka em Sab 10 Fev 2018, 12:42

    Geralmente, o valor do caixa nunca é igual ao orçamento, pode ser menor, igual, maior ou zero.

    O algorítimo seria assim:

    Sub Valor_de_Cx_AfterUpdate ( )

    Me.Confere.Visible = false

    Dim Total as Currency
    Dim Caixa as Currency
    Dim Diferenca as Currency
    Total = Me.TotalOrcamento
    Caixa = Me.Valor_de_Cx
    Diferenca = Caixa - Total

    If Me.Valor_de_Cx = 0 Then
    Me.Valor_de_Cx = ""
    End Sub
    End If

    Select Case Diferenca

    Case Is > 0
    MsgBox "Tem troco de " & Diferenca
    Case Is < 0
    MsgBox "Falta " & Diferenca
    Me.Valor_de_Cx = ""
    End Sub

    End Select

    Me.Confere.Visible = True

    End Sub
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 11/11/2009

    Re: [Resolvido]Saldo igual . . .

    Mensagem  scandinavo em Sab 10 Fev 2018, 14:06

    Você teve acesso ao bd.
    Uma boa resposta depende de uma boa pergunta

    frankhosaka
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 22/12/2017

    Re: [Resolvido]Saldo igual . . .

    Mensagem  frankhosaka em Sab 10 Fev 2018, 14:10

    Não tive acesso ao BD. Apenas estou conjecturando para ver se consigo mais informação.

    Convidado
    Convidado

    Re: [Resolvido]Saldo igual . . .

    Mensagem  Convidado em Sab 10 Fev 2018, 14:43

    boas
    Amigos obrigado pela ajuda... Segui o raciocínio Scandinavo, pois a ideia é Cx de conferencia contabilística.
    Obrigado aos 2... um abraço

      Data/hora atual: Qua 25 Abr 2018, 04:05