Try to Alter table column default value ... how ?

J

jhsi

Hi,

I am using MS ACCESS 2000. Can anyone show me what's wrong
with my below code ? I want to change the column default
value via VBA script. It's doesn't work... Thanks!


Private Sub KioskName_AfterUpdate()
Dim strSQL As String
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
strSQL = "ALTER TABLE [tbltables] ALTER COLUMN [KioskID2]
DEFAULT 'Jean'"
cnn.Execute strSQL

End Sub
 
J

Jean

Thanks!

Mark said:
Hi,

You need to include the data type even if it is the same.

i.e.


strSQL = "ALTER TABLE [tbltables] " _
& " ALTER COLUMN [KioskID2] CHAR(50) DEFAULT 'Jean';"

HTH

--

Cheers
Mark

Free Access/Office Add-Ins at:
http://mphillipson.users.btopenworld.com/


[email protected] said:
Hi,

I am using MS ACCESS 2000. Can anyone show me what's wrong
with my below code ? I want to change the column default
value via VBA script. It's doesn't work... Thanks!


Private Sub KioskName_AfterUpdate()
Dim strSQL As String
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
strSQL = "ALTER TABLE [tbltables] ALTER COLUMN [KioskID2]
DEFAULT 'Jean'"
cnn.Execute strSQL

End Sub
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA Excel - Select a value from one cell in Excel to update a SQL table 1
ALTER COLUMN Help 8
OWC (office web component ) chart , stacked XY scatter 0
ALTER TABLE ADD 7
NotInList help 3
NotInList ComboBox Problem 5
Help! What's wrong with the code? 2
Access 2003 and SQL Server 2005 and DAO recordset 1

Top