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.