Checking for Existence of a Field : Table Column Field « Access « VBA / Excel / Access / Word

Checking for Existence of a Field

Function ColumnExists(WhichColumn, WhichTable)
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim WSOrig As Worksheet
    Dim WSTemp As Worksheet
    Dim fld As ADODB.Field
    ColumnExists = False

    MyConn = MyConn & "\mydb.mdb"
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open MyConn
    End With
    Set rst = cnn.OpenSchema(adSchemaColumns)
    Do Until rst.EOF
        If LCase(rst!Column_Name) = LCase(WhichColumn) And _
           LCase(rst!Table_Name) = LCase(WhichTable) Then
            ColumnExists = True
            GoTo ExitMe
        End If

    Set rst = Nothing
End Function


Related examples in the same category

1.Append new columns to new table
2.Delete a column
3.Adding a New Field to a Table
4.Removing a Field from a Table
5.Set column properties by using ADOX.Table
6.Listing Field Properties
7.Get field properties
8.Listing Tables and Their Fields Using the OpenSchema Method
9.Adding a New Money type Field to an Existing Table
10.Adding a Field with SQL command
11.Changing the Field Data Type with SQL command
12.Changing the Size of a Field with SQL command
13.Deleting a Field from a Table with SQL command
14.Setting a Default Value for a Field with SQL command
15.Changing the Start (Seed) Value of the AutoNumber Field with SQL command
16.Read record in recordset by referening the field name with '!'
17.Open a table and read data by column
18.Show field name, type and value data type
19.Read specific columns from Recordset