[Resolvido]Validar a quantidade em um subformulário continuo

Boa tarde Pessoal,

Estou com um problema que gostaria de seu auxílio para resolver. É o seguinte:

Eu tenho uma tabela que registro o nº de vezes que um determinado produto foi enviado para ser filtrado e exibo sua somatória na tela do form principal:



Observe na imagem acima que a OP 1535 possui apenas 1 valor com [status = 5], o valor é de 739,00 na tela do form principal abaixo, estou exibindo a informação de quanto ele suporta enviar, nesse caso 2.239,00.




Preciso de ajuda no seguintes:

1. Depois que o usuário digitar a quantidade no campo [volume] preciso calcular e retornar pra ele se ele está tentando enviar uma quantidade superior ao que está informado no 2239,00, No exemplo acima, o Equipamento suporta 2239,00 e existe apenas uma linha apontando o valor já lançado de 739,00, se ele tentar registrar a segunda linha no valor acima dos 1500,00 (saldo residual), o sistema não deve deixar ele prosseguir e deverá alertar para fazer a correção no lançamento.

Conto mais uma vez com vcs

Envía as partes envolvidas

Saludos

Bom dia,

Segue o link abaixo para download do banco.

Download SIG.Zip

Ola boa tarde
tinhas quase tudo feito, é so inserir no campo volume este codigo

Código:


Private Sub volume_AfterUpdate()
    If Me.volume.Value > Me.txtResidual.Value Then
        MsgBox "Atenção o valor inserido não pode ser maior que " & txtResidual & "", vbInformation, "OPs!"
        Me.Undo
        Me.data_i.SetFocus
    End If
    
  '  Me.Recalc
End Sub


Junto ja com o codigo alterado
Apaguei conteudo algumas tabelas para poder caber aqui
Abraço

Ok, amigo funcionou em partes, porém, agora o que acontece com o que foi inserido..

Se eu informar um volume menor ele deixa salvar, até ai ok, Mas se eu volto no volume e redigito um valor corrigido ele dá erro, pois o saldo residual calculado está ficando menor.

Como teste eu fiz assim:
1. Selecionei a OP n. 1420
2. Informei 1 no Registro do dia 10/08/2020 as 22:00
3. Depois informei o valor de 587 que é o correto
4. Repare o erro que ocorreu.

Ola Kellyton Armelin boa noite



Como teste eu fiz assim:
1. Selecionei a OP n. 1420
2. Informei 1 no Registro do dia 10/08/2020 as 22:00
3. Depois informei o valor de 587 que é o correto.
4. Repare o erro que ocorreu.



                    1. Ao Selecionar a OP n. 1420 da um valor diferente do teu 5 337,00
                    3. Depois informei o valor de 5337 que é o correto.
                    4. Não me deu erro nenhum



A mim deu tudo certinho como ves nas imagens

PS: Para mim tens muitos valores nas tabelas apaga os mesmos e começa a lançar de novo
Abraço

Bom dia,

Para ilustrar melhor, faz assim:

1. Selecione o n. 1420 no filtro inicial




2. Na guia [Filtração], deixe os lançamentos conforme ilustrado abaixo, observe que o lançamento do dia 10/08 as 22:00 está com 0,00;




3. Altere a quantidade para 1,00 na primeira linha conforme imagem abaixo, isso simula que vc colocou um valor abaixo do inicial que era de 587.




4. Agora, informe o valor corrigido de 587 conforme abaixo:




Veja que aponta os 586,00 mas deveria deixar colocar os 587,00 pois a soma de todos os volumes lançados é igual ou menor que o valor informado no TFM de 5337,00

Ola Kellyton Armelin boa noite

Então é isso  

1- Inseri um campo desvinculado chamado      VolumeAntigo

2- No campo txtResidual alterei o valor para  =([txtVolTFM]-[txtVolTotal])+Nz([VolumeAntigo];0)

3- O campo volume ficou com este codigo

Código:


Private Sub volume_GotFocus()
    Me.VolumeAntigo = Me.volume
End Sub

Private Sub volume_AfterUpdate()
    If Me.volume.Value > Me.txtResidual.Value Then
        MsgBox "Atenção o valor inserido não pode ser maior que " & txtResidual & "", vbInformation, "OPs!"
        Me.Undo
    End If

End Sub


Deu certo amigo, muito obrigado