set field description in VBA

Hi, I'm trying to update a tabledef programatically, using
field descriptions that exist as text in another table. I
can't find anyway to set or reference the field's
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/11046-set-field-description-in-vba.html
description property via VBA. Is this possible?

Thanks,
Kate

*

Do you agree or disagree with the writer above? Why not share your immediate thoughts with us! Login Now! or Sign Up Today! to share your views... Gurfateh!

The Description property doesn't actually exist until you add a description.
If you try to refer to the Description property before then, you'll get an
error 3270 (Property Not Found)

You can use the CreateProperty method to add it in the first place.

Here's some untested air-code that should create the description if it
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11046
doesn't exist, or change it if it does.

Sub SetDescription(WhatField As DAO.Field, NewDescription As String)
On Error GoTo Err_SetDescription

Dim prpDesc As DAO.Property

WhatField.Properties("Description") = NewDescription

End_SetDescription:
Exit Sub

Err_SetDescription:
If Err.Number = 3270 Then
Set prpDesc = WhatField.CreateProperties( _
"Description", _
dbText, _
NewDescription)
WhatField.Properties.Append prpDesc
Else
MsgBox "Error " & Err.Number & " (" & _
Err.Description & ") occurred."
End If
Resume End_SetDescription

End Sub


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)


"Kate" wrote in message
news:u$h3Y$viGHA.4716@TK2MSFTNGP03.phx.gbl...
> Hi, I'm trying to update a tabledef programatically, using
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=11046
> field descriptions that exist as text in another table. I
> can't find anyway to set or reference the field's
> description property via VBA. Is this possible?
>
> Thanks,
> Kate