AutoKeys

Форум:	MS ACCESS	VB	VBA MS Office	MS SQL server
Новые сообщения:	0	0	0	0

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

Доброго времени суток, Посетитель!

вид форума:

тема: AutoKeys

создать меню

Access 2003

автор: час (22.03.2009 в 16:35) личное сообщение

Пытаюсь закрыть базу

Function Quit_BD() ' Способы выхода из базы по нажатию ctrl + Q ' Способы выхода из базы по нажатию ctrl + Q If Fun_IsFormLoaded("KTO_TUT_FRM") = True Then DoCmd.Close acForm, "KTO_TUT_FRM" DoCmd.Close acMacro, "AutoKeys" DoCmd.Quit Else DoCmd.OpenForm "EXIT_FRM" End If End Function

Завершение приложения Невозможно

Вероятно требуется прерывание выполнения модуля VB , использующего протокол OLE или DDE
===========================================
Подскажите , где собака .....

Ответить

	автор: час (23.03.2009 в 12:46) личное сообщение
	Как выйти из базы отключив работу етого макроса ???????????
	Ответить

	автор: Мюллер (23.03.2009 в 14:10) личное сообщение
	По-моему, если речь идет об AutoKeys, то нельзя отключить этот макрос. Хотя можно попробовать нажать на компе RESET
	Ответить

автор: Lukas (23.03.2009 в 16:14) личное сообщение

нажать на компе RESET

Это не по программерски. Тогда уж так:

Public Function Exit_Windows() Dim strComputer As String Dim objWMIService Dim colOperatingSystems Dim ObjOperatingSystem strComputer = "." Set objWMIService = GetObject("winmgmts:" & _ "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") For Each ObjOperatingSystem In colOperatingSystems ObjOperatingSystem.ShutDown Next End Function

Ответить

	автор: час (23.03.2009 в 21:01) личное сообщение
	Они хихикают не знаю уж пробовать - отключать из коллекции систем найденную систему - или это прикол Lukas a
	Ответить

	автор: час (23.03.2009 в 21:05) личное сообщение
	У меня программа не закрываеся - а Вам смешно........ блин А Вы Мюллер в своё время мне поясняли как работать с этим макросом..... пример давали........ а теперь RESET советуете
	Ответить

	автор: час (23.03.2009 в 21:09) личное сообщение
	А ваще-то это был akkorn Я конечно решение найду .........................................................................................
	Ответить

HiProg.com - Технологии программирования