Check if field exists in table 1

[jammerdk]

Hi Guys

I'm trying to figure out how to check if a given fieldname in user created table actually exists, and if doesn't hide the column in the table.

 

[PHV]

In a standard code module create the following function:

Function FieldExists(strTableName As String, strFieldName As String) As Boolean
On Error Resume Next
FieldExists = (CurrentDb.TableDefs(strTableName).Fields(strFieldName).Name = strFieldName)
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Remou]

You can use ADOSchemas:

Function TableContainsField(SelectTableName, SelectFieldName) As String
'Works with linked tables
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim strTempList As String

    Set cn = CurrentProject.Connection

    Set rs = cn.OpenSchema(adSchemaColumns, _
    Array(Empty, Empty, SelectTableName, SelectFieldName))

    If Not rs.EOF Then
         TableContainsField = "Yes"
    Else
         TableContainsField = "No"
    End If
End Function

http://lessthandot.com

 

[PHV]

'Works with linked tables
Mine too ...