Форум программистов, компьютерный форум, киберфорум
Наши страницы
Microsoft Access
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
bvb09
0 / 0 / 0
Регистрация: 30.06.2014
Сообщений: 18
1

Макросом отключить Диалоговое окно "подтверждение"

05.06.2015, 11:56. Просмотров 2060. Ответов 3
Метки нет (Все метки)

Добрый день!

Подскажите, пожалуйста, с помощью какого набора макросов можно отключить Диалоговое окно "подтверждение" при создании макроса на добавление/удаление записи в/из таблицу/ы.
Вариант снятия соответствующих галочек в "Параметрах клиента"/"Подтверждение" в Настройках Access'а знаю, и просьба не предлагать. Спасибо!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2015, 11:56
Ответы с готовыми решениями:

Отключить диалоговое окно на подтверждение удаления
Всем привет! Меня интересует, можно каким-либо способом, при удаление, с помощью запроса, данных...

Вызвать диалоговое окно "Открыть Файл" из кода
Помогите,please. Как вызвать диалоговое окно 'Открыть Файл' из кода и получить из него адресную...

Форма в виде "модальное диалоговое окно"
Можно ли из обычной формы созданной в конструкторе без включения "Модальное диалоговое окно" ,...

Диалоговое окно в учебной базе "Борей"
Здравствуйте, подскажите, пожалуйста, как мне удалить надпись "Борей" в диалоговых окнах?

Как из Access открыть файл, используя диалоговое окно "Открыть файл"?
Из базы данных в Access нужно открыть файл Exsel. причем пользователь должен выбрать его сам. то...

3
shanemac51
Модератор
Эксперт MS Access
9267 / 3616 / 573
Регистрация: 07.08.2010
Сообщений: 10,137
Записей в блоге: 2
05.06.2015, 15:22 2
функцию вызывать из макроса AUTOEXEC или из стартовой формы

Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Option Compare Database
Option Explicit
 
'Установка начальных параметров при запуске приложения
Function DefaultSetUp()
With Application
'вид
.SetOption "Show Status Bar", True
.SetOption "Show Startup Dialog Box", True
.SetOption "скрытые Объекты", False
.SetOption "системные Объекты", False
.SetOption "show macro names column", False
.SetOption "show conditions column", False
'общие
.SetOption "left margin", "2"
.SetOption "right margin", 0.5
.SetOption "top margin", 0.5
.SetOption "bottom margin", 0.5
.SetOption "default database directory", "c:\temp"
''.SetOption "new database sort order", 9
.SetOption "provide feedback with sound", False
'html
.SetOption "hyperlink color", 12
.SetOption "followed hyperlink color", 5
.SetOption "underline hyperlinks", True
''.SetOption "show hyperlink addresses in status bar", True
'правка/поиск
.SetOption "default find/replace behavior", 0
.SetOption "confirm record changes", False
.SetOption "confirm document deletions", False
.SetOption "confirm action queries", False
.SetOption "show values in indexed", True
.SetOption "show values in non-indexed", True
.SetOption "show values in remote", False
.SetOption "show values limit", 1000
'клавиатура
.SetOption "move after enter", 1
.SetOption "arrow key behavior", 0
.SetOption "behavior entering field", 1
.SetOption "cursor stops at first/last field", False
'режим таблицы
.SetOption "default font color", 0
.SetOption "default background color", 15
.SetOption "default gridlines color", 8
.SetOption "default font name", "ms sans serif"
.SetOption "default font weight", 3
.SetOption "default font size", 10
.SetOption "default font italic", False
.SetOption "default font underline", False
.SetOption "default gridlines horizontal", True
.SetOption "default gridlines vertical", True
.SetOption "default column width", 2.5
.SetOption "default cell effect", 0
.SetOption "show animations", True
'таблицы/запросы
.SetOption "default text field size", 50
.SetOption "default number field size", 2
.SetOption "default field type", 0
.SetOption "autoindex on import/create", "шифр;ключ;код;номер"
.SetOption "show table names", True
.SetOption "output all fields", False
.SetOption "enable autojoin", True
.SetOption "run permissions", 1
'формы/отчеты
.SetOption "selection behavior", 0
.SetOption "form template", "обычный"
.SetOption "report template", "обычный"
.SetOption "always use event procedures", False
'другие
.SetOption "default record locking", 0
.SetOption "default open mode for databases", 0
.SetOption "ignore dde requests", False
.SetOption "enable dde refresh", True
.SetOption "ole/dde timeout (sec)", 30
.SetOption "number of update retries", 2
.SetOption "odbc refresh interval (sec)", 1500
.SetOption "refresh interval (sec)", 60
.SetOption "update retry interval (msec)", 250
.SetOption "error trapping", 1
End With
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "VIBOR"
'DoCmd.Close acQuery, "VIBOR"
End Function
0
avgur113
27 / 26 / 6
Регистрация: 20.04.2013
Сообщений: 72
06.06.2015, 07:53 3
В конструкторе макросов активировать: Показать все действия, выбрать команду: Установить сообщения, Нет. После выполнения процедуры не забудьте включить сообщения, выбрав: Установить сообщение, Да.
0
bvb09
0 / 0 / 0
Регистрация: 30.06.2014
Сообщений: 18
06.06.2015, 14:38  [ТС] 4
Спасибо! Воспользовался решением, авгура113.
0
06.06.2015, 14:38
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.06.2015, 14:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Открыть макросом "настраиваемый фильтр"
В форме Аксеса есть кнопка "Поиск", которая по команде Private Sub...

Message "Write conflict" with "Save record", "Copy to clipboard", "Drop changes" buttons
Здравствуйте. Получив это сообщение нажимаю на "Save record" и продолжаю работать. Скажите,...

Как отключить "Предупреждение системы безопасности"
Добрый день. Проблема: В общем у меня такая проблема. При открытии БД открывается окно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.