Table Name:TempDay
Filed Name: AttendanceDate
Code:
Dim curDatabase As DAO.Database
Dim tblPersons As DAO.TableDef
Set curDatabase = CurrentDb
Set TempDay = curDatabase.TableDefs("TempDay")
DoCmd.RunSQL "ALTER TABLE TempDay DROP COLUMN AttendanceDate"
‘For deleting more than one column try below
DoCmd.RunSQL "ALTER TABLE TempDay DROP COLUMN Second Column Name"
DoCmd.RunSQL "ALTER TABLE TempDay DROP COLUMN Third Column Name"
... View more