Автоматическое заполнение поля таблицы бд Студенты

@АлександрКом · Регистрация: 21.10.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Имеется таблица Распределение по семестрам, в которой нужно программно заполнить поле Преподаватель. Преподаватель берется из запроса Преподаватель_с_мин_нагрузкой.
Написал вот такой код, (возможно есть и другие ошибки) но пока что не получается занести значение в поле таблицы Распределение по семестрам:

Visual Basic

Private Sub Подстановка_Click()
Dim rs As Recordset
Dim p As String
Dim sql1 As String
 
Set rs = CurrentDb.OpenRecordset("Распределение по семестрам")
rs.MoveFirst
Do While Not rs.EOF
p = rs("Дисциплина")
sql1 = " SELECT Преподаватель_с_мин_нагрузкой.[Преподаватель] " _
& " FROM Преподаватель_с_мин_нагрузкой WHERE (((Преподаватель_с_мин_нагрузкой.Дисциплина)=p))"
rs.Edit
rs("Преподаватель") = sql1(0) 'может быть несколько преподавателей, заношу первого в списке
rs.Update
rs.MoveNext
Loop
 
rs.Close
Set rs = Nothing
End Sub

@АлександрКом · 11.10.2015, 23:36 **[ТС]**

Странно, но ни один из вариантов не убрал ошибку

Добавлено через 5 минут
Открыл проверить запрос, там пусто.
Написал

Visual Basic

1 2	If Isnull(rs("Номер группы")) Then MsgBox "Расписание составлено верно!" Else

но в результате запуска программа идет по ветке else
Написав

Visual Basic

1	If Len(rs("Номер группы") & "")=0 Then

ошибка -текущая запись отсутствует

mobile · 11.10.2015, 23:40

Сообщение от АлександрКом

ни один из вариантов не убрал ошибк

Это потому, что пустой рекордсет не NULL. Там вообще нет ничего. В этом случае рекордсет сразу показывает конец набора записей EOF

Visual Basic

1 2	If rs.EOF Then MsgBox "Расписание составлено верно!" Else

@АлександрКом · 11.10.2015, 23:44 **[ТС]**

Сообщение от mobile

В этом случае рекордсет сразу показывает конец набора записей EOF

Спасибо за помощь, теперь буду знать

@АлександрКом · 12.10.2015, 00:22 **[ТС]**

Проблему, записанную в топике темы, решил следующим образом

Visual Basic

Private Sub Подстановка_Click()
Dim rs As Recordset
Dim p As String
Dim k1
 
Set rs = CurrentDb.OpenRecordset("Распределение по семестрам")
rs.MoveFirst
 
Do While Not rs.EOF
p = rs("Дисциплина")
k1 = DLookup("Преподаватель", "Преподаватель_с_мин_нагрузкой", "Дисциплина='" & p & "'")
rs.Edit
rs("Преподаватель") = k1
rs.Update
rs.MoveNext
Loop
 
rs.Close
Set rs = Nothing
End Sub

Но обнаружил другую проблему.
В запросе НагрузкаПреподавателей я вывожу Имя преподавателя и число, отражающее его нагрузку. Но может быть так, что какой-то из преподавателей вообще ничего не ведет, и тогда получается, что его нагрузка 0. У меня этого не было отражено в данном запросе, но я реализовал это в запросе нагрузкаСнулями.
Осталась лишь одна трудность: нужно сделать так, чтобы пустые ячейки поля Нагрузка заменились на 0.

mobile · 12.10.2015, 00:43

Сообщение от АлександрКом

Осталась лишь одна трудность: нужно сделать так, чтобы пустые ячейки поля Нагрузка заменились на 0.

Достигается функцией NZ над полем. Смотрите запрос с нуллами.

Заодно исправил в форме ИсправитьРасписание ошибку в комбо [замена]. Когда выходишь из этого поля и возвращаешься вновь, то ошибка, мол нет источника строк. И действительно, источник уничтожался на событии выхода из поля (Exit). Закомментировал весь код процедуры.

@АлександрКом · 12.10.2015, 01:08 **[ТС]**

Отдельное спасибо за комбо, проверил - действительно была ошибка.

Добавлено через 7 минут
И снова нашел промах

