Две АБСОЛЮТНО одинаоквые программки:
первый текст в
Private Sub Form_Open
(открывает форму Town)


второй, такой же, в
Private Sub Town_AfterUpdate()
(после выбора в списке в той же форме)

здесь пишет
no current record

вот текст:


Private Sub Town_AfterUpdate()
Dim MyDatabase As Database, MyTable As Recordset
Dim MyTableDef As TableDef, MyField As Field, MyIndex As Index
Dim Студент As Integer
Dim Город As String
Dim Town As String


Set MyDatabase = DBEngine.Workspaces(0).Databases(0)


Town = (Forms!Форма11!Town) ' Значение Town допустимое, проверял!

Set MyTable = CurrentDb.OpenRecordset("SELECT TOP 1 * FROM Студенты WHERE (((Студенты.Город) = """ & Town & """));", dbOpenDynaset)

'запрос правильный, в первой проге работает!

Me![Студент] = MyTable(Студент) ' здесь, после запроса ругается - no current record


MyTable.Close

End Sub


Helppls!