Public Sub createTableDef(tblNm As String)
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim fld1 As DAO.Field
Dim fld2 As DAO.Field
Dim fld3 As DAO.Field
Dim fld4 As DAO.Field
Dim fld5 As DAO.Field
Dim fld6 As DAO.Field
Dim fld7 As DAO.Field
Dim fld8 As DAO.Field
Dim fld9 As DAO.Field
Dim fld10 As DAO.Field
Dim fld11 As DAO.Field
Set db = CurrentDb
If IsObject(db.TableDefs(tblNm)) Then
DoCmd.DeleteObject acTable, tblNm
End If
Set td = db.createTableDef(tblNm)
Set fld1 = td.CreateField("Species", dbText, 20)
Set fld2 = td.CreateField("LH", dbLong)
Set fld3 = td.CreateField("MCN", dbLong)
Set fld4 = td.CreateField("MCNII", dbLong)
Set fld5 = td.CreateField("MCNIII", dbLong)
Set fld6 = td.CreateField("MRBIII", dbLong)
Set fld7 = td.CreateField("PHV", dbLong)
Set fld8 = td.CreateField("PRB", dbLong)
Set fld9 = td.CreateField("VA", dbLong)
Set fld10 = td.CreateField("VUIIS", dbLong)
Set fld11 = td.CreateField("WH", dbLong)
td.Fields.Append fld1
td.Fields.Append fld2
td.Fields.Append fld3
td.Fields.Append fld4
td.Fields.Append fld5
td.Fields.Append fld6
td.Fields.Append fld7
td.Fields.Append fld8
td.Fields.Append fld9
td.Fields.Append fld10
td.Fields.Append fld11
db.TableDefs.Refresh
Application.RefreshDatabaseWindow
End Sub
|