By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,652 Members | 1,995 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,652 IT Pros & Developers. It's quick & easy.

How to change the Caption with VBA

P: n/a
Dear reader,

I am familiar with the possibility to change the Caption of a field in a
form.

But is there also a possibility to change the Caption of a field in the
table structure it self.

I fount the following code to see the content of the Caption:

Debug.Print
CurrentDb.TableDefs("TableName").Fields("FieldName ").Properties("caption")

But now the code to change the Caption.

Tanks for any help.

Kind regards,

Simon
Feb 11 '07 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Simon, if the Caption has never been set, then the property doesn't exist,
so you need to CreateProperty. If it does exist, you just need to assign the
value.

The code below creates the property if needed, or sets it if it already
exists. Example:
Call SetProperty(Currentdb.TableDefs("TableName").Field s("FieldName"),
"Caption", dbText, "My caption")
Function SetPropertyDAO(obj As Object, strPropertyName As String, intType As
Integer, varValue As Variant, Optional strErrMsg As String) As Boolean
On Error GoTo ErrHandler
'Purpose: Set a property for an object, creating if necessary.
'Arguments: obj = the object whose property should be set.
' strPropertyName = the name of the property to set.
' intType = the type of property (needed for creating)
' varValue = the value to set this property to.
' strErrMsg = string to append any error message to.

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
'Purpose: Return true if the object has the property.
Dim varDummy As Variant

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

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Simon" <Sv********@Versatel.nlwrote in message
news:45**********************@news.tele2.nl...
>
I am familiar with the possibility to change the Caption of a field in a
form.

But is there also a possibility to change the Caption of a field in the
table structure it self.

I fount the following code to see the content of the Caption:

Debug.Print
CurrentDb.TableDefs("TableName").Fields("FieldName ").Properties("caption")

But now the code to change the Caption.

Tanks for any help.

Kind regards,

Simon
Feb 11 '07 #2

This discussion thread is closed

Replies have been disabled for this discussion.