How do I set a default value in a table 1

[Razor1]

I am creating a table using VBA and I need to set a default value for the fields.

Any ideas on how to accomplish this?

Thanks in advance.



Razor1

 

[HarleyQuinn]

What code are you using to create the table?

HarleyQuinn
---------------------------------
The most overlooked advantage to owning a computer is that if they foul up there's no law against wacking them around a little. - Joe Martin

Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[HarleyQuinn]

One way would be as so:

Dim MyDB As Database
Set MyDB = CurrentDb()

MyDB.Execute "CREATE TABLE TestTable (Col1 TEXT(50), Col2 TEXT(50))"

MyDB.Close

CurrentDb.TableDefs("TestTable").Fields("Col1").DefaultValue = "HarleyQuinn

Hope this helps

HarleyQuinn
---------------------------------
The most overlooked advantage to owning a computer is that if they foul up there's no law against wacking them around a little. - Joe Martin

Get the most out of Tek-Tips, read FAQ222-2244 before posting.

 

[Razor1]

Thanks worked well.


Razor1