Кнопочная форма

[Pashka_k-r]

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

Вы так хотели связать контролы?

Да, спасибо вам огромное!) Вы мне очень помогли.

[Teslenko_EA]

Здравствуйте Pashka_k-r.
".. почему у меня не получается.."
..WHERE №_читательского_билета= - знак равенства подразумевает сравнение со скалярным значением.
SELECT №_читательского_билета FROM .. - может вернуть множество или ничего при отсутствии записей.
Правильная конструкция может выглядеть так:
..WHERE №_читательского_билета In(SELECT..

Ваша задача "..при выборе .. из Автора, должны появляться .. студенты.." может решаться подобным кодом:

Private Sub ПолеСоСписком38_BeforeUpdate(Cancel As Integer)
Const sQ = "SELECT T2.Код_книги, T2.№_зала, T2.ФИО_автора, T2.№_читательского_билета, T1.Фамилия_Имя_Отчество " + _
"FROM Читатели T1 INNER JOIN Книги T2 ON T1.№_читательского_билета = T2.№_читательского_билета " + _
"WHERE (T1.Фамилия_Имя_Отчество)<>'Дожкина Марина Владиславовна' "
Const sQ2 = "ORDER BY №_зала"
Dim s$
s = ПолеСоСписком38 & ""
If Not Len(s) = 0 Then s = "AND T2.ФИО_автора ='" + s + "' "
Список36.RowSource = sQ + s + sQ2
End Sub

Евгений.

[Pashka_k-r]

Спасибо вам Евгений! Все работает.