Ленточная форма. Поле доступно для редактирования не во всех записях

Тру-ля-ля

Дата: 20.02.2016 12:12:10

Добрый день. Акцесс 2003
Ленточная форма. Поле доступно для редактирования не во всех записях. Возможно ли такое? В принципе, недоступность для редактирования устроит в любом виде (Locked, Visible, размеры = 0, прикрыть другим объектом и тд) Подскажите идеи.
Спасибо

Predeclared

Дата: 20.02.2016 12:14:31

Условное форматирование.

Лапух

Дата: 20.02.2016 12:29:58

Если к примеру на записи есть флажочек, типа Разрешить, то наверное что то примерно такое пойдет:
Private Sub Form_Current()
If (Me.ФлРазрешить = True) Then
Me.AllowEdits = True
Me.AllowDeletions = True
Else
Me.AllowEdits = False
Me.AllowDeletions = False
End If
End Sub
Ну или наоборот False / True , в зависимости от потребностей.

Тру-ля-ля

Дата: 20.02.2016 12:35:43

Predeclared,
пишу
With Me!Поле
.FormatConditions.Delete
.FormatConditions.Add acExpression, , "флаг=-1"
.FormatConditions(0).Visible = False
End With
ругается на .FormatConditions(0).Visible = False
Я так понимаю что условное форматирование поддерживает свойства цвета и начертания. Если ошибаюсь - поправте

Тру-ля-ля

Дата: 20.02.2016 12:43:01

Лапух
Если к примеру на записи есть флажочек, типа Разрешить, то наверное что то примерно такое пойдет: Me.AllowEdits = True Me.AllowDeletions = True .

Необходимо организовать недоступность для редактирования поля не во всех записях ленточной формы. Об AllowEdits формы речи не идет. Или я что-то не так понял

Predeclared

Дата: 20.02.2016 12:46:13

fc.Enabled

Лапух

Дата: 20.02.2016 12:48:21

Может и я чего не так понял?
Например можно указывать возможность доступа к определенныым полям, что то типа:

Me.Поле4.Enabled = False
Me.Поле6.Enabled = True
Me.Поле8.Enabled = False

__Michelle

Дата: 20.02.2016 12:48:28

Private Sub Form_Current()
   Me.Поле.Locked = Me.флаг
   ..................
End Sub

Slavinag

Дата: 20.02.2016 12:48:33

Чем не угодило обработка события формы "Текущая запись"?

Private Sub Form_Current()

On Error GoTo Err_Form_Current

With Me

    .Поле.Locked = False
    '.Поле.Enabled = True

    If .Поле.Value > 0 Then

        .Поле.Locked = True
        '.Поле.Enabled = False

    End If

End With

Exit_Form_Current:
Exit Sub

Err_Form_Current:
MsgBox Err.Description & vbCrLf & Err.Number, vbCritical, Form [MyForm] -> Sub [Form_Current]"
Resume Exit_Form_Current

End Sub

Тру-ля-ля

Дата: 20.02.2016 12:49:53

Тру-ля-ля

Лапух
Если к примеру на записи есть флажочек, типа Разрешить, то наверное что то примерно такое пойдет: Me.AllowEdits = True Me.AllowDeletions = True .

О. Пардон. Не обратил внимание на Private Sub Form_Current()
Поправлюсь в условии поставленной задачи.
Необходимо, чтобы в ленточной форме одно из полей не всегда выводилось на экран