Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub Form_Current()
Dim i       As Integer
Dim iCount  As Long
 For i = 1 To 7
    If Nz(Me("veld" & i).Value) = 10 Then
        iCount = iCount + 1
    End If
 Next i
 Me.Tekst14.Value = iCount
 
End Sub
	We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.