add new column and set default value

[Juanna_v]

Hi all. Once more I need your precious help.

I used the code below to add a new column to an existing table that works ok but I need some more things.



A. I want to add 3 columns instead of 1 and
B. I want the fields to be TEXT fields with their default values set to something let's say "No Further Action"

Can you please help me?

The code I used :

Private Sub Command1_Click()
Dim strField As String
Dim curDatabase As Object
Dim tblTest As Object
Dim fldNew As Object


Set curDatabase = CurrentDb
Set tblTest = curDatabase.TableDefs("tblTEST")

strField = "TestColumn2"

Set fldNew = tblTest.CreateField(strField, dbLong)
tblTest.Fields.Append fldNew

End Sub


Thank you in advance

[Juanna_v]

Never mind this. I found it out. Thanks anyway.

[RuralGuy]

Care to share your solution with others that read this Forum?

[Juanna_v]

Sure. I used the code above adding some lines.
Since I'm not an expert I hope what u read below is not anything very strange , but it worked for me.

Private Sub Command3_Click()

Dim strField As String

Dim curDatabase As Object
Dim tblTest As Object
Dim fldNew As Object
Dim fldNew1 As Object
Dim fldNew2 As Object
Dim fldNew3 As Object

Set curDatabase = CurrentDb
Set tblTest = curDatabase.TableDefs("tblDbtCrdt")


strField = "Notes"
strField1 = "Action"
strField2 = "AlertType"
strField3 = "GrTypo"

Set fldNew = tblTest.CreateField(strField, dbText)
Set fldNew1 = tblTest.CreateField(strField1, dbText)
Set fldNew2 = tblTest.CreateField(strField2, dbText)
Set fldNew3 = tblTest.CreateField(strField3, dbText)
tblTest.Fields.Append fldNew
fldNew.DefaultValue = "NoComments"

tblTest.Fields.Append fldNew1
fldNew1.DefaultValue = "NoAction"

tblTest.Fields.Append fldNew2
fldNew2.DefaultValue = "DbtCrdt"

tblTest.Fields.Append fldNew3
fldNew3.DefaultValue = "SameDay"


End Sub

[RuralGuy]

Thanks! Others will appreciate your solution. Go ahead and use the Thread Tools and mark this thread as Solved.