Не выделяется запись в подчиненной форме

[Swatch]

Здравствуйте! Помогите, пожалуйста, разрешить проблемку... Я переделывала базу данных в Accesse 97, меняла интерфейс и источники данных. Возникла небольшая, но неудобная для пользователей загвоздка: в новой программе в подчиненных формах не работает выделение записей цветом (когда щелкаешь на области выделения мышкой). Для ясности прилагаю 2 скрина, как сейчас и как мне нужно (как было раньше). Не пойму, в чем загвоздка, такая проблема во всех подчиненных формах. У всех форм разрешены изменения, добавления, никаких блокировок нет. Подскажите пожалуйста, может у кого-то возникнут идеи.

[Myhaylo]

Было: подчинённая форма в режиме таблицы.
Стало: подчинённая ленточная форма.
Смените режим отображения подчинённой формы - см. свойства «Режим по умолчанию» (DefaultView), «Допустимые режимы» (ViewsAllowed).

[Swatch]

Спасибо... а можно ли как-то сделать такое выделение в ленточной форме, может быть VBA? Потому что предпочтительнее именно ленточная форма, а не табличная ((((

[Андрэич]

Сообщение от 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
:-)

[Swatch]

Спасибо, а перечисленные вещи будут работать в А 97? Условное форматирование, к примеру только для 2000 и выше...

[Myhaylo]

Сообщение от Swatch

сделать такое выделение в ленточной форме... Потому что предпочтительнее именно ленточная форма, а не табличная ((((

Поясните, пожалуйста, почему Вам предпочтительнее именно ленточная форма? Мой вопрос вовсе не относится к Вашей проблеме - это мне интересно.

[Swatch]

Если честно, предпочтительнее потому, что уже все формы ленточные, и если их переделать в табличные, то придется переименовывать поля, так как в источниках данных они неблагозвучно названы. Спасибо за ответы, нашла решение, которое правда не работает в 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, условие форматирования, чтобы оно было равно идентификатору текущей записи.

[Woodlin]

Сообщение от Андрэич

...
Раскраска строк ленточной формы:
http://hiprog.com/index.php?option=c...=658&Itemid=35
Выделение текущей строки табличной или ленточной формы:
http://hiprog.com/index.php?option=c...=626&Itemid=35
...

Спасибо большое за ссылки! Узнал кое-что новое.