Здравствуйте!
Есть форма, на которой размещен элемент "Свободный список", содержащий фамилии из таблицы КЛИЕНТЫ. Надо выбрать из этого списка фамилию, считать ее анкетный номер и найти этот номер в другой таблице.
Вот мой код:
Option Compare Database
Option Explicit
' В Е Т К А "С Т А Р Ы Й К Л И Е Н Т"
Private Sub Список6_AfterUpdate()
Dim rst6 As Object, anknom As Long
Set rst6 = Me.Recordset.Clone
With rst6
.MoveLast
.MoveFirst
.FindFirst "[АнкетныйНомер]=" & Str(Nz(Me![Список6], 0))
Me.Bookmark = .Bookmark
anknom = АнкетныйНомер
DoCmd.OpenForm "frmЗаказы", , , "tblКЛИЕНТЫ.АнкетныйНомер=" & anknom
End With
rst6.Close
End Sub

Выдается ошибка Variable not defined в строке anknom = АнкетныйНомер (подсвечивается АнкетныйНомер). Чего ей не так-то????

http://www.sql.ru/forum/1080525/vybor-stroki-iz-svobodnogo-spiska