Question

Добрый вечер, товарищи, прошу помочь мне с написанием данного кода. Дело в том, что при написании этого нужно чтобы
После выбора группы должны выводиться студенты этой группы, то бишь имена студентов. В лабораторной работе говорится "В поле Groups, в событии «После обновления» задайте аналогичный код с единственной разницей – после формирования recordset на основе процедуры SP_Students перед открытием rst уберите строку

rst.CursorLocation = adUseClient

и объявите источник записей для формы:

Set Me.Recordset = rst"

Но проблема заключается в том, что она не работает. Прошу помочь ​

Answer 1

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.