Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как вернуть галочки в назад / 8 сообщений из 8, страница 1 из 1
27.08.2004, 15:38:56
    #32669197
andj25
andj25
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как вернуть галочки в назад
убираю все это гадство, а потом хотелось бы все вернуть
на "главной кнопочной форме" есть 2 кнопке обычный вход и вход с возможностью редактирования интерфейса (нажимать при запуске shift не всегда вспомнишь вот и хотелось бы иметь возможность делать все программно)
хотя наверно нужно не вернуть галочки на место а вернуть все панели инструментов, строку состояния и пр.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2004, 16:11:18
    #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:25:31
    #32669307
andj25
andj25
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как вернуть галочки в назад
и куда это вешать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2004, 16:39:07
    #32669336
Mike_LV
Mike_LV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как вернуть галочки в назад
На событие открытия стартовой формы. Желательно с проверкой имени пользователя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2004, 16:53:40
    #32669361
andj25
andj25
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как вернуть галочки в назад
а теперь вопрос:
где этот код включает все менюшки?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2004, 16:57:46
    #32669370
Mike_LV
Mike_LV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как вернуть галочки в назад
Здесь
ChangeProperty "AllowFullMenus", dbBoolean, True
А если заменить ChangeProperty "AllowFullMenus", dbBoolean, True на отключает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.08.2004, 17:01:38
    #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:04:22
    #32669387
Mike_LV
Mike_LV
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как вернуть галочки в назад
Читайте, пожалуйста, внимательно.
ChangeProperty "AllowFullMenus", dbBoolean, True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / как вернуть галочки в назад / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 12975ms
Закрыть
start [/forum/search_topic.php?author=%D0%9B%D1%8F%D0%BB%D1%8F%D0%BB%D1%8F&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 6ms
get forum list:
 14ms
get settings:
 6ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 13ms
get settings:
 7ms
get forum list:
 14ms
get settings:
 9ms
get forum list:
 10ms
get settings:
 8ms
get forum list:
 10ms
get settings:
 6ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 16ms
get settings:
 6ms
get forum list:
 16ms
get settings:
 12ms
get forum list:
 10ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 30ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 12672ms
total:  12975ms
x
x
Закрыть


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