MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Function CreateField( _ ByVal strTableName As String, _ ByVal strFieldName As String) _ As Boolean 'References: Microsoft Access 11.0 Object Library, Microsoft DAO 3.6 Object Library 'Set references by Clicking Tools and Then References in the Code View window 'Creates a Text field, other data types listed ' ' strTableName : Name of table in which to create the field ' ' strFieldName : Name of the new field to add to table ' Returns True on success, false otherwise ' 'USAGE: CreateField "TABLENAME", "FIELDNAME" On Error GoTo errhandler Dim Db As DAO.Database Dim fld As DAO.Field Dim tdf As DAO.TableDef Set Db = Application.CurrentDb Set tdf = Db.TableDefs(strTableName) ' First create a field with data type = Text Set fld = tdf.CreateField(strFieldName, dbText) 'A few Alternate datatypes: for DAO - Note: The listed Complex data types require ' Access 2007 or higher 'Long = dbLong or dbComplexLong 'Single = dbSingle or dbComplexSingle 'Double = dbDouble or dbComplexDouble 'Integer = dbInteger 'Decimal = dbDecimal or dbComplexDecimal 'Text = dbText or dbComplexText 'Memo = dbMemo 'Currency = dbCurrency 'Yes/No = dbBoolean 'Date = dbDate ' Appending the field With tdf.Fields .Append fld .Refresh End With CreateField = True ExitHere: Set fld = Nothing Set tdf = Nothing Set Db = Nothing MsgBox "Create Field Complete" Exit Function errhandler: CreateField = False With Err MsgBox "Error " & .Number & vbCrLf & .Description, _ vbOKOnly Or vbCritical, "CreateField" End With Resume ExitHere End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.