Do fields exist (1 Viewer)

[jl39775]

Is there a way to check if certain fields exist in a table. I want to add three fields if they don't exist after I import the table from an excel spreadsheet.

Thanks in advance,

James

 

[jl39775]

Ok I solved my problem. If anyone wants to know how I got the field names from a table look below.

Thanks,

James

Dim MYdb As ADODB.Connection
Dim MYrs As New ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String

Set MYdb = CurrentProject.Connection

sql = "select * from adSubcontractAccruals200208"

MYrs.Open sql, MYdb

For Each fld In MYrs.Fields
MsgBox fld.Name
Next