ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Свойство Textbox.Text. глюки ?!!
25 сообщений из 38, страница 1 из 2
  1  все
Свойство Textbox.Text. глюки ?!!
    #32487234
nostra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nostra
Участник
В форме имеются поля для ввода. При заполнении всех кнопка на добавление новой записи должна переходить в Enabled=True.
Пробовал так:

Private Sub ApplyEnable()
Dim bEnabled As Boolean

bEnabled = True
If Trim(txtTexty1.Text) = "" Then bEnabled = False
If Trim(txtTexty2.Text) = "" Then bEnabled = False
cmdOK.Enabled = bEnabled
End Sub

Далее в обоих полях на событие KeyUp вызываю эту процедуру.
В VB6.0 всё прекрасно работает, а VBA for Access выдает ошибку : "Фокус на поле не установлен".
...
Рейтинг: 0 / 0
20.04.2004, 09:41:55
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487240
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
If xtTexty1="" Then...
точнее, будет работать
if isnull(xtTexty1) then...

Свойство Text доступно, когда контрол имееет фокус
...
Рейтинг: 0 / 0
20.04.2004, 09:47:48
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487264
nostra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nostra
Участник
2Alexander G
Да, с IsNull это хорошо.
Но осталась такая проблема. Свойство Enabled кнопки не сразу реагирует на
Sub Text1_KeyUp..Насколько я понимаю свойство Text изменяется, только когда теряешь фокус или сохряняешь значение поля. Сохрянять значение я не умею. Тогда, остается, при каждом нажатии кнопки убирать и вновь возвращать фокус в поле?
...
Рейтинг: 0 / 0
20.04.2004, 10:04:55
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487271
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Сохранение записи:
DoCmd.RunCommand acCmdSaveRecord

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
20.04.2004, 10:09:09
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487272
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
хелп

Пока элемент управления имеет фокус свойство Текст (Text) содержит текст, который находится в элементе управления в текущий момент; свойство Значение (Value) содержит последние сохраненные данные. При переносе фокуса на другой элемент управления происходит обновление данных и в качестве значения свойства Значение (Value) устанавливается новое значение. После этого свойство Текст (Text) недоступно до тех пор, пока элемент управления не получит фокус вновь. Если для сохранения данных элемента управления использовалась команда Сохранить запись из меню Записи без переноса фокуса, то значения свойств Текст (Text) и Значение (Value) будут одинаковыми.
...
Рейтинг: 0 / 0
20.04.2004, 10:09:20
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487303
nostra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nostra
Участник
Видимо мой последний вопрос на сегодня.
Как переместить указатель на конец строки в поле.
Заранее спасибо..
...
Рейтинг: 0 / 0
20.04.2004, 10:23:54
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487315
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
ctlMy.SelStart = Len(ctlMy.Text)
...
Рейтинг: 0 / 0
20.04.2004, 10:27:58
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487327
nostra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nostra
Участник
2Alexander G
Сделал тоже самое но на минуту позже....но сам :))
Думал никогда не сделаю проверку в полях формы...
...
Рейтинг: 0 / 0
20.04.2004, 10:32:26
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32487463
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Меньше 9 минут. Хорошо. Я в свое время дольше ковырялся. Но мне простительно, я старый... :)
...
Рейтинг: 0 / 0
20.04.2004, 11:36:15
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32584851
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
В продолжение старой темы...

На форме 3 комбокса для фильтрации в подчинённой форме по 3 полям и поле ввода для фильтрации там же по подстроке.

Фильтрация зашита в запрос для подч. формы:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
SELECT T.ID, T.Name AS Наименование
FROM dbo_Table1 AS T
WHERE ([Forms]![frmForm1]![cmb1] In ( 0 ,T.Field1)) 
	And ([Forms]![frmForm1]![cmb2] In ( 0 ,T.Field2))	
	And ([Forms]![frmForm1]![cmb3] In ( 0 ,T.Field3)) 
	And (([Forms]![frmForm1]![fld1].Text Is Null) 
		Or (T.Name Like  '%'+[Forms]![frmForm1]![fld1].Text+'%'))
 
ORDER BY F.Name;

Requery для подч. формы вызывается по _Change для каждого контрола.

В момент ввода подстроки для поиска фильтруется замечательно. Если же при введённой подстроке выбрать любое значение из любого комбокса, то срабатывает фильтрация только по данным комбобоксов, а по подстроке - игнорируется.

Причина понятна - fld1.Text = Null, когда фокус не на нём.

В запросе переводить фокус нельзя, как я понимаю. Подскажите, какую проверку добавить в него для определения контрола с текущим фокусом (т.е. когда фокус на fld1, тогда фильтруем по Text, иначе - по Value)?

Есть в Access что-то типа fld1.Focused как в Delphi? :)
...
Рейтинг: 0 / 0
01.07.2004, 12:03:06
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32584943
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
Временно починил свою вышеописанную проблему путём обращения в запросе к Caption невидимой кнопки, которое меняется по fld1_Change на fld1.Text.

Но это всё-таки вырезать гланды через анус. Хорошо хоть, что ещё не автогеном. Существует ли нормальное решение?
...
Рейтинг: 0 / 0
01.07.2004, 12:33:36
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32584947
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А что мешает всегда смотреть на Value?
...
Рейтинг: 0 / 0
01.07.2004, 12:36:04
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32584967
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
2Владимир Саныч

Alexander Gхелп

