adding field in table using VBA data format - short date

[mazza]

I am adding a field to a table as DATE , but I don't know how to set the format programatically to Short date

any ideas -

using the following code
Dim DB As Database
Set DB = OpenDatabase("C:\Program files\Compair Service Management\SQSV2CUST.MDB")
DB.Execute "ALTER TABLE TblContractQuotes ADD COLUMN [sparedate] DATE;"
DB.Close

 

[chergh]

Try this:

SetPropertyDAO(dbEngine(0)(0).TableDefs("TblContractQuotes").Fields("sparedate"), "Format", dbText, "Short Date")

Function SetPropertyDAO(obj As Object, strPropertyName As String, _
intType As Integer, varValue As Variant, Optional strErrMsg As String) As Boolean

On Error GoTo ErrHandler

If HasProperty(obj, strPropertyName) Then

obj.Properties(strPropertyName) = varValue

Else

obj.Properties.Append obj.CreateProperty(strPropertyName, intType,varValue)

End If

SetPropertyDAO = True

ExitHandler:
Exit Function

ErrHandler:
strErrMsg = strErrMsg & obj.Name & "." & strPropertyName & " not set to " & _
varValue & ". Error " & Err.Number & " - " & Err.Description & vbCrLf

Resume ExitHandler

End Function

Public Function HasProperty(obj As Object, strPropName As String) As Boolean

Dim varDummy As Variant

On Error Resume Next
varDummy = obj.Properties(strPropName)
HasProperty = (Err.Number = 0)
End Function