"Each field is called: LIC1, LIC2, through LIC12. Since the table is a linked table, I cannot change the properties on the table. I have been trying to count up how many of these LIC fields are not blank"
There are two ways to do this:
Function CountStates() As Long Dim x As Long, n As Long, s As String With Me For x = 1 to 12 s="LIC" & LTrim(x) If Len(.Controls(s)) > 0 Then n = n + 1 EndIf Next x End With CountStates = n End Function
The other way: Make a query like this:
-1*(Len([LIC1])>0)-1*(Len([LIC2])>0) ... -1*(Len([LIC12])>0)
how this works: