Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2012, 08:29   #1
Swatch
Форумчанин
 
Регистрация: 05.07.2009
Сообщений: 209
Печаль Не выделяется запись в подчиненной форме

Здравствуйте! Помогите, пожалуйста, разрешить проблемку... Я переделывала базу данных в Accesse 97, меняла интерфейс и источники данных. Возникла небольшая, но неудобная для пользователей загвоздка: в новой программе в подчиненных формах не работает выделение записей цветом (когда щелкаешь на области выделения мышкой). Для ясности прилагаю 2 скрина, как сейчас и как мне нужно (как было раньше). Не пойму, в чем загвоздка, такая проблема во всех подчиненных формах. У всех форм разрешены изменения, добавления, никаких блокировок нет. Подскажите пожалуйста, может у кого-то возникнут идеи.
Изображения
Тип файла: jpg Как сейчас.jpg (30.8 Кб, 141 просмотров)
Тип файла: jpg Как было и как надо.jpg (17.9 Кб, 132 просмотров)
Swatch вне форума Ответить с цитированием
Старый 18.09.2012, 08:35   #2
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

Было: подчинённая форма в режиме таблицы.
Стало: подчинённая ленточная форма.
Смените режим отображения подчинённой формы - см. свойства «Режим по умолчанию» (DefaultView), «Допустимые режимы» (ViewsAllowed).
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 18.09.2012, 08:37   #3
Swatch
Форумчанин
 
Регистрация: 05.07.2009
Сообщений: 209
По умолчанию

Спасибо... а можно ли как-то сделать такое выделение в ленточной форме, может быть VBA? Потому что предпочтительнее именно ленточная форма, а не табличная ((((
Swatch вне форума Ответить с цитированием
Старый 18.09.2012, 11:51   #4
Андрэич
Форумчанин
 
Аватар для Андрэич
 
Регистрация: 20.05.2012
Сообщений: 311
По умолчанию

Цитата:
Сообщение от Swatch Посмотреть сообщение
а можно ли как-то сделать такое выделение в ленточной форме, может быть VBA? Потому что предпочтительнее именно ленточная форма, а не табличная ((((
1. Условное форматирование: конструктор форм-правый клик на поле.
2.
Раскраска строк ленточной формы:
http://hiprog.com/index.php?option=c...=658&Itemid=35
Выделение текущей строки табличной или ленточной формы:
http://hiprog.com/index.php?option=c...=626&Itemid=35
Инверсное выделение строки в ленточной форме:
http://am.rusimport.ru/MSAccess/topic.aspx?ID=633
Цвет текущей записи в listbox (списке):
http://am.rusimport.ru/MSAccess/topic.aspx?ID=757
Выделение записи на форме в табличном режиме:
http://am.rusimport.ru/MSAccess/topic.aspx?ID=216
Перечень констант системных цветов:
http://am.rusimport.ru/MSAccess/topic.aspx?ID=201
:-)
Андрэич вне форума Ответить с цитированием
Старый 18.09.2012, 11:55   #5
Swatch
Форумчанин
 
Регистрация: 05.07.2009
Сообщений: 209
По умолчанию

Спасибо, а перечисленные вещи будут работать в А 97? Условное форматирование, к примеру только для 2000 и выше...
Swatch вне форума Ответить с цитированием
Старый 18.09.2012, 20:39   #6
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

Цитата:
Сообщение от Swatch Посмотреть сообщение
сделать такое выделение в ленточной форме... Потому что предпочтительнее именно ленточная форма, а не табличная ((((
Поясните, пожалуйста, почему Вам предпочтительнее именно ленточная форма? Мой вопрос вовсе не относится к Вашей проблеме - это мне интересно.
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Старый 19.09.2012, 07:45   #7
Swatch
Форумчанин
 
Регистрация: 05.07.2009
Сообщений: 209
По умолчанию

Если честно, предпочтительнее потому, что уже все формы ленточные, и если их переделать в табличные, то придется переименовывать поля, так как в источниках данных они неблагозвучно названы. Спасибо за ответы, нашла решение, которое правда не работает в 97, но работает в 2000, может кому пригодится.
Код:
Private Sub Form_Current()
Me.id = Me.PprNo
Me.Recalc
Dim cnt As Control
For Each cnt In Me.Controls
    With cnt
    If (.ControlType = acTextBox Or .ControlType = acListBox Or .ControlType = acComboBox) And .name <> "DataVvoda" Then
  
.FormatConditions.Delete
'Назначение форматирования
.FormatConditions.Add acExpression, , "[id]=[PprNo]"
'Изменение цвета ячейки
With .FormatConditions(0)
.BackColor = 33023 'Цвет фона
.FontBold = False 'Толщина букв
.ForeColor = RGB(0, 0, 1) 'Цвет символов

End With
End If
 End With
    Next cnt

End Sub
В примечание формы добавила поле id, условие форматирования, чтобы оно было равно идентификатору текущей записи.
Swatch вне форума Ответить с цитированием
Старый 20.09.2012, 07:25   #8
Woodlin
Форумчанин
 
Регистрация: 30.03.2010
Сообщений: 153
Хорошо Примите благодарность

Цитата:
Сообщение от Андрэич Посмотреть сообщение
...
Раскраска строк ленточной формы:
http://hiprog.com/index.php?option=c...=658&Itemid=35
Выделение текущей строки табличной или ленточной формы:
http://hiprog.com/index.php?option=c...=626&Itemid=35
...
Спасибо большое за ссылки! Узнал кое-что новое.
Woodlin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Снять выделение поля в подчиненной форме Swatch Microsoft Office Access 1 15.08.2012 00:31
Обновление поля со списком в подчиненной форме touchka Microsoft Office Access 7 01.08.2012 17:06
Разделенная форма в подчиненной форме s8259 Microsoft Office Access 0 27.09.2011 00:45
Запрос в подчиненной форме Kvins Microsoft Office Access 1 30.09.2010 12:31
Видимость полей в подчиненной форме Sparxy Microsoft Office Access 2 02.06.2009 21:40