Code to generate tables results in RT error 91

[mjstone323]

Hi all - brand newbie here. Please be gentle - I've dabbled with VB but I'm not fluent by any stretch of the imagination - although I'm willing to learn!

I'm attempting to create a database using ERD creation software (CASE Studio 2) that generates code based on what db one is using. I created the ERD, generated the code for Access 2000, followed the directions (at the top of the code, which I'll post) to try to generate the tables. When I attempt to run it, I keep getting a runtime error 91 (Object variable or With block variable not set).

The code seems to hang at the line:

[vb]Set tdf = dbs.TableDefs("Employee")[/vb]

under the Sub CreateAlterKeys(). I think the compiler doesn't like any of the "Set tdf = dbs.TableDefs()".

I apologize for the length of this code. I wouldn't know where to begin to edit it to make it less unwieldy - however, despite its length, I doubt it's so complex that someone who actually knows what they're looking at wouldn't be able to spot what's going on pretty quickly (*crosses all digits*).
------------------------------------------------------------------------
[vb]
Option Compare Database

'=======================================================
'=== MS Access 2000 database creation method
'===
'=== 1. Create a new database in the MS Access 2000
'=== 2. Create a new module
'=== 3. Copy the CASE Studio 2 output SQL script into the new MS Access 2000 module
'=== 4. Select from main menu "Tools" item "References..." and check the "Microsoft DAO 3.6 Object Library."
'=== 5. Place your mouse cursor somewhere in the main procedure Main()
'=== 6. Run the module code (Click the "Run Sub/UserForm" button or press F5)
'=======================================================

Public dbs As DAO.Database
Public tdf As DAO.TableDef
Public idx As DAO.Index
Public rel As DAO.Relation

Sub Main()

Set dbs = CurrentDb()

On Error GoTo ErrorHandler




Call CreateTables
Call CreateDefaults
Call CreatePrimaryKeys
Call CreateIndexes
Call CreateAlterKeys
Call CreateRelations
Call CreateQueries


MsgBox "Script successfully processed.", vbInformation
Exit Sub

ErrorHandler:
Select Case Err.Number
Case 3010
MsgBox "Table " & tdf.Name & " already exist!", vbInformation
Err.Clear
Case 3284
MsgBox "Index " & idx.Name & " for table " & tdf.Name & " already exist!", vbInformation
Err.Clear
Case Else
MsgBox Err.Description, vbCritical
End Select
End Sub


' Create tables
'===============

Sub CreateTables()

Call CreateTable1 'Employee
Call CreateTable2 'EmployeeStatusCode
Call CreateTable3 'EmployeeAcademicStatus
Call CreateTable4 'EmployeeCredential
Call CreateTable5 'EmployeeType
Call CreateTable7 'EmployeeTypePrefix
Call CreateTable8 'EmployeeTypeAdmin
Call CreateTable9 'EmployeeTypeEDU
Call CreateTable10 'EmployeeTypeSpecial
Call CreateTable11 'EmployeeTypeDepartment
Call CreateTable16 'Principal
Call CreateTable17 'ReligionCoordinator
Call CreateTable12 'Teacher
Call CreateTable30 'TeacherType
Call CreateTable23 'Grade
Call CreateTable24 'Subject
Call CreateTable26 'PrimarySubjectCategory
Call CreateTable25 'SecondarySubjectCategory
Call CreateTable28 'TertiarySubjectCategory
Call CreateTable39 'ReligionTeachers
Call CreateTable14 'School
Call CreateTable18 'SchoolType
Call CreateTable15 'PACCluster
Call CreateTable19 'County
Call CreateTable29 'NonSchoolLocation
Call CreateTable31 'WorkshopEvent
Call CreateTable40 'WorkshopSession
Call CreateTable32 'WorkshopSessionType
Call CreateTable33 'WorkshopSessionStyle
Call CreateTable34 'WorkshopSessionLevel
Call CreateTable38 'WorkshopLocation
Call CreateTable35 'WorkshopSessionPresenter
Call CreateTable36 'WorkshopCost
Call CreateTable42 'WorkshopRegistration
End Sub

'=== Create table Employee ======

Sub CreateTable1()

Set tdf = dbs.CreateTableDef("Employee")

