Using ADO, entering the table property description

[crowegreg]

Hello, I'm trying to use DAO to update within the table properties, the description. This is what I have so far. I haven't tried to run any of this code.


Function ModifyTablePropertyDescription(strArchiveTable As String, strTableDescription As String)
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Properties


Set db = CurrentDb()

Set tdf = db.TableDefs(strArchivetable)



Set fld = Nothing
Set tdf = Nothing
Set db = Nothing
End Function

[crowegreg]

I solved the problem. Here is the working code.

Sub ModifyTablePropertyDescription(strArchiveTable As String, strTableDescription As String)
Dim db As DAO.Database
Dim tdf As TableDef
Dim prp As DAO.Property

Set db = CurrentDb()

Set tdf = db.TableDefs(strArchiveTable)

On Error Resume Next
tdf.Properties("Description") = strTableDescription

If Err.Number = 3270 Then
Set prp = tdf.CreateProperty("Description", _
dbText, "Please don't ignore this error")
tdf.Properties.Append prp
End If

Set prp = Nothing
Set tdf = Nothing
Set db = Nothing
End Sub