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
    avatar
    Marco Sousa
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 999
    Registrado : 06/01/2011

    [Resolvido]Saldo igual . . .

    Mensagem  Marco Sousa 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.


    .................................................................................
    --
    Marco Sousa
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 427
    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 : 10
    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 : 427
    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 : 10
    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.
    avatar
    Marco Sousa
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 999
    Registrado : 06/01/2011

    Re: [Resolvido]Saldo igual . . .

    Mensagem  Marco Sousa 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


    .................................................................................
    --
    Marco Sousa

      Data/hora atual: Sab 24 Fev 2018, 00:23