A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
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.
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.
|Differences Between Access 2013 Runtime and 2013 Full Version?||33||69|
|Using Access multi Listbox to pass criteria to a query||9||31|
|Launch Outlook minimized||6||31|
|Installing the 2016 Access runtime with office home and business||6||16|