Use a Dcount it's a Dlookup but You just replace the Dlookup with Dcount
this one should work for you as long as your just looking at one letter just set it to look at your table or query dcount("[Field_Name]", "Table/Query_Name", "[Critiria]")
'@ A Function with No Criteria @
1.) =DLookUp("[LastName]", "Employees")
-----------------------------------------------------------------------------------------------------
'@ Specifying Numeric Criteria @
1.) =DLookUp("[LastName]", "Employees", "[EmployeeID] = 7")
-----------------------------------------------------------------------------------------------------
'@ Specifying Numeric Criteria That Comes from a Field on a Form @
1.) =DLookUp("[LastName]", "Employees",
"[EmployeeID] = " & Forms![Orders]![EmployeeID])
2.) =DLookUp("[LastName]", "Employees",
"[EmployeeID] = Forms![Orders]![EmployeeID]")
----------------------------------------------------------------------------------------------------
'@ Specifying Textual Criteria @
1.) =DLookUp("[Title]", "Employees", "[LastName] = 'Callahan'")
2.) =DLookUp("[Title]", "Employees", "[LastName] = ""Callahan""")
-----------------------------------------------------------------------------------------------------
'@ Specifying Textual Criteria That Comes from a Field on a Form @
1.) =DLookup("[ContactName]", "[Customers]",
"[CustomerID]='" & Forms![Orders]![CustomerID] & "'")
-----------------------------------------------------------------------------------------------------
'@ Specifying Date Criteria @
1.) =DLookUp("[LastName]", "Employees", "[BirthDate] = #01-27-66#")
-----------------------------------------------------------------------------------------------------
'@ Specifying Multiple Fields in the Criteria @
1.) =DLookUp("[OrderID]", "Orders",
"[CustomerID] = 'SIMOB' And [EmployeeID] = 2")
2.) Result = DLookup("[OrderID]", "Orders",
"[CustomerID] = '" & CustID & "' And [EmployeeID] = " & EmpID)
-----------------------------------------------------------------------------------------------------