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

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

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

Form2.Bookmark = Form2.RecordsetClone.Bookmark

от 15:29.
...
Рейтинг: 0 / 0
Переход на запись
    #32198675
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Сори за глупый вопрос, но что пишется за FindFirst ?
Form2.RecordsetClone.FindFirst ...
Form2.Bookmark = Form2.RecordsetClone.Bookmark
...
Рейтинг: 0 / 0
Переход на запись
    #32198693
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А если не mdb , а adp ? Разницы нет?
...
Рейтинг: 0 / 0
Переход на запись
    #32198705
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня adp SQL2000
...
Рейтинг: 0 / 0
Переход на запись
    #32198774
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А в ответ тишина..... :-(((
...
Рейтинг: 0 / 0
Переход на запись
    #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
Переход на запись
    #32198792
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тогда уж не KeyPress, а Change
...
Рейтинг: 0 / 0
Переход на запись
    #32199232
вадя
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
такие топики часто встречаются нада собрать предложения для FAQ

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

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

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


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