Добрый вечер, товарищи, прошу помочь мне с написанием данного кода. Дело в том, что при написании этого нужно чтобы
После выбора группы должны выводиться студенты этой группы, то бишь имена студентов. В лабораторной работе говорится "В поле Groups, в событии «После обновления» задайте аналогичный код с единственной разницей – после формирования recordset на основе процедуры SP_Students перед открытием rst уберите строку
rst.CursorLocation = adUseClient
и объявите источник записей для формы:
Set Me.Recordset = rst"
Но проблема заключается в том, что она не работает. Прошу помочь
![](https://st.uroker.com/files/f15/f1593a48a425d4a2665ea0a6961eb186.jpg)
Ответы
Private Sub <link>Group_AfterUpdate</link>()
Call <link>Connect</link>
Dim rst As Object
Set rst = CreateObject("ADODB.Recordset")
rst.ActiveConnection = <link>CurrentProject.Connection</link>
rst.Source = "EXECUTE SP_Groups '" & Me.<link>Speciality</link> & "'"
rst.Open
Set Me.<link>Recordset</link> = rst
Set Me![<link>Group</link>].Recordset = rst
Set rst = Nothing
End Sub
Использование подходящего события AfterUpdate для события смены значения поля Group.
Определение объекта rst как Object и создание его с помощью CreateObject("ADODB.Recordset").
Установка активного соединения ActiveConnection как текущее соединение базы данных CurrentProject.Connection.
Использование кавычек вокруг значения Me.Speciality в строке SQL, чтобы обеспечить корректный синтаксис запроса.
Установка рекордсета формы Me.Recordset и поля Group на рекордсет rst.
Очистка объекта rst после использования с помощью Set rst = Nothing.