Status: Solved
Priority: Medium
Security: Public
Views: 341
Last Modified: 2012-12-21

Set default value for a field - via VBA

Is it possible to change the deafult value of a field (within a table), via VBA?

Andy Brown

Asked: 2012-12-21

Advertise Here

Microsoft Access

1 Solution

LVL 75

DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented: 2012-12-21

Something like this:

Dim dbs As Database
Dim fld As DAO.Field
Set dbs = CurrentDb
Set fld = dbs.TableDefs("YourTableName").Fields("YourFieldName")
fld.DefaultValue = 0

Set fld = Nothing
Set dbs = Nothing

mx

LVL 75

DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented: 2012-12-21

Short version:

CurrentDb("YourTableName").Fields("YourFieldName").DefaultValue = "SomeValue" ' text example

mx

Andy BrownDeveloperAuthor Commented: 2012-12-21

MX - As always - you are a Genius - Thank you :O)

LVL 75

DatabaseMX (Joe Anderson - Microsoft Access MVP)Database ArchitectCommented: 2012-12-21

You are welcome ...

mx

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Set default value for a field - via VBA

Join & Write a Comment Already a member? Login.

Featured Post