|
|
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
В форме имеются поля для ввода. При заполнении всех кнопка на добавление новой записи должна переходить в 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 выдает ошибку : "Фокус на поле не установлен". ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 09:41:55 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
If xtTexty1="" Then... точнее, будет работать if isnull(xtTexty1) then... Свойство Text доступно, когда контрол имееет фокус ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 09:47:48 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
2Alexander G Да, с IsNull это хорошо. Но осталась такая проблема. Свойство Enabled кнопки не сразу реагирует на Sub Text1_KeyUp..Насколько я понимаю свойство Text изменяется, только когда теряешь фокус или сохряняешь значение поля. Сохрянять значение я не умею. Тогда, остается, при каждом нажатии кнопки убирать и вновь возвращать фокус в поле? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 10:04:55 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Сохранение записи: DoCmd.RunCommand acCmdSaveRecord Сделать можно всё!!! Только бы знать как... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 10:09:09 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
хелп Пока элемент управления имеет фокус свойство Текст (Text) содержит текст, который находится в элементе управления в текущий момент; свойство Значение (Value) содержит последние сохраненные данные. При переносе фокуса на другой элемент управления происходит обновление данных и в качестве значения свойства Значение (Value) устанавливается новое значение. После этого свойство Текст (Text) недоступно до тех пор, пока элемент управления не получит фокус вновь. Если для сохранения данных элемента управления использовалась команда Сохранить запись из меню Записи без переноса фокуса, то значения свойств Текст (Text) и Значение (Value) будут одинаковыми. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 10:09:20 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Видимо мой последний вопрос на сегодня. Как переместить указатель на конец строки в поле. Заранее спасибо.. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 10:23:54 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
ctlMy.SelStart = Len(ctlMy.Text) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 10:27:58 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
2Alexander G Сделал тоже самое но на минуту позже....но сам :)) Думал никогда не сделаю проверку в полях формы... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 10:32:26 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Меньше 9 минут. Хорошо. Я в свое время дольше ковырялся. Но мне простительно, я старый... :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.04.2004, 11:36:15 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
В продолжение старой темы... На форме 3 комбокса для фильтрации в подчинённой форме по 3 полям и поле ввода для фильтрации там же по подстроке. Фильтрация зашита в запрос для подч. формы: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. Requery для подч. формы вызывается по _Change для каждого контрола. В момент ввода подстроки для поиска фильтруется замечательно. Если же при введённой подстроке выбрать любое значение из любого комбокса, то срабатывает фильтрация только по данным комбобоксов, а по подстроке - игнорируется. Причина понятна - fld1.Text = Null, когда фокус не на нём. В запросе переводить фокус нельзя, как я понимаю. Подскажите, какую проверку добавить в него для определения контрола с текущим фокусом (т.е. когда фокус на fld1, тогда фильтруем по Text, иначе - по Value)? Есть в Access что-то типа fld1.Focused как в Delphi? :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 12:03:06 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Временно починил свою вышеописанную проблему путём обращения в запросе к Caption невидимой кнопки, которое меняется по fld1_Change на fld1.Text. Но это всё-таки вырезать гланды через анус. Хорошо хоть, что ещё не автогеном. Существует ли нормальное решение? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 12:33:36 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
А что мешает всегда смотреть на Value? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 12:36:04 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
2Владимир Саныч Alexander Gхелп Пока элемент управления имеет фокус свойство Текст (Text) содержит текст, который находится в элементе управления в текущий момент; свойство Значение (Value) содержит последние сохраненные данные. При переносе фокуса на другой элемент управления происходит обновление данных и в качестве значения свойства Значение (Value) устанавливается новое значение. ... Вот это мешает. Фильтрация должна работать по мере ввода каждой буквы (типа real-time). Я забыл про это сразу написать :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 12:43:30 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
авторЕсть в Access что-то типа fld1.Focused как в Delphi? :) Screen.ActiveControl ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 12:59:56 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Тогда пишем функцию, к которой можно будет обращаться из запроса: function XXX() on error goto err_XXX XXX=forms!myform!mycontrol.text exit function err_XXX: XXX=forms!myform!mycontrol.value end function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 13:01:33 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
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 Мож я чего туплю, но при открытии формы ругается нехорошими словами: ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 13:42:11 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
UniccoМож я чего туплю, но при открытии формы ругается нехорошими словами: А в форме-то что написано? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 13:50:49 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Владимир Саныч А в форме-то что написано? Запрос: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. Функция: Код: plaintext 1. 2. 3. 4. 5. 6. Относящегося к запросу больше ничего. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 13:58:39 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
А функция в модуле формы? Дожна быть в обычном. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 14:01:48 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
2 Unicco ОФФТОП: чтобы не помешать скриншот с сообщением об ошибке, достаточно на любом мессаджбоксе нажать ctrl-C - при этом текст сообщения будет скопирован в буфер - очень удобно при общении с техсуппортом. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 14:02:47 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Владимир СанычА функция в модуле формы? Дожна быть в обычном. В обычном и есть. Через построитель выражений в запросе видна. Hummer2 Unicco ОФФТОП: чтобы не помешать скриншот с сообщением об ошибке, достаточно на любом мессаджбоксе нажать ctrl-C - при этом текст сообщения будет скопирован в буфер - очень удобно при общении с техсуппортом. Будем знать, thx! :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 14:12:37 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Может быть, вместо '%'+fld1_Data()+'%' лучше написать '%'&fld1_Data()&'%' ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 14:14:36 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Владимир СанычМожет быть, вместо '%'+fld1_Data()+'%' лучше написать '%'&fld1_Data()&'%' ? Пробовал. Не помогает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 14:22:42 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Стоп. А почему в запросе осталось [Forms]![frmForm1]![fld1].Text??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 14:26:26 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Это я скопировал код из сообщения выше (от 12:03) и забыл убрать лишнее :) Реальный код нормальный :) Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 14:49:13 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
А функция fld1_Data сама по себе что-то возвращает? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 15:48:56 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Сама функция отлично работает. Что-то запросу в ней не нравится. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 16:53:01 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
1. А если поставить в запросе функцию, которая просто возвращает константу? 2. Новая версия функции: Код: plaintext 1. 2. 3. 4. 5. 6. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 16:58:58 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Владимир Саныч 2. Новая версия функции: Код: plaintext 1. 2. 3. 4. 5. 6. Отлично заработало! Thx! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.07.2004, 17:12:12 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Похоже что это adp? Предупреждать надо сразу. Пользовательскую функцию в запросе сервер не понимает. А если ему скормить что-то вроде Код: plaintext 1. 2. Не проверял. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 01:47:56 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Alexander GПохоже что это adp? Предупреждать надо сразу. Неа :) Alexander GПользовательскую функцию в запросе сервер не понимает. А если ему скормить что-то вроде Код: plaintext 1. 2. Что-то подобное мне дома в голову тоже пришло. Изображу - посмотрим :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 09:36:18 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
Alexander GCASE [Forms]![frmForm1]![fld1].Text IS NULL В данном случае [Forms]![frmForm1]![fld1].Text не NULL, а ERROR. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 11:40:36 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
2Владимир Саныч 2Alexander G Код: plaintext ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 11:51:54 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
UniccoПомогите, плиз, этот like с case написать. Я сам сильно привык к sql serv - никак не воткну, какие конструкции в аксессовском sql можно в запросах использовать, какие нет :) Я не умею. :^) И мне кажется, что в данном случае это не подойдет. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 12:00:45 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
По-моему, собрать SQL строку динамически , в зависимости от введенных в поля значений, и подставить эту SQL строку в RowSource сабформы или списка будет намного проще и гибче, чем пытаться подставить в запрос все возможные варианты. К тому же, если в запросе стоит Код: plaintext потому, что строка Like '**' - то же условие: найти записи в которых хоть что-то есть. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 12:39:41 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
lobodavaПо-моему, собрать SQL строку динамически, в зависимости от введенных в поля значений, и подставить эту SQL строку в RowSource сабформы или списка будет намного проще и гибче, чем пытаться подставить в запрос все возможные варианты. Разумеется, я этот вариант рассматривал. Но дело в том, что в идеологии проекта - по возможности по максимуму использовать запросы, дабы внедренцы/сопровожденцы могли при случае поправить оные. А чтобы им в код ещё лазить приходилось - этого бы не хотелось. К тому же, в данном случае множество всех возможных вариантов очень даже конечно - всего 2 :) lobodavaК тому же, если в запросе стоит Код: plaintext Поле Not Null, поэтому это не актуально :) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 12:53:49 |
|
||
|
Свойство Textbox.Text. глюки ?!!
|
|||
|---|---|---|---|
|
#18+
В процессе экспериментов пришёл вот к чему: Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. Выделенный жирным кусок - чтобы при загрузке формы тоже сработала "пустая" фильтрация (просто по Value - 0 записей, т.к. оно = Null). Всё заработало, за исключением такого глюка - есть в fld1 ввести один или несколько пробелов, то при переходе на другой контрол пробелы в самом поле автоматически убираются - оно становится "", хотя при этом фильтрация по пробелам не сбрасывается. Причём, по событию выхода fld1.Text уже = "". Опять фича? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 02.07.2004, 13:40:12 |
|
||
|
|

start [/forum/topic.php?all=1&fid=45&tid=1673458]: |
0ms |
get settings: |
11ms |
get forum list: |
22ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
463ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
69ms |
get tp. blocked users: |
2ms |
| others: | 216ms |
| total: | 804ms |

| 0 / 0 |
