Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
=Abs(Sum([Your Field Name Here]="YES"))
[blue]Public Function YesCnt() As Long
Dim ctl As Control, cnt As Long
For Each ctl In Me.Controls
If ctl.Tag = "?" And Nz(ctl, "") = "Yes" Then
cnt = cnt + 1
End If
End If
YesCnt = cnt
End Function[/blue]
= YesCnt()