Pastein: Sub CreateDatabaseStructure() On Error Resume Next Dim db As Database Set db = CurrentDb ' 1. ФАКУЛЬТЕТЫ db.Execute "CREATE TABLE ФАКУЛЬТЕТЫ (КОД

Загрузка данных
Sub CreateDatabaseStructure()
    On Error Resume Next
    Dim db As Database
    Set db = CurrentDb
    
    ' 1. ФАКУЛЬТЕТЫ
    db.Execute "CREATE TABLE ФАКУЛЬТЕТЫ (КОД_ФКТ TEXT(2) PRIMARY KEY, ФАКУЛЬТЕТ TEXT(30), ЭКЗАМЕН_1 TEXT(30), ЭКЗАМЕН_2 TEXT(30), ЭКЗАМЕН_3 TEXT(30));"
    db.Execute "INSERT INTO ФАКУЛЬТЕТЫ VALUES ('01', 'Экономический', 'математика', 'география', 'русский язык');"
    db.Execute "INSERT INTO ФАКУЛЬТЕТЫ VALUES ('02', 'Исторический', 'история Отечества', 'иностранный язык', 'сочинение');"
    db.Execute "INSERT INTO ФАКУЛЬТЕТЫ VALUES ('03', 'Юридический', 'русский язык', 'иностранный язык', 'обществознание');"

    ' 2. СПЕЦИАЛЬНОСТИ
    db.Execute "CREATE TABLE СПЕЦИАЛЬНОСТИ (КОД_СПЕЦ TEXT(3) PRIMARY KEY, СПЕЦИАЛЬНОСТЬ TEXT(30), КОД_ФКТ TEXT(2), ПЛАН LONG);"
    db.Execute "INSERT INTO СПЕЦИАЛЬНОСТИ VALUES ('101', 'Финансы и кредит', '01', 25);"
    db.Execute "INSERT INTO СПЕЦИАЛЬНОСТИ VALUES ('102', 'Бухгалтерский учет', '01', 40);"
    db.Execute "INSERT INTO СПЕЦИАЛЬНОСТИ VALUES ('201', 'История', '02', 50);"
    db.Execute "INSERT INTO СПЕЦИАЛЬНОСТИ VALUES ('203', 'Политология', '02', 25);"
    db.Execute "INSERT INTO СПЕЦИАЛЬНОСТИ VALUES ('310', 'Юриспруденция', '03', 60);"
    db.Execute "INSERT INTO СПЕЦИАЛЬНОСТИ VALUES ('311', 'Социальная работа', '03', 25);"

    ' 3. АБИТУРИЕНТЫ
    db.Execute "CREATE TABLE АБИТУРИЕНТЫ (РЕГ_НОМ TEXT(4) PRIMARY KEY, КОД_СПЕЦ TEXT(3), МЕДАЛЬ YESNO, СТАЖ INT);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('1012', '101', True, 1);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('1023', '101', False, 0);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('1119', '102', True, 0);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('1120', '102', True, 0);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('2010', '201', False, 0);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('2015', '203', False, 3);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('2054', '203', True, 2);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('2132', '201', False, 0);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('3005', '310', False, 0);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('3034', '311', False, 1);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('3067', '310', False, 3);"
    db.Execute "INSERT INTO АБИТУРИЕНТЫ VALUES ('3118', '310', False, 2);"

    ' 4. АНКЕТЫ
    db.Execute "CREATE TABLE АНКЕТЫ (РЕГ_НОМ TEXT(4), ФАМИЛИЯ TEXT(30), ИМЯ TEXT(20), ОТЧЕСТВО TEXT(20), ГОРОД TEXT(30), ДАТА_РОЖД DATETIME, УЧ_ЗАВЕДЕНИЕ TEXT(50));"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('1012', 'Васильева', 'Ольга', 'Николаевна', 'Пермь', #10/12/1981#, 'ПТУ № 8');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('1023', 'Быков', 'Алексей', 'Ильич', 'Кунгур', #04/24/1982#, 'Школа № 7');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('1119', 'Круг', 'Борис', 'Моисеевич', 'Пермь', #09/18/1982#, 'Школа № 102');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('1120', 'Листьев', 'Дмитрий', 'Владимирович', 'Березники', #12/01/1981#, 'Школа № 5');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('2010', 'Елькин', 'Виктор', 'Алексеевич', 'Елабуга', #07/20/1982#, 'ПТУ № 1');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('2015', 'Мухин', 'Олег', 'Иванович', 'Березники', #03/25/1978#, 'Школа № 77');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('2054', 'Григорьева', 'Наталья', 'Дмитриевна', 'Пермь', #02/14/1980#, 'Школа № 3');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('2132', 'Зубова', 'Ирина', 'Афанасьевна', 'Пермь', #11/22/1981#, 'Школа № 96');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('3005', 'Анохин', 'Сергей', 'Петрович', 'Пермь', #03/30/1982#, 'Школа № 12');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('3034', 'Жакин', 'Николай', 'Якимович', 'Пермь', #10/19/1981#, 'Школа № 12');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('3067', 'Дикий', 'Илья', 'Борисович', 'Березники', #12/28/1977#, 'Школа № 3');"
    db.Execute "INSERT INTO АНКЕТЫ VALUES ('3118', 'Ильин', 'Петр', 'Викторович', 'Кунгур', #07/14/1980#, 'ПТУ № 8');"

    ' 5. ОЦЕНКИ
    db.Execute "CREATE TABLE ОЦЕНКИ (РЕГ_НОМ TEXT(4) PRIMARY KEY, Оценка_1 BYTE, Оценка_2 BYTE, Оценка_3 BYTE);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('1012', 4, 5, 5);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('1023', 4, 4, 4);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('1119', 5, 5, 5);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('1120', 3, 5, 5);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('2010', 3, 2, 0);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('2015', 5, 5, 5);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('2054', 4, 5, 5);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('2132', 4, 3, 5);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('3005', 3, 0, 0);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('3034', 3, 3, 4);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('3067', 5, 4, 3);"
    db.Execute "INSERT INTO ОЦЕНКИ VALUES ('3118', 5, 5, 4);"

    ' 6. ИТОГИ
    db.Execute "CREATE TABLE ИТОГИ (РЕГ_НОМ TEXT(4) PRIMARY KEY, ЗАЧИСЛЕНИЕ YESNO);"
    db.Execute "INSERT INTO ИТОГИ SELECT РЕГ_НОМ, False FROM АБИТУРИЕНТЫ;"

    Application.RefreshDatabaseWindow
    MsgBox "База данных успешно сформирована!", vbInformation
End Sub
Больше возможностей при регистрации:
