• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 529
  • Last Modified:

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

0
Schuttend
Asked:
Schuttend
1 Solution
 
cdbesteCommented:
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

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now