ReSQL.ru
     
powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск записи: вывести сообщение о завершении поиск
12 сообщений из 12, страница 1 из 1
Поиск записи: вывести сообщение о завершении поиск
    #33262364
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ukraina
Участник
Господа!
Для поиска записи использую код:

Код: plaintext
1.
2.
DoCmd.SelectObject acForm, "Phones" 
DoCmd.FindRecord Me.P, acAnywhere, , , False, acCurrent, False 
Me.SetFocus

Код работает, но вот незадачка: когда поиск завершен, то не выводит никакого сообщения...
Как можно вывести сообщение об этом, а то в данном случае ничего не происходит и все замирает на последней найденой записи?
...
Рейтинг: 0 / 0
10.09.2005, 01:48
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262439
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
msgbox?
...
Рейтинг: 0 / 0
10.09.2005, 12:19
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262632
Украина
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Украина
Гость
Саныч!
Це понятно, что меседжбоксом, но вот я не понял, как перехватить "нечто", что покажет, что перебор записей закончен? Т.е. например получить некий код завершения перехода по записям и если он таков, то вывести сообщение!?

Т.е. нужно получить некое условие канчания...
...
Рейтинг: 0 / 0
10.09.2005, 20:00
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262652
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А что перехватывать-то? Там же одна строчка кода. Пошло на следующую строчку - значит, закончило предыдущую.
...
Рейтинг: 0 / 0
10.09.2005, 20:28
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262694
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ukraina
Участник
Саныч!
Судя по всему до меню туго доходит (у меня и справка есть...)
А как перехватить момент, что на новую строчку уже не переходит. Возможно есть нечто, просто я привык, что например конец файла это EOF и я ставлю условие, типа если EOF тогда делай тотто; или типа если Фалсе то то-то, иначе это-то...
А здесь я не вижу как использовать заканчивание перехода
Саныч! Ну ты меня столько раз вытаскивал из страшных ситуаций, может опять повторишь свой подвиг? Подскажи (кодом), что значит
Код: plaintext
Пошло на следующую строчку - значит, закончило предыдущую
...
Рейтинг: 0 / 0
10.09.2005, 21:50
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262731
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
UkrainaА как перехватить момент, что на новую строчку уже не переходит. Возможно есть нечто, просто я привык, что например конец файла это EOF и я ставлю условие, типа если EOF тогда делай тотто; или типа если Фалсе то то-то, иначе это-то...
У тебя там что, цикл, что ли? Ты не всю программу привел?

UkrainaА здесь я не вижу как использовать заканчивание перехода
В конце концов, занеси в переменную значение ключа до этой команды, а после сравни: если ключ изменился, значит перешло.

UkrainaПодскажи (кодом),
.-- -. .. -- .- -. .. .
.--. . .-. . -.. .- ..--
-.- --- -..

Ukrainaчто значит
Код: plaintext
Пошло на следующую строчку - значит, закончило предыдущую

Вообще-то я имел в виду следующее:
Код: plaintext
1.
2.
DoCmd.FindRecord Me.P, acAnywhere, , , False, acCurrent, False 'первая строчка
MsgBox "Команда FindRecord исполнена!" 'вторая строчка
...
Рейтинг: 0 / 0
11.09.2005, 00:07
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262746
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ukraina
Участник
Говорил мне командир: Изучай азбуку Морзе - Пригодится!!! А я не слушался... Как далеко смотрел тот полковник!!! А ведь там наверно и есть решение проблемы...

В принципе идею понял, сейчас попробую
...
Рейтинг: 0 / 0
11.09.2005, 01:30
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262750
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ukraina
Участник
Скорее всего вопрос задал некооректно. Исправляюс и надеюсь это поможет...

Для поиска использую всплывающую форму, где есть строка шаблона поиска и две кнопки "Найти" и "Найти далее" (в общем аналог акцессовской системы поиска CTRL+F)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub KD_Click() ' Кнопка "Далее"

DoCmd.SelectObject acForm, mCallingForm.Name
DoCmd.FindRecord Me.P, acAnywhere, , , False, acCurrent, False

End Sub

Private Sub KS_Click() ' кнопка "Найти"

DoCmd.SelectObject acForm, mCallingForm.Name
DoCmd.FindRecord Me.P, acAnywhere, , , True, acCurrent

P.SetFocus ' строка шаблона поиска
KS.Visible = False
KD.Visible = True
    
End Sub

Код прекрасно работает и ищет по записям нужной формы в нужном поле. Но когда поиск закончен, то никаких изменений не происходит, просто все остается на последней найденой записи.
Очень хотелось бы, когда поиск завершен, то вышло бы сообщение "Поиск записей завершен, больше ничего не найдено", ну типа так (если возможно)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
if НичегоБольшеНеНайдено then
MsgBox "Ничего не найдено!!!"
exit sub
else
DoCmd.SelectObject acForm, "Phones" 
DoCmd.FindRecord Me.P, acAnywhere, , , False, acCurrent, False 
Me.SetFocus 
'т.е. продолжаем поиск
End if
(понимаю глупость алгоритма кода, не судите, это просто так, для красоты)

Одним словом, как уловить момент отсутствия найденого или последнюю найденую запись?
...
Рейтинг: 0 / 0
11.09.2005, 01:57
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262752
Ukraina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ukraina
Участник
Попробовал так код, вроде работает

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
z = mCallingForm.ActiveControl

DoCmd.SelectObject acForm, mCallingForm.Name
DoCmd.FindRecord Me.P, acAnywhere, , , False, acCurrent, False

z1 = mCallingForm.ActiveControl

If z = z1 Then
MsgBox "Все! больше нету!"
End If
Т.е. сравнивает значение активного поля до поиска и после.
Может есть более дешевый способ?
...
Рейтинг: 0 / 0
11.09.2005, 02:11
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262757
Букмарки
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Букмарки
Гость
Мы?
...
Рейтинг: 0 / 0
11.09.2005, 02:57
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262761
(тм)Сонный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(тм)Сонный
Гость
БукмаркиМы?
Разумеется Вы. Почему раньше не заглядывали?
...
Рейтинг: 0 / 0
11.09.2005, 03:59
| Ответить | Цитировать | Написать  
Поиск записи: вывести сообщение о завершении поиск
    #33262827
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
UkrainaТ.е. сравнивает значение активного поля до поиска и после.
Почему активного??? Активное - это то, по которому идет поиск? То, в котором значения повторяются? Тогда это не ключ!
...
Рейтинг: 0 / 0
11.09.2005, 10:57
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Поиск записи: вывести сообщение о завершении поиск
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=33262632&tid=1664447]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 258ms
total:  384ms
созд. / загр.: 384ms
x
x
Закрыть


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