Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход на запись / 15 сообщений из 15, страница 1 из 1
03.07.2003, 14:48
    #32198531
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Подскажите где можно посмотреть пример, как реализованна следующая вещь
Мне нужно сделать так.
Вот есть форма(form1),в ней есть подчененная форма (fomr2)источником данных (Form2)таблица или хран. проц Форма(form2)-вид режим таблицы
на form1 есть поле . Мне нужно что бы когда я ввожу в поле букву, то курсор передвигался на соот-щую запись в (Form2) которая имеет равную букву
Ну например у меня отображаются в форме2 названия горожов в виде таблицы.
В поле Набираю "М" - курсор передвигается на запись у которой первая буква "М". Далее добавляю с "М" букву "о", курсор уже переходит за запись которая имеет "Мо" и т.д
...
Рейтинг: 0 / 0
03.07.2003, 15:22
    #32198583
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
А может, лучше не курсор передвигать, а убирать все записи, в которых нет этих букв? Тогда можно через фильтр.
...
Рейтинг: 0 / 0
03.07.2003, 15:27
    #32198598
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Это я знаю, а вот хотелось бы именно так
...
Рейтинг: 0 / 0
03.07.2003, 15:29
    #32198603
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Form2.RecordsetClone.FindFirst ...
Form2.Bookmark = Form2.RecordsetClone.Bookmark

Вдруг прокатит.
...
Рейтинг: 0 / 0
03.07.2003, 15:30
    #32198607
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Ну и?
В чем проблема-то?
Найти нужную запись не можешь? Или встать на нее?
...
Рейтинг: 0 / 0
03.07.2003, 15:34
    #32198621
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
>Form2.RecordsetClone.FindFirst ...

через Seek горааааздо быстрее ищется, только индекс нужен.
...
Рейтинг: 0 / 0
03.07.2003, 15:35
    #32198622
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Нужно именно передвинуться на эту запись
не просто сделать так что бы отобразилась только соот-щая запись, а что бы курсор перешел на эту запись и при этом что бы набор записей из таблицы не исчезли
...
Рейтинг: 0 / 0
03.07.2003, 15:38
    #32198631
Владимир Саныч
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Ну, дык

Form2.Bookmark = Form2.RecordsetClone.Bookmark

от 15:29.
...
Рейтинг: 0 / 0
03.07.2003, 16:03
    #32198675
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Сори за глупый вопрос, но что пишется за FindFirst ?
Form2.RecordsetClone.FindFirst ...
Form2.Bookmark = Form2.RecordsetClone.Bookmark
...
Рейтинг: 0 / 0
03.07.2003, 16:11
    #32198693
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
А если не mdb , а adp ? Разницы нет?
...
Рейтинг: 0 / 0
03.07.2003, 16:16
    #32198705
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
У меня adp SQL2000
...
Рейтинг: 0 / 0
03.07.2003, 16:43
    #32198774
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
А в ответ тишина..... :-(((
...
Рейтинг: 0 / 0
03.07.2003, 16:49
    #32198782
Nick987
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Private Sub Клиент_KeyPress(KeyAscii As Integer)
If KeyAscii > 32 Then
Forms![Клиенты].[СписокКлиентов].Form.Recordset.MoveFirst
Forms![Клиенты].[СписокКлиентов].Form.Recordset.Find "[Клиент] like '" & ChrW(KeyAscii) & "*'"
End If
End Sub

ищет клиента по первой букве.
измени код, если хочешь, чтобы искало по нескольким буквам.
static тебе поможет
...
Рейтинг: 0 / 0
03.07.2003, 16:52
    #32198792
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
Тогда уж не KeyPress, а Change
...
Рейтинг: 0 / 0
04.07.2003, 08:56
    #32199232
вадя
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на запись
такие топики часто встречаются нада собрать предложения для FAQ

2Dmit
позициониравание таким способом выглядит привлекательным только при первом взгляде. при работ стоновится очень неудобно. список на практике это наименование товара, название фирм, фамилии.
если список (таблица) состоит из более 200 записей они как правило отсортированы по алфавиту. на примере названий товара (допустим радиотовары, список как правило ~3000 записей, хотя гнать на клиента более 100 записей не имеет смыла.).
итак. требуется найти найти (встатьна запись, позиционироваться) телевизор конкретной фирмы.
названия к примеру следующей структуры «телевизор фирма марка диагональ»
при позиционировании по первым буквам придется набрать «телевизор» и т.д.
производится неиформативный набор множества букв. для того чтобы из всего списка выбрать все телевизоры достаточно набрать «виз» . т.к во всем списке мало вероятно что такое сочетание встретится еще в каком-либо товаре кроме телевизоров.
чтобы из всех телевизоров отобрать только тужной фирмы – набираем 2-3 буквы из названия фирмы добавляем диагональ – из списка ~3000. получим ~5-7 строк.
1вариант
есть поле со списком
набирает виз ХХХ NN
(только самые инфомативные символы из названия)
отправляем на сервер ХП с парам. для подформы и получем пдформу с малым числом строк

2 вариант
есть поле со списком подформа c NNN записями
набирает виз ХХХ NN
(только самые инфомативные символы из названия)
делаем условие для поиска
поиск
перемещение на указанную запись

варианты опробованы работают прекрасно и для mdb и для ADP/
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Переход на запись / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]