Пока элемент управления имеет фокус свойство Текст (Text) содержит текст, который находится в элементе управления в текущий момент; свойство Значение (Value) содержит последние сохраненные данные. При переносе фокуса на другой элемент управления происходит обновление данных и в качестве значения свойства Значение (Value) устанавливается новое значение.
...

Вот это мешает. Фильтрация должна работать по мере ввода каждой буквы (типа real-time).
Я забыл про это сразу написать :)
...
Рейтинг: 0 / 0
01.07.2004, 12:43:30
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585013
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
авторЕсть в Access что-то типа fld1.Focused как в Delphi? :)
Screen.ActiveControl
?
...
Рейтинг: 0 / 0
01.07.2004, 12:59:56
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585023
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Тогда пишем функцию, к которой можно будет обращаться из запроса:

function XXX()
on error goto err_XXX
XXX=forms!myform!mycontrol.text
exit function
err_XXX:
XXX=forms!myform!mycontrol.value
end function
...
Рейтинг: 0 / 0
01.07.2004, 13:01:33
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585174
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
paparome
Screen.ActiveControl
?
Угу. Но в запрос кроме как в виде проверки по имени не вижу возможности внести.
Всё-таки странно, что у самих контролов нет такого свойства :(

Владимир Саныч
Тогда пишем функцию, к которой можно будет обращаться из запроса:

function XXX()
on error goto err_XXX
XXX=forms!myform!mycontrol.text
exit function
err_XXX:
XXX=forms!myform!mycontrol.value
end function

Мож я чего туплю, но при открытии формы ругается нехорошими словами:
...
Рейтинг: 0 / 0
01.07.2004, 13:42:11
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585206
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
UniccoМож я чего туплю, но при открытии формы ругается нехорошими словами:
А в форме-то что написано?
...
Рейтинг: 0 / 0
01.07.2004, 13:50:49
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585227
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
Владимир Саныч
А в форме-то что написано?

Запрос:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
SELECT T.ID, T.Name AS Наименование
FROM dbo_Table1 AS T
WHERE ([Forms]![frmForm1]![cmb1] In ( 0 ,T.Field1)) 
	And ([Forms]![frmForm1]![cmb2] In ( 0 ,T.Field2))	
	And ([Forms]![frmForm1]![cmb3] In ( 0 ,T.Field3)) 
	And (([Forms]![frmForm1]![fld1].Text Is Null) 
		Or (T.Name Like  '%'+fld1_Data()+'%'))
 

ORDER BY T.Name;

Функция:

Код: plaintext
1.
2.
3.
4.
5.
6.
Function fld1_Data()
  On Error GoTo err_fld1_Data
  fld1_Data = [Forms]![frmForm1]![fld1].Text
  Exit Function
err_fld1_Data:
  fld1_Data = [Forms]![frmForm1]![fld1].Value
End Function

Относящегося к запросу больше ничего.
...
Рейтинг: 0 / 0
01.07.2004, 13:58:39
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585239
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А функция в модуле формы? Дожна быть в обычном.
...
Рейтинг: 0 / 0
01.07.2004, 14:01:48
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585241
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
2 Unicco
ОФФТОП: чтобы не помешать скриншот с сообщением об ошибке, достаточно на любом мессаджбоксе нажать ctrl-C - при этом текст сообщения будет скопирован в буфер - очень удобно при общении с техсуппортом.
...
Рейтинг: 0 / 0
01.07.2004, 14:02:47
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585277
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
Владимир СанычА функция в модуле формы? Дожна быть в обычном.
В обычном и есть. Через построитель выражений в запросе видна.

Hummer2 Unicco
ОФФТОП: чтобы не помешать скриншот с сообщением об ошибке, достаточно на любом мессаджбоксе нажать ctrl-C - при этом текст сообщения будет скопирован в буфер - очень удобно при общении с техсуппортом.
Будем знать, thx! :)
...
Рейтинг: 0 / 0
01.07.2004, 14:12:37
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585286
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Может быть, вместо
'%'+fld1_Data()+'%'
лучше написать
'%'&fld1_Data()&'%'
?
...
Рейтинг: 0 / 0
01.07.2004, 14:14:36
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585322
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
Владимир СанычМожет быть, вместо
'%'+fld1_Data()+'%'
лучше написать
'%'&fld1_Data()&'%'
?

Пробовал. Не помогает.
...
Рейтинг: 0 / 0
01.07.2004, 14:22:42
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585336
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Стоп. А почему в запросе осталось [Forms]![frmForm1]![fld1].Text???
...
Рейтинг: 0 / 0
01.07.2004, 14:26:26
| Ответить | Цитировать | Написать  
Свойство Textbox.Text. глюки ?!!
    #32585415
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
Это я скопировал код из сообщения выше (от 12:03) и забыл убрать лишнее :)

Реальный код нормальный :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
SELECT T.ID, T.Name AS Наименование
FROM dbo_Table1 AS T
WHERE ([Forms]![frmForm1]![cmb1] In ( 0 ,T.Field1))
And ([Forms]![frmForm1]![cmb2] In ( 0 ,T.Field2))
And ([Forms]![frmForm1]![cmb3] In ( 0 ,T.Field3))
And (T.Name Like  '%' + fld1_Data() + '%')
 
ORDER BY T.Name;
...
Рейтинг: 0 / 0
01.07.2004, 14:49:13
| Ответить | Цитировать | Написать  
25 сообщений из 38, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Свойство Textbox.Text. глюки ?!!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32487234&tid=1673458]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 190ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 71ms
get tp. blocked users:
 1ms
others: 209ms
total:  514ms
созд. / загр.: 514ms
x
x
Закрыть


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