A function that determines whether a field is in a table

' Determine if a field is in the table
Function Blnfield (Stblname As String, Sfldname as String) as Boolean

' Stblname source table name
' Name of the field to find

Dim FLD as Field
Dim rs as DAO. Recordset

Blnfield = False
Set rs = currentdb.openrecordset (stblname)
Rs. Fields.refresh
For each fld in Rs. Fields
If fld. Name = Sfldname Then
Blnfield = True
Exit for
End If
Next
Rs. Close
Set rs = Nothing
Set fld = Nothing
End Function

Private Sub Command 0_click ()
' Returns true with this field, false without
MsgBox Blnfield ("Tbl1", "ID")
End Sub