Как сделать чтобы при вводе текста в поле, при введении каждого нового символа фильтр обновлялся, а текст в по

@ГарриНаФеррари · Регистрация: 04.03.2017

Студворк — интернет-сервис помощи студентам

Написал фильтр для поля формы, он как только фокус возвращается в поле, весь текст выделяется и при введении символа весь предыдущий текст удаляется. Таким образом в поле может находится не более 1-го символа, также не принимаются пробелы в поле. Как сделать чтобы при вводе текста в поле, при введении каждого нового символа фильтр обновлялся, а текст в поле увеличивался?

Visual Basic

Private Sub ПолеПОИСК_Change()
Me.RecordSource = "SELECT [IC1] FROM ИсходноеДанное1 WHERE [IC1] LIKE '" & Me.ПолеПОИСК.Value & "*'"
Me!ПолеПОИСК.SetFocus
End Sub

mobile · 03.05.2017, 19:28

Visual Basic

Private Sub ПолеПОИСК_Change()
Me.RecordSource = "SELECT [IC1] FROM ИсходноеДанное1 WHERE [IC1] LIKE '" & Me.ПолеПОИСК.Text & "*'"
Me!ПолеПОИСК.SelStart=Len(Me.ПолеПОИСК.Text)
Me!ПолеПОИСК.SelLength=0
End Sub

И свойство Автоподстановка (AutoExpand) задайте Нет

@Capi · 03.05.2017, 19:56

Application.SetOption "Behavior entering field", 2 перед возвратом в поле ПолеПОИСК
и восстановление предыдущего значения после перевода фокуса на ПолеПОИСК.

Сообщение от ГарриНаФеррари

Visual Basic

Private Sub ПолеПОИСК_Change()
 Dim k AS Byte
 Me.RecordSource = "SELECT [IC1] FROM ИсходноеДанное1 WHERE [IC1] LIKE '" & Me.ПолеПОИСК.Value & "*'"
 k = Application.GetOption("Behavior Entering Field")
 Application.SetOption "Behavior Entering Field", 2
 Me!ПолеПОИСК.SetFocus
 Application.SetOption "Behavior Entering Field", k
End Sub

Добавлено через 21 минуту
Добавление.
Вместо Me.ПолеПОИСК.Value нужно, конечно же, Me.ПолеПОИСК.Text.

@ГарриНаФеррари · 03.05.2017, 19:56 **[ТС]**

А как сделать чтобы поле также учитывало и пробелы? А то сейчас поле на пробелы не реагирует.

mobile · 03.05.2017, 20:03

Сообщение от ГарриНаФеррари

А как сделать чтобы поле также учитывало и пробелы? А то сейчас поле на пробелы не реагирует.

Если автоподстановка отключена, то по идее пробелы должны сохраняться. Но можно и насильно вставить

Visual Basic

Private Sub ПолеПОИСК_Change()
Dim t
t=Me.ПолеПОИСК.Text
Me.RecordSource = "SELECT [IC1] FROM ИсходноеДанное1 WHERE [IC1] LIKE '" & t & "*'"
Me!ПолеПОИСК.Text=t
Me!ПолеПОИСК.SelStart=Len(t)
Me!ПолеПОИСК.SelLength=0
End Sub

@Capi · 03.05.2017, 20:07

Сообщение от ГарриНаФеррари

А как сделать чтобы поле также учитывало и пробелы? А то сейчас поле на пробелы не реагирует.

Первое, что пришло в голову:
- вместо пробелов использовать какой-нибудь символ, которого заведомо не будет в тексте, например, @.
- заменить в коде Me.ПолеПОИСК.Value на Replace(Me.ПолеПОИСК.Value, "@", " "):

Visual Basic

1	Me.RecordSource = "SELECT [IC1] FROM ИсходноеДанное1 WHERE [IC1] LIKE '" & Replace(Me.ПолеПОИСК.Value, "@", " ") & "*'"

@ГарриНаФеррари · 03.05.2017, 20:09 **[ТС]**

mobile, пишет ошибку:

@ГарриНаФеррари · 03.05.2017, 20:12 **[ТС]**

И ещё, никак не могу найти, где находится поле "автоподстановка"?

Добавлено через 1 минуту
вроде в настройках формы всё внимательно просмотрел

Добавлено через 1 минуту
Capi, это хороший вариант, но охота (если возможно) сделать эстетически красивее

mobile · 03.05.2017, 20:16

Ну если теряет фокус, то задать фокус

Visual Basic

