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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 02.11.2014, 20:11   #1
teecup
 
Регистрация: 17.10.2014
Сообщений: 4
Вопрос изменение видимости поля в зависимости от условий

Народ! Нужна помощь! Нужен код как изменить видимость поля в зависимости от выражения в другом поле на форме.
Заранее благодарен.
teecup вне форума Ответить с цитированием
Старый 04.11.2014, 02:19   #2
Волшебник
Пользователь
 
Аватар для Волшебник
 
Регистрация: 17.08.2011
Сообщений: 39
По умолчанию

teecup,
https://yadi.sk/d/_zJBFOSocUSR6
-----------------------------
307 МОНЕТ ВОЛШЕБНИКА
Волшебник вне форума Ответить с цитированием
Старый 19.12.2014, 09:04   #3
teecup
 
Регистрация: 17.10.2014
Сообщений: 4
По умолчанию

ОК волшебник! На днях отправлю. Только подсветка цветом не работает. У меня 2007 access.
teecup вне форума Ответить с цитированием
Старый 19.12.2014, 11:36   #4
teecup
 
Регистрация: 17.10.2014
Сообщений: 4
По умолчанию

Волшебник, спс уже отправил. Жду код с учетом моего замечания.
teecup вне форума Ответить с цитированием
Старый 19.12.2014, 21:08   #5
Волшебник
Пользователь
 
Аватар для Волшебник
 
Регистрация: 17.08.2011
Сообщений: 39
По умолчанию

teecup, Спасибо!
Код и файл.
Код HTML:
Option Compare Database

Private Sub Группа1_AfterUpdate()
    Select Case Группа1
    Case 1: Me![Поле1].Visible = True
    Case 2: Me![Поле1].Visible = False
    End Select
End Sub

Private Sub Поле2_Change()
    If Me![Поле2].Text = "скрыть" Then
    Me![Поле3].Visible = False
    Else
    Me![Поле3].Visible = True
    End If
End Sub

Private Sub Поле4_Change()
    Select Case Me![Поле4].Text
    Case 1
    Me![Поле5].ForeColor = RGB(0, 255, 0)
    Me![Поле5] = "Успешно"
    Case 2
    Me![Поле5].ForeColor = RGB(255, 0, 0)
    Me![Поле5] = "Неудача"
    Case 3
    Me![Поле5].ForeColor = RGB(0, 0, 0)
    Me![Поле5] = "Частичный успех"
    Case Else
    Me![Поле5].ForeColor = RGB(0, 0, 0)
    Me![Поле5] = ""
    End Select
End Sub
teecup, должно всё работать.
--------------------------------
Если работать не будет, то скинь сюда файл.
Я на 2010-м посмотрю.


Если файл не откроется,
то вот ссылка на Яндекс.Диск:
https://yadi.sk/d/Zmz52j4kdVPiY
Вложения
Тип файла: rar Видимость.rar (30.6 Кб, 29 просмотров)
-----------------------------
307 МОНЕТ ВОЛШЕБНИКА

Последний раз редактировалось Волшебник; 19.12.2014 в 21:19.
Волшебник вне форума Ответить с цитированием
Старый 19.01.2015, 12:00   #6
Sam-San
 
Регистрация: 19.01.2015
Сообщений: 3
По умолчанию

А можно и вот так...
https://yadi.sk/d/-tXa-s5Xe5m6u
По кнопке "Редактировать".
Sam-San вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Cуммирование значений из нескольких файлов в один в зависимости от двух условий Akimich_ Microsoft Office Excel 0 19.04.2013 15:27
Cуммирование значений из нескольких файлов в один в зависимости от двух условий Akimich_ Помощь студентам 0 03.04.2013 16:52
Четыре сообщения в одном MsgBox, в зависимости от условий. segail Microsoft Office Excel 5 10.09.2010 23:18
Скрытие линии в зависимости от условий Brucebelg Microsoft Office Excel 7 19.05.2010 14:27
как изменять цвет ячейки в зависимости от условий ? Витёк Microsoft Office Excel 2 19.06.2007 13:10