Hi
I haven't worked out how to use a query to get the required result, but I can offer you the following function that returns the number of records that have 2 fields marked as Yes/True.
Code:
Public Function fnNumOf2Yeses() As Long
On Error GoTo Err_fnNumOf2Yeses_Error
Dim db As Database
Dim rec As Recordset
Dim fld As Field
Dim i As Integer
Set db = CurrentDb
Set rec = db.OpenRecordset("YourYesNoTable")
With rec
Do Until .EOF
i = 0
For Each fld In .Fields
If fld.Value = True Then
i = i + 1
End If
Next
If i = 2 Then
fnNumOf2Yeses = fnNumOf2Yeses + 1
End If
.MoveNext
Loop
End With
'MsgBox fnNumOf2Yeses
Exit_ErrorHandler:
rec.Close
Set rec = Nothing
Set db = Nothing
Exit Function
Err_fnNumOf2Yeses_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") "
Resume Exit_ErrorHandler
End Function