powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подстановка значений через текстовое поле!
25 сообщений из 43, страница 1 из 2
Подстановка значений через текстовое поле!
    #32523010
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Товарищи!!! Помогите!!!
Существует форма, в ней текстовое поле. Как сделать такую вот штуку:
1. при написании в текстовом поле , например, "П" ниже в подчиненной форме(запросе) показывались все фамилии(названия) на букву "П", и, соответственно, при последующем вводе, например "Петро" отсеивались все лишние и показывались только слова, начинающиеся на "Петро".
2. Дальше - больше! При клике в этой подчиненной форме/запросе на какую-либо фамилию в текстовом поле, которое находится ниже на основной форме, должна выводиться какая-нибудь информация по фамилии, например, количество пропущенных по болезни дней или трудовой стаж (любая инфа).


Помогите, пожалуйста! Буду очень признателен всем откликнувщимся.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32523017
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
KeyDown + like в where RowSource положенного под список + AfterUpdate этого списка
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32523639
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а можно поподробнее - туплю я.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32523647
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
По п.1:

В запросе пишем что-то типа where MyField like forms!MyForm!MyField & "*"
В событии OnChange (не KeyDown) текстового поля ставим requery подчиненной формы.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32524940
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Запрос я написал, он работает( предлагает ввести значение параметра-пишешь и он показывает те, которые нужно.Вот сам текст запроса
SELECT Сотрудники.Фамилия
FROM Сотрудники
WHERE (((Сотрудники.Фамилия) Like [forms]![Болезнь]![Поле000] & "*"));

А вот дальше "Изменение" в текстовом поле не работает, не понимаю я что там с Requery написать. Надо как-то запрос с полем связать. Как?
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32524942
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
авторА вот дальше "Изменение" в текстовом поле не работает,
Это как это?

не понимаю я что там с Requery написать.
private sub Поле000_change()
me.requery
end sub
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32524980
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
private sub Поле000_change()
me.requery
end sub
в Вижуале написал и при вводе слова в текстовом поле буквы записываются СЛЕВА от предыдущей, список в подчиненной не обновляется.Что делать дальше-то? Не работает.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32524983
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Какой список? Мне отсюда не видно...
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32524987
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Список в подчиненной форме, который меняется в соответсвии со значением в текстовом поле.Их надо связать(запрос со значением в текстовом поле), а как - не понятно.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32524991
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Список - это листбокс? Надо менять содержимое его или самой подчиненной формы? Напоминаю, что мне не видно отсюда. Я полагаюсь только на то, что тут написано. А тут написано много жалоб и мало информации.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525001
Фотография fedd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Саныч, не листбокс, а табличная подчиненная форма, в которой он хочет, чтобы отсеивались те, кто начинается на вводимое в свободное поле на основной форме

> написал и при вводе слова в текстовом поле буквы записываются СЛЕВА от предыдущей,

не удержусь... посмотрите, откуда Саныч и поймете, почему такое происходит ;))

ну, мадери
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525004
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Да у меня самого возникла мысль, что получается надпись на иврите. Ну, это уж с кем поведешься...
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525005
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Нет, я понял, что происходит. При requery вся форма "встряхивается" и курсор падает в начало поля... Я не знаю, что делать. Может, так:

private sub Поле000_change()
dim n as integer
n=Поле000.selstart
me.requery
Поле000.selstart=n
end sub
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525007
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Список- это список фамилий как результат запроса
SELECT Сотрудники.Фамилия
FROM Сотрудники
в подчиненной форме. Нужно:
- чтобы при вводе в текстовое поле, которое над подчиненной формой, в самой этой подчин.форме фильтровались/отсеивались слова, не содержащие последовательно-введенных букв. То есть, должна быть связь между текстовым полем и запросом в подчиненной форме. Типа как автоподстановка в текстбоксе, только она должна происходить в этой подч.форме.
Вроде, так. Надеюсь, что прояснил. Если чего, то подробнее попытаюсь объяснить.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525008
Фотография fedd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а почему не написать
me.[подчиненнаяФорма].requery?
тогда и его список обновится
или так нельзя?
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525010
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
Прав. Нет, моя голова уже не соображает... Пойду-ка спать.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525011
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
2 Dr.Drew:

Что именно надо сделать, мы читаем уже третий раз. С этим у нас проблем нет. Проблема только с тем, что трудно заниматься отладкой, когда не видишь программу.
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525012
Фотография fedd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Dr.Drew
пишите

private sub Поле000_change()
me.[подчиненнаяФорма].requery
end sub

что получилось?
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525018
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А обязательно отсеивать?
Вот пример как просто позиционировать на нужной записи
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub ctlSearch_Change()
'Позиционирование поиска по фамилии
Dim rst As DAO.Recordset
    Set rst = Me.Recordset.Clone
    rst.FindFirst "left([Family]," & Len(ctlSearch.Text) & ") = '" & ctlSearch.Text & "'"
    If Not rst.NoMatch Then Me.Bookmark = rst.Bookmark
ctlSearch.SelStart = Len(ctlSearch.Text)
Set rst = Nothing
End Sub
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525021
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хде-то у Гетса Сие окучивается так - он ченdge текстбокса его содержимое отдается принудительно раскрытому комбобоксу, вытянутому на нужный размер, для создания приличности вида "списка" - в том комбобоксе (принудительно раскрытом) все само и прокручивается/ищется по мере набора в текстбоксе.

Красивше сходу не придумывается. Может сгодится - (кажется хде-то в книжках про 2002 акцесс)
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525024
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 fedd:
написал -заработало, только с какими-то подвисаниями, сразу не показывает, а выдает при стирании символов из текстбокса и тоже не всегда.Надо чо-то подправить.Может больше фамилий нашарашить. Но хоть то, что уже фунциклирует несказанно радует.Как бы я без вас!

2Alexander G:
то есть, находится фамилия и выделяется в подчиненной форме?
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525029
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Текущей становится запись первая, удовлетворяющая условию. Сортировка в запросе, естественно, по фамилии.
Только в примере поле находится на форме с фамилиями. Если обязательно что на главной (а его можно разместить и в заголовке подчиненной) то нужно изменить
Me![КонтролПодчиненойФормы].Form.Recordset.Clone
Аналогично и с Me.Bookmark
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525031
Фотография аувв
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> с какими-то подвисаниями, сразу не показывает,

индекс сделайте по полю "фамилие" (название) - быстрее искать будет...
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525033
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 fedd:
Выяснил как он глючит:
- Набираю первую букву
- перевожу фокус на подчиненную форму
- перевожу фокус обратно в текстбокс и нажимаю пробел
Только при таких действиях он выдает мне слова, начинающиеся на введенную первую букву в текстбоксе. Как это можно исправить?
...
Рейтинг: 0 / 0
Подстановка значений через текстовое поле!
    #32525034
Dr.Drew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
2 fedd:
еще баг - при вводе, проделав вышеописанное и нажав вместо пробела следующую букву, в списке всё-равно показываются слова, содержащие первую букву, но несодержащие второй. То есть, поиск получается идет только по первой букве.Вот как.
...
Рейтинг: 0 / 0
25 сообщений из 43, страница 1 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Подстановка значений через текстовое поле!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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