Vba code Som (Sum) na if

[RonaldRoenhorst]

Is het mogelijk om na het selecteren van een aantal voorwaarden in een groepsvak een Som te maken?

Ronald

 

[OctaFish]

Ik denk het wel; je kunt, zoals je waarschijnlijk weet, tot 7 IIF's in lijn combineren, waarbij je in de Waar variant kan gebruiken wat je wilt, dus ook een SUM.
Je wilt een SUM berekening pas laten uitvoeren als een aantal voorwaarden Waar is, zie ik dat zo goed?

 

[RonaldRoenhorst]

Hallo Michel,
Ja ik denk dat je het goed ziet, de bedoelling is dat wanneer ik een aantal checkboxen heb aangevink er hiervoor een som gemaakt word op basis van de aangevinkte chekboxen.

Nu kan ik nog niet in documentatie vinden hoe een som (sum) regel eruit zou moeten zien.
Is dit dynamisch mogelijk, zoiets wanneer ik een checkbox aanklik er direct requery uitgevoerd word?
Alvast bedankt wederom,
Ronald

 

[Tardis]

Op zich prima mogelijk.
Vraagt wel dat je met VBA aan de slag gaat.

Grtz,

Tardis

 

[RonaldRoenhorst]

Ik ben er ook al mee aan het stoeien maar kom er echt niet uit!!:shocked:

Private Sub Tekst97_GotFocus()
If (Selectievakje94) = True , Sum (ItemA, ItemB])Null)

End Sub

 

[OctaFish]

Ik zou de berekening zetten op het AfterUpdate van de checkbox.

Private Sub Selectievakje94_AfterUpdate()
If (Selectievakje94) = True Then
me.Tekst97.Value=(me.ItemA.Value +me. ItemB.Value)
Else
me.Tekst97.Value=Null
End if

End Sub

 

[RonaldRoenhorst]

Klasse en bedankt Michel :thumb: