Sometimes, you may need to perform conditional logic based on whether a field does or does not exist in a recordset. To check for the existence of a field, simply loop through the ADODB.Recordset Fields collection, looking for the specified field name:
Private Function FieldExistsInRS( _ ByRef rs As adodb.Recordset, _ ByVal fieldName As String) Dim fld As adodb.Field fieldName = UCase(fieldName) For Each fld In rs.Fields If UCase(fld.Name) = fieldName Then FieldExistsInRS = True Exit Function End If Next FieldExistsInRS = FalseEnd Function
Usage:…If FieldExistsInRS(MyRecordset, “FieldName”) Then ‘ Do something if field existsElse ‘ Do something else if field doesn’t existEnd if