ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как вернуть галочки в назад
8 сообщений из 8, страница 1 из 1
как вернуть галочки в назад
    #32669197
Фотография andj25
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andj25
Участник
убираю все это гадство, а потом хотелось бы все вернуть
на "главной кнопочной форме" есть 2 кнопке обычный вход и вход с возможностью редактирования интерфейса (нажимать при запуске shift не всегда вспомнишь вот и хотелось бы иметь возможность делать все программно)
хотя наверно нужно не вернуть галочки на место а вернуть все панели инструментов, строку состояния и пр.
...
Рейтинг: 0 / 0
27.08.2004, 15:38:56
| Ответить | Цитировать | Написать  
как вернуть галочки в назад
    #32669284
Mike_LV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mike_LV
Гость
Из справки по Access:

Sub SetStartupProperties()
ChangeProperty "StartupForm", dbText, "Клиенты"
ChangeProperty "StartupShowDBWindow", dbBoolean, False
ChangeProperty "StartupShowStatusBar", dbBoolean, False
ChangeProperty "AllowBuiltinToolbars", dbBoolean, False
ChangeProperty "AllowFullMenus", dbBoolean, True
ChangeProperty "AllowBreakIntoCode", dbBoolean, False
ChangeProperty "AllowSpecialKeys", dbBoolean, True
ChangeProperty "AllowBypassKey", dbBoolean, True

End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Свойство не найдено.
Set prp = dbs.CreateProperty(strPropName, _

varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Неизвестная ошибка.
ChangeProperty = False
Resume Change_Bye
End If
End Function
...
Рейтинг: 0 / 0
27.08.2004, 16:11:18
| Ответить | Цитировать | Написать  
как вернуть галочки в назад
    #32669307
Фотография andj25
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andj25
Участник
и куда это вешать?
...
Рейтинг: 0 / 0
27.08.2004, 16:25:31
| Ответить | Цитировать | Написать  
как вернуть галочки в назад
    #32669336
Mike_LV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mike_LV
Гость
На событие открытия стартовой формы. Желательно с проверкой имени пользователя.
...
Рейтинг: 0 / 0
27.08.2004, 16:39:07
| Ответить | Цитировать | Написать  
как вернуть галочки в назад
    #32669361
Фотография andj25
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andj25
Участник
а теперь вопрос:
где этот код включает все менюшки?
...
Рейтинг: 0 / 0
27.08.2004, 16:53:40
| Ответить | Цитировать | Написать  
как вернуть галочки в назад
    #32669370
Mike_LV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mike_LV
Гость
Здесь
ChangeProperty "AllowFullMenus", dbBoolean, True
А если заменить ChangeProperty "AllowFullMenus", dbBoolean, True на отключает.
...
Рейтинг: 0 / 0
27.08.2004, 16:57:46
| Ответить | Цитировать | Написать  
как вернуть галочки в назад
    #32669382
Фотография andj25
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andj25
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Database, prp As Property
Const conPropNotFoundError =  3270 

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then  ' Свойство не найдено. 
Set prp = dbs.CreateProperty(strPropName, _

varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
 ' Неизвестная ошибка. 
ChangeProperty = False
Resume Change_Bye
End If
End Function

а эта дрянь для чего?
...
Рейтинг: 0 / 0
27.08.2004, 17:01:38
| Ответить | Цитировать | Написать  
как вернуть галочки в назад
    #32669387
Mike_LV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mike_LV
Гость
Читайте, пожалуйста, внимательно.
ChangeProperty "AllowFullMenus", dbBoolean, True
...
Рейтинг: 0 / 0
27.08.2004, 17:04:22
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как вернуть галочки в назад
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=%D0%93%D0%BE%D1%81%D1%82%D1%8C+%2FKezya&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 7ms
get forum list:
 14ms
get settings:
 6ms
get forum list:
 15ms
get settings:
 7ms
get forum list:
 15ms
get settings:
 6ms
get forum list:
 9ms
get settings:
 7ms
get forum list:
 15ms
get settings:
 6ms
get forum list:
 13ms
get settings:
 6ms
get forum list:
 9ms
get settings:
 5ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 11ms
get settings:
 6ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 9ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 7ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 10454ms
total:  10773ms
созд. / загр.: 10773ms
x
x
Закрыть


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