Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » VBA for Access

Модерирует : ShIvADeSt

ShIvADeSt (14-09-2011 00:58): Все обсуждение тут http://forum.ru-board.com/topic.cgi?forum=33&topic=0357&start=1180  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

   

asbo

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
novo_again, поэкспериментировал. Странно, но первого эффекта (воспроизведение твоего случая) снова добиться не смог. Думаю, что это зависит от этапа, на котором выставляешь запрет на добавление в суб. Сейчас все нормально отображает. Запрет в суб можно снимать-ставить. С полями не колдуй - у меня пустая главная и простая ленточная суб. Больше ничего. Создай с нуля, не визардом, конструктором отдельно главную, отдельно суб. Потом суб забрось в главную и будет все ОК. Я _та_к думаю :)

Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 10:47 23-05-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подсказка хорошая - добраться бы теперь до машины)

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 10:53 23-05-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Странно, но первого эффекта (воспроизведение твоего случая) снова добиться не смог.

Весь секрет в том, что в MasterField зашито значение ListBox, а не поля.
 
Наткнулся на еще одну проблему - при выводе на печать, зараза, печатаются одни "Ы"((( Хотя шрифт в свойствах принтера поставил не встроенный, а загружаемый.
 
Блин, неужели нет такого символа, чтобы был как кирпичик?...
 
Добавлено:

Цитата:
Всё коллеги, элегантное решение от некоего Dirk Goldgar из самого низа поста на _http://ureader.com/msg/104366694.aspx найдено - проверено, работает!!!  

 
После проблем с распечаткой буквы "Ы" понял, что этот Дирк пошел не совсем простым путем. Мягко говоря.
 
Более лаконично будет так:  
- создаем на форме текстбоксы по количеству необходимых цветов,  
- красим их во все необходимые варианты цвета,  
- для них и для тех полей, которые нужно подсветить, границу и фон делаем Transparent, и делаем по размеру и по положению их все одинаковыми один над другим,
- главное подсвечиваемое поле делаем Меню/Формат/На передний план (как то так),
- для цветовых ящиков значение CountrolSource пишем: =IIf(условие для включения цвета,String(255," "),Null),
- для всех цветовых боксов делаем возможным сжатие/расширение в свойствах.
 
Всё.

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 12:21 25-05-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Это прискорбно - прошу понять и простить. Фокусы с пробелом применимы только для репортов, для форм - нет. На формах не работает автосжатие контролов (((

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 20:38 25-05-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Никто не подскажет - бред кой-то...
В листбоксе тыкаю мышкой - свойство itemsselected пустое, хожу по нему стрелками - появляются записи в itemsselected. Мультиселекта нет.  
 
Добавлено:
сам спросил - сам ответил) пришлось перебирать все рельные значения на соответствие номинальному листбокса

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 15:22 22-07-2011
PrWork1

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
novo_again
Номинальному- это как?

Всего записей: 582 | Зарегистр. 15-12-2005 | Отправлено: 10:16 30-07-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Номинальное - ListBox.Value. Просто если перебрать все ListBox.Items(x).Value - с транскрипцией, скорее всего, ошибаюсь - ListBox.Value там не будет и в помине...
У меня такая ситуация случалась при обновлении квери под листбоксом.

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 11:45 30-07-2011
PrWork1

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
novo_again
value вроде возвращает номер выбранной строки

Всего записей: 582 | Зарегистр. 15-12-2005 | Отправлено: 19:50 30-07-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
вряд ли...

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 22:35 30-07-2011
PrWork1

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
novo_again
У меня листбокс (данные на основе таблицы) в .Value возврашает номер строки, начиная с единицы.(Access 2007), сейчас проверил...

Всего записей: 582 | Зарегистр. 15-12-2005 | Отправлено: 23:48 30-07-2011 | Исправлено: PrWork1, 00:00 31-07-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
PrWork1
Ну, суть не в этом - просто лист всегда используется на форме в какой-нибудь другом запросе. Так вот его текущее значение может никак быть не связано с реальным...

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 10:44 31-07-2011
PrWork1

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
novo_again
Да, так и есть

Всего записей: 582 | Зарегистр. 15-12-2005 | Отправлено: 12:15 31-07-2011
Oyger

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, коллеги.
 
Вот с каким вопросом к Вам:
 
Форма. На форме ListBox(Список) и ToggleButton(Выключатель).
 
Также имеется модуль с моей функцией. При открытии формы, ListBox заполняется автоматически (прописан «Источник данных»(RowSource) в свойстве как текст запроса). Запрос использует мою функцию (типа: Select XXX(…) From…, где ХХХ(…) и есть моя функция с соответствующими переменными).
 
Все работает и данные в ListBox заполнены.
 
Для чего нужен ToggleButton? При его нажатии меняется RowSource у ListBox.
 
Если RowSource меняется на текст запроса, не использующий мою функцию (только штатные SQL) – все работает – информация в ListBox изменяется. Но если менять RowSource на текст запроса использующего мою функцию – ничего не происходит – данных в ListBox нет, а должны быть.
 
Причем, ошибки в запросе нет. Не работает даже тот запрос (использующий мою функцию), который прописан по умолчанию в «Источнике данных». Т.е. открываете форму – данные автоматически заполнены из «Источник данных». Нажимаете ToggleButton, меняющий RowSource в ListBox на точно такой же, что и по умолчанию прописан – данные исчезли. Он не отрабатывает мою функцию.
 
Почему так? Кто что подскажет?

Всего записей: 122 | Зарегистр. 22-03-2007 | Отправлено: 10:59 25-08-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Oyger
Все варианты RowSource эквиваленты по количеству столбцов?
Requery, Refresh с формой не делал?
 

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 14:35 25-08-2011
Oyger

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
novo_again
Выводятся одни и те же поля, меняется только условие (WHERE). Но при чем тут это? Если изменить число столбцов в RowSource - выведутся только то количество, указанное в ListBox-ColumnCount.
Requery и Refresh не помогают - пробовал. С такой ерундой бы сам разобрался...
Еще раз повторюсь: не работает только если обновляешь ListBox-RowSource на ТЕКСТ запроса (sql) с использованием функции, написанной пользователем - в данной случае мной. Если в тексте все штатное - работает в лет.

Всего записей: 122 | Зарегистр. 22-03-2007 | Отправлено: 17:54 26-08-2011
novo_again



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А сам по себе запрос с Вашей функцией живет нормально   в качестве источника для листа при простом перекверивании/освежении формы?

Всего записей: 244 | Зарегистр. 17-02-2003 | Отправлено: 21:10 26-08-2011
Oyger

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
novo_again
Как ни стыдно признавать - сам ошибку допустил. А ведь чувствовал, что все работать должно.
Ошибку допустил, когда sql запрос писал:
В поле Select была написано моя функция и имя ее вывода (Select XXX(...) as [YYY]). А в конце запроса я отсортировывал все результаты (Order by). И в сортировки написал не XXX(...), а [YYY]. Вот он и не работал. В sql надо писать не имя столбца, а его суть...
 
Спасибо за помощь.

Всего записей: 122 | Зарегистр. 22-03-2007 | Отправлено: 12:07 29-08-2011 | Исправлено: Oyger, 12:13 29-08-2011
asbo

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Oyger
Ну, главное, что разобрался. Дело житейское :) Я хотел было посоветовать пристально сравнить строки запроса, но некогда было перепроверить - я вообще не использую запросы в источниках строк, только наборы значений, программно (по моей воле, а не акса) обновляемые. Зато ссылку приберег на этот случай :)

Всего записей: 1805 | Зарегистр. 03-10-2006 | Отправлено: 15:07 29-08-2011
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » VBA for Access
ShIvADeSt (14-09-2011 00:58): Все обсуждение тут http://forum.ru-board.com/topic.cgi?forum=33&topic=0357&start=1180


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru