Problemen met berekenen van...?

[Dummy1912]

Hallo,

iemand die me kan helpen aub
ik heb er een bijlage bijgedaan om het beter te begrijpen

zoals je kunt zien staat er -40,00 €
maar deze zou dan rood moeten zijn
en dat gebeurt niet

en als ik bv nu 30,00 € zou staan hebben moet deze groen zijn.

iemand aub.

Dim Amount as Double

If RsHouse.Fields!groep.Value = "ontvangen" Then
                    Amount += cDAL.VarToDbl(RsHouse.Fields!bedrag.Value())
                    Me.Label10.Text = Format(Amount, fmtString0)
                ElseIf RsHouse.Fields!groep.Value = "uitgave" Then
                    Amount -= cDAL.VarToDbl(RsHouse.Fields!bedrag.Value())
                    Me.Label10.Text = Format(Amount, fmtString0)
                Else
                    Amount += cDAL.VarToDbl(RsHouse.Fields!bedrag.Value())

                End If
                              If Amount > Val(RsHouse.Fields!bedrag.Value) Then
                                       Label10.ForeColor = Color.Red
                Else
                                       Label10.ForeColor = Color.Green
                End If

                RsHouse.MoveNext()

bedankt

Dummy1912

 

[Tannasg]

Ik volg je code niet Ik snap wel wat ie moet doen, maar wat is bv. RsHouse.Fields!bedrag.Value in de regel If Amount > Val(RsHouse.Fields!bedrag.Value) Then?

 

[Dummy1912]

o sorry Tannasg

maar deze is al opgelost

ik heb gewoon

 If Amount < 0 Then

en dat was het ok

je kan het programma testen als je wilt
heb het hier al geplaats om te zien of het perfect werkt.

Maar toch nogmaals bedankt Tannasg
ik zal je naam er bij zetten in de volgende aanpassing

Dummy1912