powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ленточная форма. Поле доступно для редактирования не во всех записях
14 сообщений из 14, страница 1 из 1
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175938
Тру-ля-ля
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день. Акцесс 2003
Ленточная форма. Поле доступно для редактирования не во всех записях. Возможно ли такое? В принципе, недоступность для редактирования устроит в любом виде (Locked, Visible, размеры = 0, прикрыть другим объектом и тд) Подскажите идеи.
Спасибо
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175941
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Условное форматирование.
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175963
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если к примеру на записи есть флажочек, типа Разрешить, то наверное что то примерно такое пойдет:
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 , в зависимости от потребностей.
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175968
Тру-ля-ля
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Predeclared,
пишу
With Me!Поле
.FormatConditions.Delete
.FormatConditions.Add acExpression, , "флаг=-1"
.FormatConditions(0).Visible = False
End With
ругается на .FormatConditions(0).Visible = False
Я так понимаю что условное форматирование поддерживает свойства цвета и начертания. Если ошибаюсь - поправте
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175976
Тру-ля-ля
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ЛапухЕсли к примеру на записи есть флажочек, типа Разрешить, то наверное что то примерно такое пойдет:
Me.AllowEdits = True
Me.AllowDeletions = True
.
Необходимо организовать недоступность для редактирования поля не во всех записях ленточной формы. Об AllowEdits формы речи не идет. Или я что-то не так понял
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175979
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
fc.Enabled
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175983
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может и я чего не так понял?
Например можно указывать возможность доступа к определенныым полям, что то типа:

Me.Поле4.Enabled = False
Me.Поле6.Enabled = True
Me.Поле8.Enabled = False
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175984
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
Private Sub Form_Current()
   Me.Поле.Locked = Me.флаг
   ..................
End Sub
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175985
Фотография Slavinag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Чем не угодило обработка события формы "Текущая запись"?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
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
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175987
Тру-ля-ля
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Тру-ля-ляЛапухЕсли к примеру на записи есть флажочек, типа Разрешить, то наверное что то примерно такое пойдет:
Me.AllowEdits = True
Me.AllowDeletions = True
.
Необходимо организовать недоступность для редактирования поля не во всех записях ленточной формы. Об AllowEdits формы речи не идет. Или я что-то не так понял

О. Пардон. Не обратил внимание на Private Sub Form_Current()
Поправлюсь в условии поставленной задачи.
Необходимо, чтобы в ленточной форме одно из полей не всегда выводилось на экран
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175988
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тру-ля-ляНеобходимо организовать недоступность для редактирования поля не во всех записях ленточной формы

в примере низзя если галочка стоит в текущей записи...
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175990
Фотография Slavinag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Тру-ля-ля,

Если не выводить, то
в событии Куррент вместо Лоскед использовать Визибле.
Иначе
наоборот
Конец Если
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39175993
Тру-ля-ля
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Торможу.
И в прямь надо поиграться Private Sub Form_Current().
Разобрался.
Спасибо
...
Рейтинг: 0 / 0
Ленточная форма. Поле доступно для редактирования не во всех записях
    #39176701
Тру-ля-ляПоле доступно для редактирования не во всех записях. Еще раз - самое простое и правильное решений, это Условное форматирование. И настроить его для поля надо один раз в конструкторе.
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Ленточная форма. Поле доступно для редактирования не во всех записях
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]