Add field to existing table MS Access

Hello,

With attached code snippet. How can I add a new field to an existing table?

Regards,
Dennis
Private Sub Command1_Click()
Dim dbbiblio As Database
Dim rds As Recordset
Set dbbiblio = OpenDatabase("C:\Program Files\Microsoft Visual Studio\VB98\biblio.mdb")
Set rswholetable = dbbiblio.OpenRecordset("Select * from Titles order by title")
 
Do Until rswholetable.EOF = True
Debug.Print rswholetable.Fields("Title") & rswholetable.Fields("ISBN")
rswholetable.MoveNext
Loop
 
 rswholetable.AddNew
    rswholetable.Fields("Title") = "dennis"
    rswholetable.Fields("ISBN") = 1234
    rswholetable.Fields("PubID") = 1
    rswholetable.Update

Open in new window

SchuttendAsked:
Who is Participating?
 
cdbesteConnect With a Mentor Commented:
try something like this....

Private Sub cmdAddColumn_Click()
    Dim curDatabase As Object
    Dim tblStudents As Object
    Dim colFullName As Object

    ' Get a reference to the current database
    Set curDatabase = CurrentDb
    ' Get a reference to a table named Customers
    Set tblStudents = curDatabase.TableDefs("Students")
   
    Set colFullName = tblCustomers.CreateField("FullName", DB_TEXT)
    tblCustomers.Fields.Append colFullName
End Sub
0
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.

All Courses

From novice to tech pro — start learning today.