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

1. VBA / Excel / Access / Word
2. Access
3. Table Column Field

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
        rst.MoveNext
    Loop

ExitMe:
    rst.Close
    Set rst = Nothing
    cnn.Close
End Function

 

Related examples in the same category