Boa tarde, pessoal.
Será que poderiam me ajudar?
Para desenvolver o código abaixo, eu me baseei em dois códigos SELECT CASE sugeridos como solução pelo Alexandre, um dos quais em https://www.maximoaccess.com/t17183-resolvidousar-select-case-para-buscar-informacao-em-uma-tabela.
Entretanto, às vezes o código roda direitinho, outras vezes não. Percebo que ele dá problema quando eu abro antes o subformulário no qual essas alterações serão realizadas. Talvez precise de alguma linha no código que atualize os registros.
Será que poderiam me ajudar?
Para desenvolver o código abaixo, eu me baseei em dois códigos SELECT CASE sugeridos como solução pelo Alexandre, um dos quais em https://www.maximoaccess.com/t17183-resolvidousar-select-case-para-buscar-informacao-em-uma-tabela.
Entretanto, às vezes o código roda direitinho, outras vezes não. Percebo que ele dá problema quando eu abro antes o subformulário no qual essas alterações serão realizadas. Talvez precise de alguma linha no código que atualize os registros.
- Código:
Select Case Financeiro
Case Is = 1
Select Case (nCap)
Case 211
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Select Case (nCap)
Case 221
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Case Is = 2
Select Case (nCap)
Case 211
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Select Case (nCap)
Case 221
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Case Is = 3
Select Case (nCap)
Case 211
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Select Case (nCap)
Case 221
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Case Is = 4
Select Case (nCap)
Case 211
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Select Case (nCap)
Case 221
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Case Is = 5
Select Case (nCap)
Case 211
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Select Case (nCap)
Case 221
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
End Select
Case Else
Select Case (nCap)
Case 111
Me.ValorDaParcelaRecebida.Value = 0
Case 112
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
Case 121
Me.ValorDaParcelaRecebida.Value = 0
Case 122
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
Case 212
Me.ValorDaParcelaRecebida.Value = Me.ValorDaParcela.Value
Case 222
Me.SaídasReais.Value = Me.ValorDaParcela.Value * -1
End Select
End Select