Помогите разобраться на примере из Борея: есть форма «Заказы», где выбираются товары с помощью поля со списком. Мне надо, чтобы в этом списке поиск товаров производился не по начальным, а по любым символам. Т.е. в поле со списком выбирались все товары, где есть такие символы.
Вставила в источник строк для поля со списком в подчиненной форме заказов
Like "*" & [Forms]![Подчиненная форма заказов]![КодТовара] & "*".
Теперь для поиска нужно каждый раз открывать форму. И вообще чего-то не хватает.
Вопрос уже задавала, но что-то не пошло.

Ну пароль забыла.
А вообще, хотелось бы ответа по-существу.

Нашла готовую процедуру с инструкциями:
Public varStr As Variant

Public Sub AlternativeAutoExpand(ctl As Control, tbl As TableDef, fldID As Field, fldName As Field, KeyAscii As Integer)
Dim strSQL As String

If ctl <> Null Then Exit Sub
If KeyAscii = 13 Then Exit Sub
If KeyAscii = 9 Then
varStr = "*"
GoTo Zapros
ElseIf varStr = "*" Then
varStr = Null
End If

If KeyAscii = 8 Then
If varStr = "" Then GoTo varstrNull
varStr = Left(varStr, Len(varStr) - 1)
GoTo Zapros
Else
If KeyAscii = 27 Then GoTo varstrNull
varStr = varStr & Chr$(KeyAscii)
Zapros:
strSQL = "SELECT " & tbl.Name & ".[" & fldID.Name & "]," & tbl.Name & ".[" & fldName.Name & "]"
strSQL = strSQL & " FROM " & tbl.Name & " "
strSQL = strSQL & "WHERE ((( " & tbl.Name & ".[" & fldName.Name & "]) Like '*" & varStr & "*'));"
ctl.RowSource = strSQL
SendKeys "%{DOWN}", True
End If
Exit Sub
varstrNull:
varStr = ""
End Sub

В форме в которой находится TextBox в событие [Вход] и [Нажатие клавиши] скопировать код предварительно заменив названия таблицы, полей и TextBox.
Private Sub ComboBoxName_Enter()
varStr = Null
End Sub

Private Sub ComboBoxName_KeyPress(KeyAscii As Integer)
Dim tbl As TableDef, db As Database
Dim fldID As Field, fldName As Field
Dim ctl As Control
Set db = CurrentDb()
Set tbl = db.TableDefs("TableName")
Set fldID = tbl.Fields("FieldIDName")
Set fldName = tbl.Fields("FieldName")
Set ctl = Me.ComboBoxName

AlternativeAutoExpand ctl, tbl, fldID, fldName, KeyAscii
End Sub
Данный пример работает в случае если в свойствах Поля со списком:
Количество столбцов = 2
Первый столбец имеет нулевую длину
Для других условий надо изменять код.

Мои вопросы:

Что делаю не так. Мои действия:

1.Создала таблицу – TableName
Поля: FieldIDName
FieldName
2. Сделала Форму со списком:
В свойствах: Данные - FieldName
Источник строк- TableName
3. Нажимаю «Программа» и копирую процедуру.
4. Копирую коды в события Вход и Нажатие клавиши.

И что-то не получается. Показывает ошибку в строке:

varStr = varStr & Chr$(KeyAscii)

Вопросы убойные. Сама знаю. Но с такими знаниями на форум обращаются не так уж часто, так что поддержите. Стараюсь ведь. И надо очень.

Invalid procedure call or argument (Error 5)
Неправильная процедура или аргумент (Ошибка 5)

1086 равно. Что бы это значило...

?chrw(1086)
о


Это что, ответ?

Получилось. А я уже и не ожидала. Спасибо!
А что значат цифры 13, 9 ?

If KeyAscii = 13 Then Exit Sub
If KeyAscii = 9 Then
varStr = "*"

Просто хочется разобраться.

Спасибо!
Хорошо быть :^) !