Если несколько преподавателей одной и той же дисциплины имеют одинаковую минимальную занятость, то после получения списка этих преподавателей

Visual Basic

1	k1 = DLookup("Преподаватель", "Преподаватель_с_мин_нагрузкой", "Дисциплина='" & p & "'")

необходимо проверить, что текущее значение поля Преподаватель не равно ни одному из списка k1 и только потом уже производить назначение. А если же равенство есть, то ничего делать не надо.
Не получается сравнить rs("Преподаватель") с данными из k1. Можете подсказать, что необходимо сделать?

mobile · 12.10.2015, 01:59

Сообщение от АлександрКом

Если несколько преподавателей одной и той же дисциплины имеют одинаковую минимальную занятость, то после получения списка этих преподавателей

Visual Basic

1	k1 = DLookup("Преподаватель", "Преподаватель_с_мин_нагрузкой", "Дисциплина='" & p & "'")

необходимо проверить, что текущее значение поля Преподаватель не равно ни одному из списка k1 и только потом уже производить назначение. А если же равенство есть, то ничего делать не надо.

Создал новый запрос [missingTeacher] который находит преподавателей из [Преподаватель_с_мин_нагрузкой], отсутствующих в запросе [Распределение по семестрам]. В процедуре Подстановка_Click опрашивается этот запрос и, если поле freeTeacher (это поле Преподаватель из запроса Преподаватель_с_мин_нагрузкой) пустое, то полю рекордсета присваивается значение поля Преподаватель.

@АлександрКом · 12.10.2015, 20:25 **[ТС]**

Спасибо большое за предложенный вариант решения!
Только одна поправка:

Сообщение от mobile

В процедуре Подстановка_Click опрашивается этот запрос и, если поле freeTeacher (это поле Преподаватель из запроса Преподаватель_с_мин_нагрузкой) пустое, то полю рекордсета присваивается значение поля Преподаватель.

Должно быть наоборот, т.е. в случае пустого поля не должен назначаться Преподаватель, т.к. пустое поле значит, что данного преподавателя нет в списке с минимальной нагрузкой.
Поэтому записал вот так:

Visual Basic

 Set rs = db.OpenRecordset("Распределение по семестрам")
    rs.MoveFirst
    
    Do While Not rs.EOF
        p = rs("Дисциплина")
        
        With db.OpenRecordset("select * from missingTeacher where Дисциплина='" & p & "'")
           
        If IsNull(!freeTeacher) Then
                
        Else
                rs.Edit
                rs("Преподаватель") = !Преподаватель
                rs.Update
            End If
        End With
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
 
End Sub

Но почему-то после выполнения всех процедур преподаватели не меняются

Что опять я не так написал?

Добавлено через 1 час 19 минут
Сделал вот так. Ошибок, вроде, нет

Visual Basic

Private Sub Подстановка_Click()
Dim rs As Recordset
Dim rrss As Recordset
Dim p As String
Dim a As Integer
 
 
Set rs = CurrentDb.OpenRecordset("Распределение по семестрам")
rs.MoveFirst
 
Do While Not rs.EOF
    p = rs("Дисциплина")
        Set rrss = CurrentDb.OpenRecordset("select * from Преподаватель_с_мин_нагрузкой where Дисциплина='" & p & "'")
        rrss.MoveFirst
 
        Do While Not rrss.EOF
    
        If rs("Преподаватель") = rrss("ФИО преподавателя") Then
        a = a + 1
        End If
 
        rrss.MoveNext
        Loop
 
    If a > 0 Then
        a = 0
    Else
        rrss.MoveFirst
        rs.Edit
        rs("Преподаватель") = rrss("ФИО преподавателя")
        rs.Update
    End If
 
    rrss.Close
    Set rrss = Nothing
    rs.MoveNext
Loop
 
rs.Close
Set rs = Nothing
MsgBox "Преподаватели назаначены!"
End Sub

@АлександрКом 1281 / 912 / 446 Регистрация: 21.10.2012 Сообщений: 2,589
	11.10.2015, 23:44 [ТС]	23
	Сообщение от mobile В этом случае рекордсет сразу показывает конец набора записей EOF Спасибо за помощь, теперь буду знать 0