how do you check to see if field exists?

[niftysam]

I know this must be very easy I just can't find it. Isdefined, isNull I thought might work but didn't. Does anyone have any idea how I can check to see if this table exists before I alter the table? Thanks so much!

Sam

    If (orsCompany("Pricing")) Then
        orsPricingField.Open "ALTER table [" & [Forms]![frmUpdatePricing]![Combo2] & "] add column [Pricing] STRING(30) " ' adding pricing field
    End If

 

[ghudson]

Searching the forum you would have found something like this...

Sub TestTable()
    
    If TableExists("table1") = True Then
        MsgBox "table exists"
    Else
        MsgBox "table does not exist"
    End If
    
End Sub

Public Function TableExists(sTable As String) As Boolean
    
    Dim db As Database
    Dim tbl As TableDef
    Set db = CurrentDb()
    
    TableExists = False
    
    For Each tbl In db.TableDefs
        If tbl.NAME = sTable Then TableExists = True
    Next tbl
    
End Function

 

[niftysam]

Thanks! It worked great.

 

[ghudson]

Your welome!

Another satisfied customer.