Private Sub ПолеПОИСК_Change()
Dim t
t=Me.ПолеПОИСК.Text
Me.RecordSource = "SELECT [IC1] FROM ИсходноеДанное1 WHERE [IC1] LIKE '" & t & "*'"
Me!ПолеПОИСК.Setfocus
Me!ПолеПОИСК.Text=t
Me!ПолеПОИСК.SelStart=Len(t)
Me!ПолеПОИСК.SelLength=0
End Sub

Сообщение от ГарриНаФеррари

никак не могу найти, где находится поле "автоподстановка"?

В свойствах поля со списком

@ГарриНаФеррари · 03.05.2017, 20:27 **[ТС]**

mobile, теперь ясно, у меня не поле со списком, а просто поле

Добавлено через 8 минут
mobile, а возможно сделать тоже самое, но для текстового поля?

@Capi · 03.05.2017, 20:53

ГарриНаФеррари,

А Вы пробовали мой первоначальный вариант-то?
Там пробелы нормально воспринимаются безо всяких ухищрений.
Вот он (с исправленным недосмотром: Me.ПолеПОИСК.Value заменено на Me.ПолеПОИСК.Text).

Visual Basic

Private Sub ПолеПОИСК_Change()
 Dim k AS Byte, _
     s As String
 s = Me!ПолеПОИСК.Text
 Me.RecordSource = "SELECT [IC1] FROM ИсходноеДанное1 WHERE [IC1] LIKE '" & Me.ПолеПОИСК.Text & "*'"
 k = Application.GetOption("Behavior Entering Field")
 Application.SetOption "Behavior Entering Field", 2
 Me!ПолеПОИСК= s
 Me!ПолеПОИСК.SetFocus
 Application.SetOption "Behavior Entering Field", k
End Sub

@ГарриНаФеррари · 03.05.2017, 21:05 **[ТС]**

Capi, я его и принял за рабочий вариант, всё как часы)

Добавлено через 2 минуты
Capi, Спасибо

Это было круто

@Capi · 03.05.2017, 21:07

ГарриНаФеррари, Пожалуйста.)))

@ГарриНаФеррари · 03.05.2017, 21:31 **[ТС]**

Capi, а Вы знаете как в код добавляется обработчик ошибок, чтобы прога игнорировала её?

Добавлено через 22 минуты
уже разобрался как это делается

@Capi · 03.05.2017, 21:31

Сообщение от ГарриНаФеррари

чтобы прога игнорировала её

Кого её? Ошибку?

Visual Basic

1	On Error Resume Next

Сообщение от ГарриНаФеррари

уже разобрался как это делается

Ну и хорошо.

@ГарриНаФеррари 18 / 20 / 2 Регистрация: 04.03.2017 Сообщений: 199
	03.05.2017, 20:27 [ТС]	10
	mobile, теперь ясно, у меня не поле со списком, а просто поле Добавлено через 8 минут mobile, а возможно сделать тоже самое, но для текстового поля? 0

@Capi Модератор 5177 / 2574 / 641 Регистрация: 12.06.2016 Сообщений: 6,847
	03.05.2017, 21:07	13
	ГарриНаФеррари, Пожалуйста.))) 0

@ГарриНаФеррари 18 / 20 / 2 Регистрация: 04.03.2017 Сообщений: 199
	03.05.2017, 21:31 [ТС]	14
	Capi, а Вы знаете как в код добавляется обработчик ошибок, чтобы прога игнорировала её? Добавлено через 22 минуты уже разобрался как это делается 0

Как сделать чтобы при вводе текста в поле, при введении каждого нового символа фильтр обновлялся, а текст в по

Решение

Решение

Решение

@ГарриНаФеррари 18 / 20 / 2 Регистрация: 04.03.2017 Сообщений: 199
	03.05.2017, 19:56 [ТС]	4
	А как сделать чтобы поле также учитывало и пробелы? А то сейчас поле на пробелы не реагирует. 0

@ГарриНаФеррари 18 / 20 / 2 Регистрация: 04.03.2017 Сообщений: 199
	03.05.2017, 20:09 [ТС]	7
	mobile, пишет ошибку: Миниатюры 0

@ГарриНаФеррари 18 / 20 / 2 Регистрация: 04.03.2017 Сообщений: 199
	03.05.2017, 20:12 [ТС]	8
	И ещё, никак не могу найти, где находится поле "автоподстановка"? Добавлено через 1 минуту вроде в настройках формы всё внимательно просмотрел Добавлено через 1 минуту Capi, это хороший вариант, но охота (если возможно) сделать эстетически красивее 0

@ГарриНаФеррари 18 / 20 / 2 Регистрация: 04.03.2017 Сообщений: 199
	03.05.2017, 21:05 [ТС]	12
	Capi, я его и принял за рабочий вариант, всё как часы) Добавлено через 2 минуты Capi, Спасибо Это было круто 0