Call AddFieldToTable("EmployeeID", dbText, 9, 0, "", "", "", True, False)
Call AddFieldToTable("SchoolID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeStatusCode", dbText, 2, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeAcademicStatusID", dbText, 2, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeCredentialID", dbText, 3, 0, "", "", "", True, False)
Call AddFieldToTable("Salutation", dbText, 4, 0, "", "", "", False, False)
Call AddFieldToTable("FirstName", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeMiddleInitial", dbText, 1, 0, "", "", "", False, False)
Call AddFieldToTable("LastName", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("Née", dbText, 20, 0, "", "", "", False, False)
Call AddFieldToTable("Suffix_or_Order", dbText, 20, 0, "", "", "", False, False)
Call AddFieldToTable("Salary", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("Date_of_Birth", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("Ethnicity", dbText, 20, 0, "", "", "", False, False)
Call AddFieldToTable("StreetAddress", dbText, 40, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeAddress2", dbText, 40, 0, "", "", "", False, False)
Call AddFieldToTable("City", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("State", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("ZIP", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("Country", dbText, 20, 0, "", "", "", False, False)
Call AddFieldToTable("HomePhone", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("CellPhone", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("FaxPhone", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("CatholicStatus", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("FullOrPartTime", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("LastTBTest", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("Class", dbText, 1, 0, "", "", "", False, False)
Call AddFieldToTable("Step", dbText, 1, 0, "", "", "", False, False)
Call AddFieldToTable("YrsExpThisSchool", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("YrsExpThisArchdiocese", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("YrsExpOther", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("YrsExpTotal", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("HireDate", dbDate, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeSepDate", dbDate, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmployeeID", "Caption", "EmployeeID", dbText)
Call AddPropertyToField("EmployeeID", "Description", "Social Security Number", dbText)
Call AddPropertyToField("SchoolID", "Caption", "SchoolID", dbText)
Call AddPropertyToField("EmployeeStatusCode", "Caption", "EmployeeStatusCode", dbText)
Call AddPropertyToField("EmployeeStatusCode", "Description", "1 - FR = Female Religious" + Chr(13) + Chr(10) _
+ "2 - MR = Male Religious" + Chr(13) + Chr(10) _
+ "3 - P = Priest" + Chr(13) + Chr(10) _
+ "4 - FL = Female Lay" + Chr(13) + Chr(10) _
+ "5 - ML = Male Lay", dbText)
Call AddPropertyToField("EmployeeAcademicStatusID", "Caption", "EmployeeAcademicStatusID", dbText)
Call AddPropertyToField("EmployeeCredentialID", "Caption", "EmployeeCredentialID", dbText)
Call AddPropertyToField("Salutation", "Caption", "EmployeeSalutation", dbText)
Call AddPropertyToField("Salutation", "Description", "Mr., Mrs., Miss, Ms., Dr., Fr., Sr., Br., Rev.", dbText)
Call AddPropertyToField("FirstName", "Caption", "EmployeeFirstName", dbText)
Call AddPropertyToField("EmployeeMiddleInitial", "Caption", "EmployeeMiddleInitial", dbText)
Call AddPropertyToField("LastName", "Caption", "EmployeeLastName", dbText)
Call AddPropertyToField("Née", "Caption", "EmployeeNée", dbText)
Call AddPropertyToField("Née", "Description", "Surname at Birth", dbText)
Call AddPropertyToField("Suffix_or_Order", "Caption", "EmployeeSuffix", dbText)
Call AddPropertyToField("Salary", "Caption", "EmployeeSalary", dbText)
Call AddPropertyToField("Date_of_Birth", "Caption", "EmployeeDOB", dbText)
Call AddPropertyToField("Ethnicity", "Caption", "EmployeeEthnicity", dbText)
Call AddPropertyToField("StreetAddress", "Caption", "EmployeeStreetAddress", dbText)
Call AddPropertyToField("StreetAddress", "Description", "Street Address where employee lives.", dbText)
Call AddPropertyToField("EmployeeAddress2", "Caption", "EmployeeAddress2", dbText)
Call AddPropertyToField("City", "Caption", "EmployeeCity", dbText)
Call AddPropertyToField("City", "Description", "City employee lives in.", dbText)
Call AddPropertyToField("State", "Caption", "EmployeeState", dbText)
Call AddPropertyToField("ZIP", "Caption", "EmployeeZIP", dbText)
Call AddPropertyToField("Country", "Caption", "EmployeeCountry", dbText)
Call AddPropertyToField("HomePhone", "Caption", "EmployeeHomePhone", dbText)
Call AddPropertyToField("CellPhone", "Caption", "EmployeeCellPhone", dbText)
Call AddPropertyToField("FaxPhone", "Caption", "EmployeeFaxPhone", dbText)
Call AddPropertyToField("CatholicStatus", "Caption", "CatholicStatus", dbText)
Call AddPropertyToField("CatholicStatus", "Description", "Boolean - if not Catholic leave blank", dbText)
Call AddPropertyToField("FullOrPartTime", "Caption", "FullOrPartTime", dbText)
Call AddPropertyToField("LastTBTest", "Caption", "LastTBTest", dbText)
Call AddPropertyToField("Class", "Caption", "EmployeeClass", dbText)
Call AddPropertyToField("Step", "Caption", "EmployeeStep", dbText)
Call AddPropertyToField("YrsExpThisSchool", "Caption", "YrsExpThisSchool", dbText)
Call AddPropertyToField("YrsExpThisArchdiocese", "Caption", "YrsExpThisArchdiocese", dbText)
Call AddPropertyToField("YrsExpOther", "Caption", "YrsExpOther", dbText)
Call AddPropertyToField("YrsExpTotal", "Caption", "YrsExpTotal", dbText)
Call AddPropertyToField("HireDate", "Caption", "EmployeeHireDate", dbText)
Call AddPropertyToField("HireDate", "Description", "Date employee was officially hired.", dbText)
Call AddPropertyToField("EmployeeSepDate", "Caption", "EmployeeSepDate", dbText)


End Sub

'=== Create table EmployeeStatusCode ======

Sub CreateTable2()

Set tdf = dbs.CreateTableDef("EmployeeStatusCode")

Call AddFieldToTable("EmployeeStatusCode", dbText, 2, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeStatusDescription", dbText, 15, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmployeeStatusCode", "Caption", "EmployeeStatusCode", dbText)
Call AddPropertyToField("EmployeeStatusDescription", "Caption", "EmployeeStatusDescription", dbText)
Call AddPropertyToField("EmployeeStatusDescription", "Description", "Status of Employee in regard to Catholic Church", dbText)


End Sub

'=== Create table EmployeeAcademicStatus ======

Sub CreateTable3()

Set tdf = dbs.CreateTableDef("EmployeeAcademicStatus")

Call AddFieldToTable("EmployeeAcademicStatusID", dbText, 2, 0, "", "", "", True, False)
Call AddFieldToTable("EmpAcademicStatusDesc", dbText, 25, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmployeeAcademicStatusID", "Caption", "EmployeeAcademicStatusID", dbText)
Call AddPropertyToField("EmpAcademicStatusDesc", "Caption", "EmpAcademicStatusDesc", dbText)


End Sub

'=== Create table EmployeeCredential ======

Sub CreateTable4()

Set tdf = dbs.CreateTableDef("EmployeeCredential")

Call AddFieldToTable("EmployeeCredentialID", dbText, 3, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeCredentialDesc", dbText, 25, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmployeeCredentialID", "Caption", "EmployeeCredentialID", dbText)
Call AddPropertyToField("EmployeeCredentialDesc", "Caption", "EmployeeCredentialDesc", dbText)


End Sub

'=== Create table EmployeeType ======

Sub CreateTable5()

Set tdf = dbs.CreateTableDef("EmployeeType")

Call AddFieldToTable("EmployeeTypeID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypePrefixID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypeAdminID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypeEduID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypeSpecID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmptTypeDeptID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeID", dbText, 9, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmployeeTypeID", "Caption", "EmployeeTypeID", dbText)
Call AddPropertyToField("EmpTypePrefixID", "Caption", "EmpTypePrefixID", dbText)
Call AddPropertyToField("EmpTypeAdminID", "Caption", "EmpTypeAdminID", dbText)
Call AddPropertyToField("EmpTypeEduID", "Caption", "EmpTypeEduID", dbText)
Call AddPropertyToField("EmpTypeSpecID", "Caption", "EmpTypeSpecID", dbText)
Call AddPropertyToField("EmptTypeDeptID", "Caption", "EmptTypeDeptID", dbText)
Call AddPropertyToField("EmployeeID", "Caption", "EmployeeID", dbText)


End Sub

'=== Create table EmployeeTypePrefix ======

Sub CreateTable7()

Set tdf = dbs.CreateTableDef("EmployeeTypePrefix")

Call AddFieldToTable("EmpTypePrefixID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypePrefix", dbText, 1, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmpTypePrefixID", "Caption", "EmpTypePrefixID", dbText)
Call AddPropertyToField("EmpTypePrefix", "Caption", "EmpTypePrefix", dbText)


End Sub

'=== Create table EmployeeTypeAdmin ======

Sub CreateTable8()

Set tdf = dbs.CreateTableDef("EmployeeTypeAdmin")

Call AddFieldToTable("EmpTypeAdminID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypeAdmin", dbText, 25, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmpTypeAdminID", "Caption", "EmpTypeAdminID", dbText)
Call AddPropertyToField("EmpTypeAdmin", "Caption", "EmpTypeAdmin", dbText)


End Sub

'=== Create table EmployeeTypeEDU ======

Sub CreateTable9()

Set tdf = dbs.CreateTableDef("EmployeeTypeEDU")

Call AddFieldToTable("EmpTypeEduID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypeEDU", dbText, 20, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmpTypeEduID", "Caption", "EmpTypeEduID", dbText)
Call AddPropertyToField("EmpTypeEDU", "Caption", "EmpTypeEDU", dbText)


End Sub

'=== Create table EmployeeTypeSpecial ======

Sub CreateTable10()

Set tdf = dbs.CreateTableDef("EmployeeTypeSpecial")

Call AddFieldToTable("EmpTypeSpecID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypeSpec", dbText, 20, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmpTypeSpecID", "Caption", "EmpTypeSpecID", dbText)
Call AddPropertyToField("EmpTypeSpec", "Caption", "EmpTypeSpec", dbText)


End Sub

'=== Create table EmployeeTypeDepartment ======

Sub CreateTable11()

Set tdf = dbs.CreateTableDef("EmployeeTypeDepartment")

Call AddFieldToTable("EmptTypeDeptID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmpTypeDept", dbText, 25, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmptTypeDeptID", "Caption", "EmptTypeDeptID", dbText)
Call AddPropertyToField("EmpTypeDept", "Caption", "EmpTypeDept", dbText)


End Sub

'=== Create table Principal ======

Sub CreateTable16()

Set tdf = dbs.CreateTableDef("Principal")

Call AddFieldToTable("PrincipalID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeTypeID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeID", dbText, 9, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("PrincipalID", "Caption", "PrincipalID", dbText)
Call AddPropertyToField("PrincipalID", "Description", "PRIN + EmployeeID", dbText)
Call AddPropertyToField("EmployeeTypeID", "Caption", "EmployeeTypeID", dbText)
Call AddPropertyToField("EmployeeID", "Caption", "EmployeeID", dbText)


End Sub

'=== Create table ReligionCoordinator ======

Sub CreateTable17()

Set tdf = dbs.CreateTableDef("ReligionCoordinator")

Call AddFieldToTable("ReligionCoordID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("SchoolDeptNumber", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeTypeID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeID", dbText, 9, 0, "", "", "", True, False)
Call AddFieldToTable("SiteUserName", dbGUID, 0, 0, "", "", "", False, False)
Call AddFieldToTable("SitePassword", dbGUID, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("ReligionCoordID", "Caption", "ReligionCoordID", dbText)
Call AddPropertyToField("ReligionCoordID", "Description", "RELCOORD + EmployeeID", dbText)
Call AddPropertyToField("SchoolDeptNumber", "Caption", "SchoolID", dbText)
Call AddPropertyToField("EmployeeTypeID", "Caption", "EmployeeTypeID", dbText)
Call AddPropertyToField("EmployeeID", "Caption", "EmployeeID", dbText)
Call AddPropertyToField("SiteUserName", "Caption", "SiteUserName", dbText)
Call AddPropertyToField("SitePassword", "Caption", "SitePassword", dbText)


End Sub

'=== Create table Teacher ======

Sub CreateTable12()

Set tdf = dbs.CreateTableDef("Teacher")

Call AddFieldToTable("EmployeeID", dbText, 9, 0, "", "", "", True, False)
Call AddFieldToTable("TeacherTypeID", dbText, 12, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeTypeID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("SchoolDeptNumber", dbDouble, 0, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("EmployeeID", "Caption", "EmployeeID", dbText)
Call AddPropertyToField("TeacherTypeID", "Caption", "TeacherTypeID", dbText)
Call AddPropertyToField("EmployeeTypeID", "Caption", "EmployeeTypeID", dbText)
Call AddPropertyToField("SchoolDeptNumber", "Caption", "SchoolID", dbText)


End Sub

'=== Create table TeacherType ======

Sub CreateTable30()

Set tdf = dbs.CreateTableDef("TeacherType")

Call AddFieldToTable("TeacherTypeID", dbText, 12, 0, "", "", "", True, False)
Call AddFieldToTable("GradeID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("SubjectID", dbDouble, 0, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("TeacherTypeID", "Caption", "TeacherTypeID", dbText)
Call AddPropertyToField("GradeID", "Caption", "GradeID", dbText)
Call AddPropertyToField("SubjectID", "Caption", "SubjectID", dbText)


End Sub

'=== Create table Grade ======

Sub CreateTable23()

Set tdf = dbs.CreateTableDef("Grade")

Call AddFieldToTable("GradeID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("Grade", dbText, 25, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("GradeID", "Caption", "GradeID", dbText)
Call AddPropertyToField("Grade", "Caption", "Grade", dbText)


End Sub

'=== Create table Subject ======

Sub CreateTable24()

Set tdf = dbs.CreateTableDef("Subject")

Call AddFieldToTable("SubjectID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("SecondarySubjectCategory", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("TertiarySubjectCategory", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("PrimarySubjectCategory", dbDouble, 0, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("SubjectID", "Caption", "SubjectID", dbText)
Call AddPropertyToField("SecondarySubjectCategory", "Caption", "SecondarySubjectCategory", dbText)
Call AddPropertyToField("TertiarySubjectCategory", "Caption", "TertiarySubjectCategory", dbText)
Call AddPropertyToField("PrimarySubjectCategory", "Caption", "PrimarySubjectCategory", dbText)


End Sub

'=== Create table PrimarySubjectCategory ======

Sub CreateTable26()

Set tdf = dbs.CreateTableDef("PrimarySubjectCategory")

Call AddFieldToTable("PrimarySubjectCategory", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("PrimarySubject", dbText, 30, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("PrimarySubjectCategory", "Caption", "PrimarySubjectCategory", dbText)
Call AddPropertyToField("PrimarySubject", "Caption", "PrimarySubject", dbText)


End Sub

'=== Create table SecondarySubjectCategory ======

Sub CreateTable25()

Set tdf = dbs.CreateTableDef("SecondarySubjectCategory")

Call AddFieldToTable("SecondarySubjectCategory", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("SecondarySubject", dbText, 35, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("SecondarySubjectCategory", "Caption", "SecondarySubjectCategory", dbText)
Call AddPropertyToField("SecondarySubject", "Caption", "SecondarySubject", dbText)


End Sub

'=== Create table TertiarySubjectCategory ======

Sub CreateTable28()

Set tdf = dbs.CreateTableDef("TertiarySubjectCategory")

Call AddFieldToTable("TertiarySubjectCategory", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("TertiarySubject", dbText, 50, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("TertiarySubjectCategory", "Caption", "TertiarySubjectCategory", dbText)
Call AddPropertyToField("TertiarySubject", "Caption", "TertiarySubject", dbText)


End Sub

'=== Create table ReligionTeachers ======

Sub CreateTable39()

Set tdf = dbs.CreateTableDef("ReligionTeachers")

Call AddFieldToTable("ReligionTeacherID", dbText, 50, 0, "", "", "", True, False)
Call AddFieldToTable("EmployeeID", dbText, 9, 0, "", "", "", True, False)
Call AddFieldToTable("TeacherTypeID", dbText, 12, 0, "", "", "", True, False)
Call AddFieldToTable("BasicDue", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicAchieved", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicSacraments", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicSpirituality", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicScripture", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicFaithCreed", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicChurchMary", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicChristology", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicMorality", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("BasicLiturgy", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertDue", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertChurch", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertChristology", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertMorality", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertPedagogy", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertPrayerLiturgy", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertSacrament", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertScripture", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertCathSocial", dbDate, 0, 0, "", "", "", False, False)
Call AddFieldToTable("RecertElective", dbDate, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToTable("Description", "If Teacher teaches a grade and SubjectID = 000000 or Religion (_ _ _ _ _ _), they will be in this table.", dbText)
Call AddPropertyToField("ReligionTeacherID", "Caption", "ReligionTeacherID", dbText)
Call AddPropertyToField("EmployeeID", "Caption", "EmployeeID", dbText)
Call AddPropertyToField("TeacherTypeID", "Caption", "TeacherTypeID", dbText)
Call AddPropertyToField("BasicDue", "Caption", "BasicDue", dbText)
Call AddPropertyToField("BasicAchieved", "Caption", "BasicAchieved", dbText)
Call AddPropertyToField("BasicSacraments", "Caption", "BasicSacraments", dbText)
Call AddPropertyToField("BasicSpirituality", "Caption", "BasicSpirituality", dbText)
Call AddPropertyToField("BasicScripture", "Caption", "BasicScripture", dbText)
Call AddPropertyToField("BasicFaithCreed", "Caption", "BasicFaithCreed", dbText)
Call AddPropertyToField("BasicChurchMary", "Caption", "BasicChurchMary", dbText)
Call AddPropertyToField("BasicChristology", "Caption", "BasicChristology", dbText)
Call AddPropertyToField("BasicMorality", "Caption", "BasicMorality", dbText)
Call AddPropertyToField("BasicLiturgy", "Caption", "BasicLiturgy", dbText)
Call AddPropertyToField("RecertDue", "Caption", "RecertDue", dbText)
Call AddPropertyToField("RecertChurch", "Caption", "RecertChurch", dbText)
Call AddPropertyToField("RecertChristology", "Caption", "RecertChristology", dbText)
Call AddPropertyToField("RecertMorality", "Caption", "RecertMorality", dbText)
Call AddPropertyToField("RecertPedagogy", "Caption", "RecertPedagogy", dbText)
Call AddPropertyToField("RecertPrayerLiturgy", "Caption", "RecertPrayerLiturgy", dbText)
Call AddPropertyToField("RecertSacrament", "Caption", "RecertSacrament", dbText)
Call AddPropertyToField("RecertScripture", "Caption", "RecertScripture", dbText)
Call AddPropertyToField("RecertCathSocial", "Caption", "RecertCathSocial", dbText)
Call AddPropertyToField("RecertElective", "Caption", "RecertElective", dbText)


End Sub

'=== Create table School ======

Sub CreateTable14()

Set tdf = dbs.CreateTableDef("School")

Call AddFieldToTable("SchoolDeptNumber", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("CountyID", dbText, 3, 0, "", "", "", True, False)
Call AddFieldToTable("PACClusterID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("PrincipalID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("ReligionCoordID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("SchoolTypeID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("SchoolName", dbText, 40, 0, "", "", "", False, False)
Call AddFieldToTable("SchoolStreetAddress", dbText, 40, 0, "", "", "", False, False)
Call AddFieldToTable("SchoolCity", dbText, 20, 0, "", "", "", False, False)
Call AddFieldToTable("SchoolState", dbText, 20, 0, "", "", "", False, False)
Call AddFieldToTable("SchoolZIP", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("SchoolPhone", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("SchoolFax", dbDouble, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("SchoolDeptNumber", "Caption", "SchoolID", dbText)
Call AddPropertyToField("CountyID", "Caption", "CountyID", dbText)
Call AddPropertyToField("PACClusterID", "Caption", "PACClusterID", dbText)
Call AddPropertyToField("PrincipalID", "Caption", "PrincipalID", dbText)
Call AddPropertyToField("ReligionCoordID", "Caption", "ReligionCoordID", dbText)
Call AddPropertyToField("SchoolTypeID", "Caption", "SchoolTypeID", dbText)
Call AddPropertyToField("SchoolName", "Caption", "SchoolName", dbText)
Call AddPropertyToField("SchoolStreetAddress", "Caption", "SchoolStreetAddress", dbText)
Call AddPropertyToField("SchoolCity", "Caption", "SchoolCity", dbText)
Call AddPropertyToField("SchoolState", "Caption", "SchoolState", dbText)
Call AddPropertyToField("SchoolZIP", "Caption", "SchoolZIP", dbText)
Call AddPropertyToField("SchoolPhone", "Caption", "SchoolPhone", dbText)
Call AddPropertyToField("SchoolFax", "Caption", "SchoolFax", dbText)


End Sub

'=== Create table SchoolType ======

Sub CreateTable18()

Set tdf = dbs.CreateTableDef("SchoolType")

Call AddFieldToTable("SchoolTypeID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("SchoolTypeDescription", dbMemo, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("SchoolTypeID", "Caption", "SchoolTypeID", dbText)
Call AddPropertyToField("SchoolTypeDescription", "Caption", "SchoolTypeDescription", dbText)


End Sub

'=== Create table PACCluster ======

Sub CreateTable15()

Set tdf = dbs.CreateTableDef("PACCluster")

Call AddFieldToTable("PACClusterID", dbText, 1, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("PACClusterID", "Caption", "PACClusterID", dbText)


End Sub

'=== Create table County ======

Sub CreateTable19()

Set tdf = dbs.CreateTableDef("County")

Call AddFieldToTable("CountyID", dbText, 3, 0, "", "", "", True, False)
Call AddFieldToTable("County", dbText, 40, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("CountyID", "Caption", "CountyID", dbText)
Call AddPropertyToField("County", "Caption", "County", dbText)


End Sub

'=== Create table NonSchoolLocation ======

Sub CreateTable29()

Set tdf = dbs.CreateTableDef("NonSchoolLocation")

Call AddFieldToTable("NonSchoolLocationID", dbText, 5, 0, "", "", "", True, False)
Call AddFieldToTable("NonSchoolLocationName", dbText, 35, 0, "", "", "", False, False)
Call AddFieldToTable("NonSchoolLocationStreet", dbText, 40, 0, "", "", "", False, False)
Call AddFieldToTable("NonSchoolLocationState", dbText, 1, 0, "", "", "", False, False)
Call AddFieldToTable("NonSchoolLocationZIP", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("NonSchoolLocationPhone", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("NonSchoolLocationFax", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("NonSchoolLocationContact", dbText, 45, 0, "", "", "", False, False)
Call AddFieldToTable("CountyID", dbText, 3, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("NonSchoolLocationID", "Caption", "NonSchoolLocationID", dbText)
Call AddPropertyToField("NonSchoolLocationName", "Caption", "NonSchoolLocationName", dbText)
Call AddPropertyToField("NonSchoolLocationStreet", "Caption", "NonSchoolLocationStreet", dbText)
Call AddPropertyToField("NonSchoolLocationState", "Caption", "NonSchoolLocationState", dbText)
Call AddPropertyToField("NonSchoolLocationZIP", "Caption", "NonSchoolLocationZIP", dbText)
Call AddPropertyToField("NonSchoolLocationPhone", "Caption", "NonSchoolLocationPhone", dbText)
Call AddPropertyToField("NonSchoolLocationFax", "Caption", "NonSchoolLocationFax", dbText)
Call AddPropertyToField("NonSchoolLocationContact", "Caption", "NonSchoolLocationContact", dbText)
Call AddPropertyToField("NonSchoolLocationContact", "Description", "Name of person to contact at this location", dbText)
Call AddPropertyToField("CountyID", "Caption", "CountyID", dbText)


End Sub

'=== Create table WorkshopEvent ======

Sub CreateTable31()

Set tdf = dbs.CreateTableDef("WorkshopEvent")

Call AddFieldToTable("WorkshopEventID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopLocationID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopName", dbText, 50, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopDate", dbDate, 0, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopTime", dbDate, 0, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopCost", dbText, 1, 0, "", "", "", False, False)
Call AddFieldToTable("WorkshopDescription", dbMemo, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopEventID", "Caption", "WorkshopEventID", dbText)
Call AddPropertyToField("WorkshopLocationID", "Caption", "WorkshopLocationID", dbText)
Call AddPropertyToField("WorkshopName", "Caption", "WorkshopName", dbText)
Call AddPropertyToField("WorkshopDate", "Caption", "WorkshopDate", dbText)
Call AddPropertyToField("WorkshopTime", "Caption", "WorkshopTime", dbText)
Call AddPropertyToField("WorkshopCost", "Caption", "WorkshopCost", dbText)
Call AddPropertyToField("WorkshopCost", "Description", "Total from ""WorkshopCost"" Table", dbText)
Call AddPropertyToField("WorkshopDescription", "Caption", "WorkshopDescription", dbText)


End Sub

'=== Create table WorkshopSession ======

Sub CreateTable40()

Set tdf = dbs.CreateTableDef("WorkshopSession")

Call AddFieldToTable("WorkshopSessionID", dbText, 50, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopEventID", dbLong, 0, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionStyleID", dbText, 6, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionLevelID", dbText, 3, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionTypeID", dbText, 1, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopSessionID", "Caption", "WorkshopSessionID", dbText)
Call AddPropertyToField("WorkshopEventID", "Caption", "WorkshopEventID", dbText)
Call AddPropertyToField("PresenterID", "Caption", "PresenterID", dbText)
Call AddPropertyToField("WorkshopSessionStyleID", "Caption", "WorkshopSessionStyleID", dbText)
Call AddPropertyToField("WorkshopSessionLevelID", "Caption", "WorkshopSessionLevelID", dbText)
Call AddPropertyToField("WorkshopSessionTypeID", "Caption", "WorkshopSessionTypeID", dbText)


End Sub

'=== Create table WorkshopSessionType ======

Sub CreateTable32()

Set tdf = dbs.CreateTableDef("WorkshopSessionType")

Call AddFieldToTable("WorkshopSessionTypeID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionTypeName", dbText, 50, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionTypeDescription", dbMemo, 0, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopSessionTypeID", "Caption", "WorkshopSessionTypeID", dbText)
Call AddPropertyToField("WorkshopSessionTypeName", "Caption", "WorkshopSessionTypeName", dbText)
Call AddPropertyToField("WorkshopSessionTypeDescription", "Caption", "WorkshopSessionTypeDescription", dbText)


End Sub

'=== Create table WorkshopSessionStyle ======

Sub CreateTable33()

Set tdf = dbs.CreateTableDef("WorkshopSessionStyle")

Call AddFieldToTable("WorkshopSessionStyleID", dbText, 6, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionStyleDescription", dbText, 1, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopSessionStyleID", "Caption", "WorkshopSessionStyleID", dbText)
Call AddPropertyToField("WorkshopSessionStyleDescription", "Caption", "WorkshopSessionStyleDescription", dbText)


End Sub

'=== Create table WorkshopSessionLevel ======

Sub CreateTable34()

Set tdf = dbs.CreateTableDef("WorkshopSessionLevel")

Call AddFieldToTable("WorkshopSessionLevelID", dbText, 3, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionLevel", dbText, 6, 0, "", "", "", False, False)
Call AddFieldToTable("WorkshopSessionLevelDescription", dbMemo, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopSessionLevelID", "Caption", "WorkshopSessionLevelID", dbText)
Call AddPropertyToField("WorkshopSessionLevel", "Caption", "WorkshopSessionLevel", dbText)
Call AddPropertyToField("WorkshopSessionLevel", "Description", "B (Basic) or R (Recert) + Level #", dbText)
Call AddPropertyToField("WorkshopSessionLevelDescription", "Caption", "WorkshopSessionLevelDescription", dbText)


End Sub

'=== Create table WorkshopLocation ======

Sub CreateTable38()

Set tdf = dbs.CreateTableDef("WorkshopLocation")

Call AddFieldToTable("WorkshopLocationID", dbText, 1, 0, "", "", "", True, False)
Call AddFieldToTable("SchoolDeptNumber", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("NonSchoolLocationID", dbText, 5, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopLocationID", "Caption", "WorkshopLocationID", dbText)
Call AddPropertyToField("SchoolDeptNumber", "Caption", "SchoolID", dbText)
Call AddPropertyToField("NonSchoolLocationID", "Caption", "NonSchoolLocationID", dbText)


End Sub

'=== Create table WorkshopSessionPresenter ======

Sub CreateTable35()

Set tdf = dbs.CreateTableDef("WorkshopSessionPresenter")

Call AddFieldToTable("PresenterID", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterLastName", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterFirstName", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterFee", dbCurrency, 0, 0, "", "", "", False, False)
Call AddFieldToTable("PresenterStreetAddress", dbText, 50, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterCity", dbText, 35, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterState", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterZIP", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterHomePhone", dbDouble, 0, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterCellPhone", dbDouble, 0, 0, "", "", "", False, False)
Call AddFieldToTable("PresenterCountry", dbText, 20, 0, "", "", "", True, False)
Call AddFieldToTable("PresenterBio", dbMemo, 0, 0, "", "", "", False, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("PresenterID", "Caption", "PresenterID", dbText)
Call AddPropertyToField("PresenterID", "Description", "Soc.Security#", dbText)
Call AddPropertyToField("PresenterLastName", "Caption", "PresenterLastName", dbText)
Call AddPropertyToField("PresenterFirstName", "Caption", "PresenterFirstName", dbText)
Call AddPropertyToField("PresenterFee", "Caption", "PresenterFee", dbText)
Call AddPropertyToField("PresenterStreetAddress", "Caption", "PresenterStreetAddress", dbText)
Call AddPropertyToField("PresenterCity", "Caption", "PresenterCity", dbText)
Call AddPropertyToField("PresenterState", "Caption", "PresenterState", dbText)
Call AddPropertyToField("PresenterZIP", "Caption", "PresenterZIP", dbText)
Call AddPropertyToField("PresenterHomePhone", "Caption", "PresenterHomePhone", dbText)
Call AddPropertyToField("PresenterCellPhone", "Caption", "PresenterCellPhone", dbText)
Call AddPropertyToField("PresenterCountry", "Caption", "PresenterCountry", dbText)
Call AddPropertyToField("PresenterBio", "Caption", "PresenterBio", dbText)


End Sub

'=== Create table WorkshopCost ======

Sub CreateTable36()

Set tdf = dbs.CreateTableDef("WorkshopCost")

Call AddFieldToTable("WorkshopHallFee", dbCurrency, 0, 0, "", "", "", False, False)
Call AddFieldToTable("WorkshopRefreshments", dbCurrency, 0, 0, "", "", "", False, False)
Call AddFieldToTable("WorkshopPromotion", dbCurrency, 0, 0, "", "", "", False, False)
Call AddFieldToTable("WorkshopSupplies", dbCurrency, 0, 0, "", "", "", False, False)
Call AddFieldToTable("WorkshopMiscExpense", dbCurrency, 0, 0, "", "", "", False, False)
Call AddFieldToTable("WorkshopEventID", dbLong, 0, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopHallFee", "Caption", "WorkshopHallFee", dbText)
Call AddPropertyToField("WorkshopRefreshments", "Caption", "WorkshopRefreshments", dbText)
Call AddPropertyToField("WorkshopPromotion", "Caption", "WorkshopPromotion", dbText)
Call AddPropertyToField("WorkshopSupplies", "Caption", "WorkshopSupplies", dbText)
Call AddPropertyToField("WorkshopMiscExpense", "Caption", "WorkshopMiscExpense", dbText)
Call AddPropertyToField("WorkshopEventID", "Caption", "WorkshopEventID", dbText)


End Sub

'=== Create table WorkshopRegistration ======

Sub CreateTable42()

Set tdf = dbs.CreateTableDef("WorkshopRegistration")

Call AddFieldToTable("WorkshopRegistrationID", dbText, 50, 0, "", "", "", True, False)
Call AddFieldToTable("WorkshopSessionID", dbText, 50, 0, "", "", "", True, False)
Call AddFieldToTable("ReligionTeacherID", dbText, 50, 0, "", "", "", True, False)

dbs.TableDefs.Append tdf

Call AddPropertyToField("WorkshopRegistrationID", "Caption", "WorkshopRegistrationID", dbText)
Call AddPropertyToField("WorkshopSessionID", "Caption", "WorkshopSessionID", dbText)
Call AddPropertyToField("ReligionTeacherID", "Caption", "ReligionTeacherID", dbText)


End Sub



' Create defaults part
'======================

Sub CreateDefaults()


End Sub


' Create primary keys
'=====================

Sub CreatePrimaryKeys()

'=== Create primary key for table Employee ======

Set tdf = dbs.TableDefs("Employee")
Set idx = tdf.CreateIndex("pk_Employee")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmployeeID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeStatusCode ======

Set tdf = dbs.TableDefs("EmployeeStatusCode")
Set idx = tdf.CreateIndex("pk_EmployeeStatusCode")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmployeeStatusCode", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeAcademicStatus ======

Set tdf = dbs.TableDefs("EmployeeAcademicStatus")
Set idx = tdf.CreateIndex("pk_EmployeeAcademicStatus")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmployeeAcademicStatusID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeCredential ======

Set tdf = dbs.TableDefs("EmployeeCredential")
Set idx = tdf.CreateIndex("pk_EmployeeCredential")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmployeeCredentialID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeType ======

Set tdf = dbs.TableDefs("EmployeeType")
Set idx = tdf.CreateIndex("pk_EmployeeType")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmployeeTypeID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeTypePrefix ======

Set tdf = dbs.TableDefs("EmployeeTypePrefix")
Set idx = tdf.CreateIndex("pk_EmployeeTypePrefix")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmpTypePrefixID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeTypeAdmin ======

Set tdf = dbs.TableDefs("EmployeeTypeAdmin")
Set idx = tdf.CreateIndex("pk_EmployeeTypeAdmin")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmpTypeAdminID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeTypeEDU ======

Set tdf = dbs.TableDefs("EmployeeTypeEDU")
Set idx = tdf.CreateIndex("pk_EmployeeTypeEDU")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmpTypeEduID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeTypeSpecial ======

Set tdf = dbs.TableDefs("EmployeeTypeSpecial")
Set idx = tdf.CreateIndex("pk_EmployeeTypeSpecial")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmpTypeSpecID", False)

tdf.Indexes.Append idx

'=== Create primary key for table EmployeeTypeDepartment ======

Set tdf = dbs.TableDefs("EmployeeTypeDepartment")
Set idx = tdf.CreateIndex("pk_EmployeeTypeDepartment")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmptTypeDeptID", False)

tdf.Indexes.Append idx

'=== Create primary key for table Principal ======

Set tdf = dbs.TableDefs("Principal")
Set idx = tdf.CreateIndex("pk_Principal")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("PrincipalID", False)

tdf.Indexes.Append idx

'=== Create primary key for table ReligionCoordinator ======

Set tdf = dbs.TableDefs("ReligionCoordinator")
Set idx = tdf.CreateIndex("pk_ReligionCoordinator")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("ReligionCoordID", False)

tdf.Indexes.Append idx

'=== Create primary key for table Teacher ======

Set tdf = dbs.TableDefs("Teacher")
Set idx = tdf.CreateIndex("pk_Teacher")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("EmployeeID", False)
Call AddFieldToIndex("TeacherTypeID", False)

tdf.Indexes.Append idx

'=== Create primary key for table TeacherType ======

Set tdf = dbs.TableDefs("TeacherType")
Set idx = tdf.CreateIndex("pk_TeacherType")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("TeacherTypeID", False)

tdf.Indexes.Append idx

'=== Create primary key for table Grade ======

Set tdf = dbs.TableDefs("Grade")
Set idx = tdf.CreateIndex("pk_Grade")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("GradeID", False)

tdf.Indexes.Append idx

'=== Create primary key for table Subject ======

Set tdf = dbs.TableDefs("Subject")
Set idx = tdf.CreateIndex("pk_Subject")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("SubjectID", False)

tdf.Indexes.Append idx

'=== Create primary key for table PrimarySubjectCategory ======

Set tdf = dbs.TableDefs("PrimarySubjectCategory")
Set idx = tdf.CreateIndex("pk_PrimarySubjectCategory")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("PrimarySubjectCategory", False)

tdf.Indexes.Append idx

'=== Create primary key for table SecondarySubjectCategory ======

Set tdf = dbs.TableDefs("SecondarySubjectCategory")
Set idx = tdf.CreateIndex("pk_SecondarySubjectCategory")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("SecondarySubjectCategory", False)

tdf.Indexes.Append idx

'=== Create primary key for table TertiarySubjectCategory ======

Set tdf = dbs.TableDefs("TertiarySubjectCategory")
Set idx = tdf.CreateIndex("pk_TertiarySubjectCategory")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("TertiarySubjectCategory", False)

tdf.Indexes.Append idx

'=== Create primary key for table ReligionTeachers ======

Set tdf = dbs.TableDefs("ReligionTeachers")
Set idx = tdf.CreateIndex("pk_ReligionTeachers")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("ReligionTeacherID", False)

tdf.Indexes.Append idx

'=== Create primary key for table School ======

Set tdf = dbs.TableDefs("School")
Set idx = tdf.CreateIndex("pk_School")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("SchoolDeptNumber", False)

tdf.Indexes.Append idx

'=== Create primary key for table SchoolType ======

Set tdf = dbs.TableDefs("SchoolType")
Set idx = tdf.CreateIndex("pk_SchoolType")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("SchoolTypeID", False)

tdf.Indexes.Append idx

'=== Create primary key for table PACCluster ======

Set tdf = dbs.TableDefs("PACCluster")
Set idx = tdf.CreateIndex("pk_PACCluster")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("PACClusterID", False)

tdf.Indexes.Append idx

'=== Create primary key for table County ======

Set tdf = dbs.TableDefs("County")
Set idx = tdf.CreateIndex("pk_County")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("CountyID", False)

tdf.Indexes.Append idx

'=== Create primary key for table NonSchoolLocation ======

Set tdf = dbs.TableDefs("NonSchoolLocation")
Set idx = tdf.CreateIndex("pk_NonSchoolLocation")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("NonSchoolLocationID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopEvent ======

Set tdf = dbs.TableDefs("WorkshopEvent")
Set idx = tdf.CreateIndex("pk_WorkshopEvent")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopEventID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopSession ======

Set tdf = dbs.TableDefs("WorkshopSession")
Set idx = tdf.CreateIndex("pk_WorkshopSession")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopSessionID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopSessionType ======

Set tdf = dbs.TableDefs("WorkshopSessionType")
Set idx = tdf.CreateIndex("pk_WorkshopSessionType")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopSessionTypeID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopSessionStyle ======

Set tdf = dbs.TableDefs("WorkshopSessionStyle")
Set idx = tdf.CreateIndex("pk_WorkshopSessionStyle")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopSessionStyleID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopSessionLevel ======

Set tdf = dbs.TableDefs("WorkshopSessionLevel")
Set idx = tdf.CreateIndex("pk_WorkshopSessionLevel")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopSessionLevelID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopLocation ======

Set tdf = dbs.TableDefs("WorkshopLocation")
Set idx = tdf.CreateIndex("pk_WorkshopLocation")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopLocationID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopSessionPresenter ======

Set tdf = dbs.TableDefs("WorkshopSessionPresenter")
Set idx = tdf.CreateIndex("pk_WorkshopSessionPresenter")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("PresenterID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopCost ======

Set tdf = dbs.TableDefs("WorkshopCost")
Set idx = tdf.CreateIndex("pk_WorkshopCost")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopEventID", False)

tdf.Indexes.Append idx

'=== Create primary key for table WorkshopRegistration ======

Set tdf = dbs.TableDefs("WorkshopRegistration")
Set idx = tdf.CreateIndex("pk_WorkshopRegistration")

idx.Primary = True
idx.Unique = True
idx.IgnoreNulls = False

Call AddFieldToIndex("WorkshopRegistrationID", False)
Call AddFieldToIndex("WorkshopSessionID", False)

tdf.Indexes.Append idx


End Sub


' Create indexes
'================

Sub CreateIndexes()


End Sub


' Create alter keys (unique indexes in MS ACCESS)
'================================================

Sub CreateAlterKeys()

'=== Create alter keys (unique) for table Employee ======

Set tdf = dbs.TableDefs("Employee")
Set idx = tdf.CreateIndex("EmployeeID")

idx.Unique = True

Call AddFieldToIndex("EmployeeID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeStatusCode ======

Set tdf = dbs.TableDefs("EmployeeStatusCode")
Set idx = tdf.CreateIndex("EmployeeStatusCode")

idx.Unique = True

Call AddFieldToIndex("EmployeeStatusCode", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeAcademicStatus ======

Set tdf = dbs.TableDefs("EmployeeAcademicStatus")
Set idx = tdf.CreateIndex("EmployeeAcademicStatusID")

idx.Unique = True

Call AddFieldToIndex("EmployeeAcademicStatusID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeCredential ======

Set tdf = dbs.TableDefs("EmployeeCredential")
Set idx = tdf.CreateIndex("EmployeeCredentialID")

idx.Unique = True

Call AddFieldToIndex("EmployeeCredentialID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeTypePrefix ======

Set tdf = dbs.TableDefs("EmployeeTypePrefix")
Set idx = tdf.CreateIndex("EmpTypePrefixID")

idx.Unique = True

Call AddFieldToIndex("EmpTypePrefixID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeTypeAdmin ======

Set tdf = dbs.TableDefs("EmployeeTypeAdmin")
Set idx = tdf.CreateIndex("EmpTypeAdminID")

idx.Unique = True

Call AddFieldToIndex("EmpTypeAdminID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeTypeEDU ======

Set tdf = dbs.TableDefs("EmployeeTypeEDU")
Set idx = tdf.CreateIndex("EmpTypeEduID")

idx.Unique = True

Call AddFieldToIndex("EmpTypeEduID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeTypeSpecial ======

Set tdf = dbs.TableDefs("EmployeeTypeSpecial")
Set idx = tdf.CreateIndex("EmpTypeSpecID")

idx.Unique = True

Call AddFieldToIndex("EmpTypeSpecID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table EmployeeTypeDepartment ======

Set tdf = dbs.TableDefs("EmployeeTypeDepartment")
Set idx = tdf.CreateIndex("EmptTypeDeptID")

idx.Unique = True

Call AddFieldToIndex("EmptTypeDeptID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table Principal ======

Set tdf = dbs.TableDefs("Principal")
Set idx = tdf.CreateIndex("PrincipalID")

idx.Unique = True

Call AddFieldToIndex("PrincipalID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table ReligionCoordinator ======

Set tdf = dbs.TableDefs("ReligionCoordinator")
Set idx = tdf.CreateIndex("ReligionCoordID")

idx.Unique = True

Call AddFieldToIndex("ReligionCoordID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table TeacherType ======

Set tdf = dbs.TableDefs("TeacherType")
Set idx = tdf.CreateIndex("TeacherTypeID")

idx.Unique = True

Call AddFieldToIndex("TeacherTypeID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table Subject ======

Set tdf = dbs.TableDefs("Subject")
Set idx = tdf.CreateIndex("SubjectID")

idx.Unique = True

Call AddFieldToIndex("SubjectID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table PrimarySubjectCategory ======

Set tdf = dbs.TableDefs("PrimarySubjectCategory")
Set idx = tdf.CreateIndex("PrimarySubjectCategory")

idx.Unique = True

Call AddFieldToIndex("PrimarySubjectCategory", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table SecondarySubjectCategory ======

Set tdf = dbs.TableDefs("SecondarySubjectCategory")
Set idx = tdf.CreateIndex("SecondarySubjectCategory")

idx.Unique = True

Call AddFieldToIndex("SecondarySubjectCategory", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table TertiarySubjectCategory ======

Set tdf = dbs.TableDefs("TertiarySubjectCategory")
Set idx = tdf.CreateIndex("TertiarySubjectCategory")

idx.Unique = True

Call AddFieldToIndex("TertiarySubjectCategory", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table School ======

Set tdf = dbs.TableDefs("School")
Set idx = tdf.CreateIndex("SchoolDeptNumber")

idx.Unique = True

Call AddFieldToIndex("SchoolDeptNumber", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table SchoolType ======

Set tdf = dbs.TableDefs("SchoolType")
Set idx = tdf.CreateIndex("SchoolTypeID")

idx.Unique = True

Call AddFieldToIndex("SchoolTypeID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table PACCluster ======

Set tdf = dbs.TableDefs("PACCluster")
Set idx = tdf.CreateIndex("PACClusterID")

idx.Unique = True

Call AddFieldToIndex("PACClusterID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table County ======

Set tdf = dbs.TableDefs("County")
Set idx = tdf.CreateIndex("CountyID")

idx.Unique = True

Call AddFieldToIndex("CountyID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table NonSchoolLocation ======

Set tdf = dbs.TableDefs("NonSchoolLocation")
Set idx = tdf.CreateIndex("NonSchoolLocationID")

idx.Unique = True

Call AddFieldToIndex("NonSchoolLocationID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table WorkshopEvent ======

Set tdf = dbs.TableDefs("WorkshopEvent")
Set idx = tdf.CreateIndex("WorkshopEventID")

idx.Unique = True

Call AddFieldToIndex("WorkshopEventID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table WorkshopSessionType ======

Set tdf = dbs.TableDefs("WorkshopSessionType")
Set idx = tdf.CreateIndex("WorkshopSessionTypeID")

idx.Unique = True

Call AddFieldToIndex("WorkshopSessionTypeID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table WorkshopSessionStyle ======

Set tdf = dbs.TableDefs("WorkshopSessionStyle")
Set idx = tdf.CreateIndex("WorkshopSessionStyleID")

idx.Unique = True

Call AddFieldToIndex("WorkshopSessionStyleID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table WorkshopSessionLevel ======

Set tdf = dbs.TableDefs("WorkshopSessionLevel")
Set idx = tdf.CreateIndex("WorkshopSessionLevelID")

idx.Unique = True

Call AddFieldToIndex("WorkshopSessionLevelID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table WorkshopLocation ======

Set tdf = dbs.TableDefs("WorkshopLocation")
Set idx = tdf.CreateIndex("WorkshopLocationID")

idx.Unique = True

Call AddFieldToIndex("WorkshopLocationID", False)

tdf.Indexes.Append idx

'=== Create alter keys (unique) for table WorkshopSessionPresenter ======

Set tdf = dbs.TableDefs("WorkshopSessionPresenter")
Set idx = tdf.CreateIndex("PresenterID")

idx.Unique = True

Call AddFieldToIndex("PresenterID", False)

tdf.Indexes.Append idx


End Sub

' Create relations
'==================

Sub CreateRelations()
'=== Create relations between parent table Employee and child table EmployeeType ======

Set rel = dbs.CreateRelation("Relationship34")

rel.Table = "Employee"
rel.ForeignTable = "EmployeeType"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeID", "EmployeeID")

dbs.Relations.Append rel


'=== Create relations between parent table Employee and child table Principal ======

Set rel = dbs.CreateRelation("Relationship41")

rel.Table = "Employee"
rel.ForeignTable = "Principal"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeID", "EmployeeID")

dbs.Relations.Append rel


'=== Create relations between parent table Employee and child table ReligionCoordinator ======

Set rel = dbs.CreateRelation("Relationship42")

rel.Table = "Employee"
rel.ForeignTable = "ReligionCoordinator"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeID", "EmployeeID")

dbs.Relations.Append rel


'=== Create relations between parent table Employee and child table Teacher ======

Set rel = dbs.CreateRelation("Relationship43")

rel.Table = "Employee"
rel.ForeignTable = "Teacher"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeID", "EmployeeID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeStatusCode and child table Employee ======

Set rel = dbs.CreateRelation("Employee_Status")

rel.Table = "EmployeeStatusCode"
rel.ForeignTable = "Employee"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeStatusCode", "EmployeeStatusCode")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeAcademicStatus and child table Employee ======

Set rel = dbs.CreateRelation("Employee_Academic_Status")

rel.Table = "EmployeeAcademicStatus"
rel.ForeignTable = "Employee"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeAcademicStatusID", "EmployeeAcademicStatusID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeCredential and child table Employee ======

Set rel = dbs.CreateRelation("has_earned_was_earned_by")

rel.Table = "EmployeeCredential"
rel.ForeignTable = "Employee"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeCredentialID", "EmployeeCredentialID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeType and child table Teacher ======

Set rel = dbs.CreateRelation("is_of_employee_type")

rel.Table = "EmployeeType"
rel.ForeignTable = "Teacher"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeTypeID", "EmployeeTypeID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeType and child table Principal ======

Set rel = dbs.CreateRelation("Relationship32")

rel.Table = "EmployeeType"
rel.ForeignTable = "Principal"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeTypeID", "EmployeeTypeID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeType and child table ReligionCoordinator ======

Set rel = dbs.CreateRelation("Relationship33")

rel.Table = "EmployeeType"
rel.ForeignTable = "ReligionCoordinator"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeTypeID", "EmployeeTypeID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeTypePrefix and child table EmployeeType ======

Set rel = dbs.CreateRelation("Relationship10")

rel.Table = "EmployeeTypePrefix"
rel.ForeignTable = "EmployeeType"
rel.Attributes = 0

Call AddFieldToRelation("EmpTypePrefixID", "EmpTypePrefixID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeTypeAdmin and child table EmployeeType ======

Set rel = dbs.CreateRelation("Relationship11")

rel.Table = "EmployeeTypeAdmin"
rel.ForeignTable = "EmployeeType"
rel.Attributes = 0

Call AddFieldToRelation("EmpTypeAdminID", "EmpTypeAdminID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeTypeEDU and child table EmployeeType ======

Set rel = dbs.CreateRelation("Relationship13")

rel.Table = "EmployeeTypeEDU"
rel.ForeignTable = "EmployeeType"
rel.Attributes = 0

Call AddFieldToRelation("EmpTypeEduID", "EmpTypeEduID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeTypeSpecial and child table EmployeeType ======

Set rel = dbs.CreateRelation("Relationship14")

rel.Table = "EmployeeTypeSpecial"
rel.ForeignTable = "EmployeeType"
rel.Attributes = 0

Call AddFieldToRelation("EmpTypeSpecID", "EmpTypeSpecID")

dbs.Relations.Append rel


'=== Create relations between parent table EmployeeTypeDepartment and child table EmployeeType ======

Set rel = dbs.CreateRelation("Relationship15")

rel.Table = "EmployeeTypeDepartment"
rel.ForeignTable = "EmployeeType"
rel.Attributes = 0

Call AddFieldToRelation("EmptTypeDeptID", "EmptTypeDeptID")

dbs.Relations.Append rel


'=== Create relations between parent table Principal and child table School ======

Set rel = dbs.CreateRelation("Relationship52")

rel.Table = "Principal"
rel.ForeignTable = "School"
rel.Attributes = 0

Call AddFieldToRelation("PrincipalID", "PrincipalID")

dbs.Relations.Append rel


'=== Create relations between parent table ReligionCoordinator and child table School ======

Set rel = dbs.CreateRelation("Relationship53")

rel.Table = "ReligionCoordinator"
rel.ForeignTable = "School"
rel.Attributes = 0

Call AddFieldToRelation("ReligionCoordID", "ReligionCoordID")

dbs.Relations.Append rel


'=== Create relations between parent table Teacher and child table ReligionTeachers ======

Set rel = dbs.CreateRelation("teaches_is_required_to_attend_workshops")

rel.Table = "Teacher"
rel.ForeignTable = "ReligionTeachers"
rel.Attributes = 0

Call AddFieldToRelation("EmployeeID", "EmployeeID")
Call AddFieldToRelation("TeacherTypeID", "TeacherTypeID")

dbs.Relations.Append rel


'=== Create relations between parent table TeacherType and child table Teacher ======

Set rel = dbs.CreateRelation("Relationship51")

rel.Table = "TeacherType"
rel.ForeignTable = "Teacher"
rel.Attributes = 0

Call AddFieldToRelation("TeacherTypeID", "TeacherTypeID")

dbs.Relations.Append rel


'=== Create relations between parent table Grade and child table TeacherType ======

Set rel = dbs.CreateRelation("grade_level_taught_teaches_grade_level")

rel.Table = "Grade"
rel.ForeignTable = "TeacherType"
rel.Attributes = 0

Call AddFieldToRelation("GradeID", "GradeID")

dbs.Relations.Append rel


'=== Create relations between parent table Subject and child table TeacherType ======

Set rel = dbs.CreateRelation("is_taught_by_teaches")

rel.Table = "Subject"
rel.ForeignTable = "TeacherType"
rel.Attributes = 0

Call AddFieldToRelation("SubjectID", "SubjectID")

dbs.Relations.Append rel


'=== Create relations between parent table PrimarySubjectCategory and child table Subject ======

Set rel = dbs.CreateRelation("is_the_first_part_of")

rel.Table = "PrimarySubjectCategory"
rel.ForeignTable = "Subject"
rel.Attri

 

[MajP]

My first guess would be to ensure that you have a reference to DAO (data access objects). In vb editor go to Tools>references and look for DAO. Since it is 2000 you will get ADO by default and not DAO.

I am not so certain that is the problem because I would expect to get an error here:
Set dbs = CurrentDb()
Since this is a DAO method not an ADO method.

But here:
Set tdf = dbs.TableDefs("Employee")
you would expect to get a "obj not set error" because without the reference to DAO the variable DBS wil not be set.

 

[mjstone323]

Hi MajP -

I've been careful to select DAO in References - the instructions that prefix the code (item #4) do say to select that.

It's interesting - I also posted this on another forum and someone said the same thing - I wonder if there's a problem with Access 2000? I remember seeing something about a bug but it didn't sound like my situation... I'll go back and research that again. Thanks very much for your reply.