ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Кнопка?
11 сообщений из 11, страница 1 из 1
Кнопка?
    #32291802
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Помогите PLEASE!
У меня в форме есть кнопка "разрешить изменения". При открытии формы, по умолчанию изменения запрещены, и мне надо сделать так, чтобы пока кнопку не нажали в поле (например "поле13") была запись красным цыетом "изменения запрещены", а когда кнопку нажали, то после нажатия кнопки в этом поле была бы надпись синим цветом "изменения разрешены".
Подскажите пожалуйста как это сделать.
Вот код этой кнопки:
Private Sub Кнопка116_Click()
Me.AllowEdits = True
CI_NAME.SetFocus
End Sub
...
Рейтинг: 0 / 0
13.10.2003, 18:37
| Ответить | Цитировать | Написать  
Кнопка?
    #32291812
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Используй свойство Enabled и не парься!
...
Рейтинг: 0 / 0
13.10.2003, 18:44
| Ответить | Цитировать | Написать  
Кнопка?
    #32291814
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Я для этой кнопки использую свойство Locked в цикле по всем элементам формы.
...
Рейтинг: 0 / 0
13.10.2003, 18:46
| Ответить | Цитировать | Написать  
Кнопка?
    #32291817
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Да пусть меняет цвет поля, если ему так нравится.

Красный:
Поле13.BackColor = RGB(255, 0, 0)
Синий:
Поле13.BackColor = RGB(0, 0, 255)
--------------------
Best wishes, Dmitriy
...
Рейтинг: 0 / 0
13.10.2003, 18:49
| Ответить | Цитировать | Написать  
Кнопка?
    #32291819
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
У-у-у-ух, ё. Что ж я сделал-то????
Невнимательность, млин...

Меняй текст и цвет текста:

Поле13 = "Запрещено"
Поле13.ForeColor = RGB(255, 0, 0)

И аналогично
Поле13 = "Разрешено"
Поле13.ForeColor = RGB(0, 0, 255)


--------------------
Best wishes, Dmitriy
...
Рейтинг: 0 / 0
13.10.2003, 18:53
| Ответить | Цитировать | Написать  
Кнопка?
    #32291848
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Спасибо за "изменение цвета", но я еще не знаю как связать нажатие кнопки с появлением соответствующей записи в поле!
А на счет "Enabled" и "Locked" я еще слишком начинающий юзер (только не пинайте меня ногами) и не знаю, что это за свойства.
:-)
...
Рейтинг: 0 / 0
13.10.2003, 19:28
| Ответить | Цитировать | Написать  
Кнопка?
    #32291869
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Тогда мой тебе совет, ноги в руки и бегом в книжный магазин за Гетцом
--------------------
Best wishes, Dmitriy
...
Рейтинг: 0 / 0
13.10.2003, 19:38
| Ответить | Цитировать | Написать  
Кнопка?
    #32291872
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
А если Вы имели ввиду этот пример:
Sub Form_Current()
If Me!EmployeeType = "Manager" Then
Me!SalaryDetails.Enabled = True
Me!PersonalInfo.Enabled = True
Me!PersonalInfo.Locked = False
Else
Me!SalaryDetails.Enabled = False
Me!PersonalInfo.Enabled = False
Me!PersonalInfo.Locked = True
End If
End Sub
то мне просто надо чтобы пользователь мог один раз отключать блокировку записей, а потом еще раз включать мне блокировку не надо.
...
Рейтинг: 0 / 0
13.10.2003, 19:42
| Ответить | Цитировать | Написать  
Кнопка?
    #32291878
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Спасибо за совет, ОЧЕНЬ давно хочу купить Гетца, но материальное положение не позволяет (т.к. я - бедный студент).
Но мне бы все-таки по сути вопроса:
как связать нажатие кнопки с появлением соответствующей записи в поле?
...
Рейтинг: 0 / 0
13.10.2003, 19:45
| Ответить | Цитировать | Написать  
Кнопка?
    #32291882
Фотография Темный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Темный
Участник
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Кнопка116_Click() 
Forms![Моя форма]![Поле13] =  "Разрешено"  
Forms![Моя форма]![Поле13].ForeColor = RGB( 0 ,  0 ,  255 ) 
Me.AllowEdits = True 
CI_NAME.SetFocus 
End Sub


Чего-то я не втыкаю... Либо я идиот, либо одно из двух...




--------------------
Best wishes, Dmitriy
...
Рейтинг: 0 / 0
13.10.2003, 19:48
| Ответить | Цитировать | Написать  
Кнопка?
    #32291912
Фотография Gyslik.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gyslik.
Участник
Спасибо большое Темный!
Просто я только недавно начал изучать VBA.
:-)
...
Рейтинг: 0 / 0
13.10.2003, 20:17
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Кнопка?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=MoVL&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 11ms
get forum list:
 20ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 62ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 713ms
total:  902ms
созд. / загр.: 902ms
x
x
Закрыть


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