Изменяемая подчиненая форма

[raytek]

Что нужно написать в свойстве подчиненая форма "объект-источник", чтобы при изменении данных в поле основной формы "пол" М или Ж подставлялась соответствующая им подчиненная форма М или Ж. Поле ФИО1 служит для поиска записей в форме
Foto.jpg
Заранее спасибо!

[Woodlin]

При изменении данных в поле основной формы "пол" М или Ж программно меняйте объект-источник контрола подчиненная форма.
Me!КонтролПодчиненнаяФорма.SourceOb ject = "М"
или
Me!КонтролПодчиненнаяФорма.SourceOb ject = "Ж"
где М и Ж имена форм.

[raytek]

Извените, я не прграммист и ничего не понял, какую сделать запись в поле "объект-источник"? Нужно чтобы при поиске в основной "форма1" менялась подчиненная форма в зависимости от записи в поле "пол". Форма1 сделана на основе таблица1, ПодчиненаяФорма_Ж на основе таблица2, ПодчиненаяФорма_М на основе таблица3, Таблица1 связана отношением "1 ко многим" и с таблица2 и таблица3

[Woodlin]

raytek, если форма1 у Вас служит для ввода новых данных, то на событие после обновления поля Пол можно написать так:

IF Me!Пол = "м" THEN
    Me!КонтролПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_М"
ELSE
    Me!КонтролПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_Ж"
END IF

Если ещё и для просмотра данных, то думаю этот код стоит вставить и в событие формы Текущая запись.


P.S. А может Вам попробовать элемент управления Вкладки?

[raytek]

Спасибо, попробую. Я привел простой пример, а задача у меня гораздо сложней, в форме1 уже куча вкладок и форма предназначена для просмотра энергетического оборудования с совершенно разными свойствами, не совместимыми в одной таблице....
Подождите, а что написать в поле "объект-источник" подчиненной формы?

[dMike]

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

Подождите, а что написать в поле "объект-источник" подчиненной формы?

В этом поле подчиненной формы уже прописан объект-источник, - таблица, с которой связана данная форма. Не путайте контрол основной формы, в который вложена субформа, с самой этой субформой. У контрола "объект-источник" - субформа, а у субформы - таблица. Однако все равно, не уверен, что у вас что-н получится, так как, насколько я понимаю (тоже не программер), аксесс в принципе не умеет в рантайме удалять и добавлять контролы в форму. Здесь правда не совсем контролы, а их содержание ..., не пробовал ... В общем, имейте ввиду ...

[Woodlin]

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

....Подождите, а что написать в поле "объект-источник" подчиненной формы?

Если форма для просмотра, то можно ничего не писать, просто на событие формы форма1 "Текущая запись" подвесьте приведённый выше код. При переходе по записям будет определяться значение поля Пол и в контрол субформа будет подставляться нужная форма.

[raytek]

Все получилось! Ваш код вставил только в Форма1 Текущая запись, строку объект-источник оставил пустой, но есть еще одна проблема. В реальном проекте болше двух подчиненых форм и я попробовал подкоректировать ваш код пока для 3х:

Это рабочий код для 2х подформ:
Код:
Private Sub Form_Current()
IF Me!Пол = "М" THEN
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_М"
ELSE
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_Ж"
END IF
End Sub

Это подкоректированный для 3х подформ:
Private Sub Form_Current()
If Me!Пол = "М" Then
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_М"
If Me!Пол = "Д" Then
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_Д"
Else
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_Ж"
End If
End Sub

но Access ругается:
Compile error:
Block If without And If

помогите исправить ошибку, нужен код для любого числа подформ
Заранее спасибо!

[shanemac51]

Private Sub Form_Current()
If Me!Пол = "М" Then
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_М"
elseIf Me!Пол = "Д" Then
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_Д"
Else
Me!ПодчиненнаяФорма.SourceObject = "ПодчиненнаяФорма_Ж"
End If
End Sub

[Woodlin]

raytek, попробуйте Select Case. Я сам его использовал для числовых значений, но судя по справке для строковых тоже должно подойти.
Пример взят со справочного сайта:

Private Sub Form_BeforeUpdate(Cancel As Integer)
 Select Case Me![Country]
 Case "France"
    If Len(Me![PostalCode]) <> 5 Then
       MsgBox "PostalCode must be 5 characters."
       Cancel = True
    End If
 Case "Japan"
    If Len(Me![PostalCode]) <> 3 Then
       MsgBox "PostalCode must be 3 characters."
       Cancel = True
    End If
 End Select
End Sub