Adding a table column using VBA in Access

Hot Topic

Dialogsheets vs Userforms
Problems when accessing a text file using ADO
Access to CryptEncrypt (CryptoAPI/WinAPI) functions in VBA
RunTime Error 7 - Out of Memory
VBA for Excel Query. From Someone New
Run-time error '3085' - Undefined Function in expression
Help required.....
Missing record
Opening a Word file from a macro in Excel
Diasbling Security settings in Microsoft Excel

Microsoft ISV

Setting Chart Title through VBA sometimes works sometimes doesn't.
Excel edit mode
Hyper link Macro
Configuration Failed: Windows SharePoint Services 3.0 (Beta)
Custom Date Picker Control
Serial Port Communication Using MS Access VBA
BSM with SSRS(2005) on a different box
Error when update a row using ADO
create command button that holds a procedure to another workbook
Problem about the "Find" function in VBA editor

Adding a table column using VBA in Access

Hello,

I was wondering if it were possible at all to add a column to an already existing table using VBA code. It seems like a simple enough procedure, but I can't seem to figure out how to do it. I'm beginning to wonder if it's even possible.

Any help would be appreciated, thanks!

CJ

Answer this question

Adding a table column using VBA in Access

  • Kagan A

    I've actually solved the problem. It was pretty simple, like I figured it would be. I'll go ahead and post the code in case anyone else happens to be new to this and runs across the same problem in the future.

    Public Sub addColumn()
    Dim strField As String
    Dim curDatabase As Object
    Dim tblTest As Object
    Dim fldNew As Object

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

    strField = "TestColumn"

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

    I actually had all of this correct except I was putting parentheses around fldNew in the Append statement.

    Thanks again to anyone who reads this!
  • Adding a table column using VBA in Access
Answer this question