|
|
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Подскажите где можно посмотреть пример, как реализованна следующая вещь Мне нужно сделать так. Вот есть форма(form1),в ней есть подчененная форма (fomr2)источником данных (Form2)таблица или хран. проц Форма(form2)-вид режим таблицы на form1 есть поле . Мне нужно что бы когда я ввожу в поле букву, то курсор передвигался на соот-щую запись в (Form2) которая имеет равную букву Ну например у меня отображаются в форме2 названия горожов в виде таблицы. В поле Набираю "М" - курсор передвигается на запись у которой первая буква "М". Далее добавляю с "М" букву "о", курсор уже переходит за запись которая имеет "Мо" и т.д ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 14:48 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
А может, лучше не курсор передвигать, а убирать все записи, в которых нет этих букв? Тогда можно через фильтр. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 15:22 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Это я знаю, а вот хотелось бы именно так ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 15:27 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Form2.RecordsetClone.FindFirst ... Form2.Bookmark = Form2.RecordsetClone.Bookmark Вдруг прокатит. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 15:29 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Ну и? В чем проблема-то? Найти нужную запись не можешь? Или встать на нее? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 15:30 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
>Form2.RecordsetClone.FindFirst ... через Seek горааааздо быстрее ищется, только индекс нужен. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 15:34 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Нужно именно передвинуться на эту запись не просто сделать так что бы отобразилась только соот-щая запись, а что бы курсор перешел на эту запись и при этом что бы набор записей из таблицы не исчезли ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 15:35 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Ну, дык Form2.Bookmark = Form2.RecordsetClone.Bookmark от 15:29. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 15:38 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Сори за глупый вопрос, но что пишется за FindFirst ? Form2.RecordsetClone.FindFirst ... Form2.Bookmark = Form2.RecordsetClone.Bookmark ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 16:03 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
А если не mdb , а adp ? Разницы нет? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 16:11 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
У меня adp SQL2000 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 16:16 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
А в ответ тишина..... :-((( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 16:43 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
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 тебе поможет ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 16:49 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
Тогда уж не KeyPress, а Change ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.07.2003, 16:52 |
|
||
|
Переход на запись
|
|||
|---|---|---|---|
|
#18+
такие топики часто встречаются нада собрать предложения для FAQ 2Dmit позициониравание таким способом выглядит привлекательным только при первом взгляде. при работ стоновится очень неудобно. список на практике это наименование товара, название фирм, фамилии. если список (таблица) состоит из более 200 записей они как правило отсортированы по алфавиту. на примере названий товара (допустим радиотовары, список как правило ~3000 записей, хотя гнать на клиента более 100 записей не имеет смыла.). итак. требуется найти найти (встатьна запись, позиционироваться) телевизор конкретной фирмы. названия к примеру следующей структуры «телевизор фирма марка диагональ» при позиционировании по первым буквам придется набрать «телевизор» и т.д. производится неиформативный набор множества букв. для того чтобы из всего списка выбрать все телевизоры достаточно набрать «виз» . т.к во всем списке мало вероятно что такое сочетание встретится еще в каком-либо товаре кроме телевизоров. чтобы из всех телевизоров отобрать только тужной фирмы – набираем 2-3 буквы из названия фирмы добавляем диагональ – из списка ~3000. получим ~5-7 строк. 1вариант есть поле со списком набирает виз ХХХ NN (только самые инфомативные символы из названия) отправляем на сервер ХП с парам. для подформы и получем пдформу с малым числом строк 2 вариант есть поле со списком подформа c NNN записями набирает виз ХХХ NN (только самые инфомативные символы из названия) делаем условие для поиска поиск перемещение на указанную запись варианты опробованы работают прекрасно и для mdb и для ADP/ ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.07.2003, 08:56 |
|
||
|
|

start [/forum/topic.php?fid=45&msg=32198631&tid=1680730]: |
0ms |
get settings: |
7ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
66ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
66ms |
get tp. blocked users: |
1ms |
| others: | 221ms |
| total: | 402ms |

| 0 / 0 |
