MsgBox в Access, с условием выбора - "да" и "нет"...

16.08.2010, 11:39. **Показов** 6665. **Ответов** 6

Author24 — интернет-сервис помощи студентам

Подскажите, пожалуйста, как можно получить на экран сообщение системы (любой произвольной, текстовой формы, т.е. - по примеру MsgBox'а в Access), где есть условие выбора, т.е. - 'Да' или 'Нет'. При первом варианте выборки (да) - происходит дальнейшее выполнение последовательности кода, во втором случае (нет) - выполнение прекращается. Я хочу использовать эту функцию, в работе с несложной СУБД (типа телефонной книги), а именно тогда, когда необходимо записать в нее какие-либо данные. Часто бывает так, что случайно или еще как, нажав кнопку 'Запись' - сразу выполняется запись информации в таблицу. А хотелось бы получить сначала сообщение, навроде: 'Вы действительно хотите записать данные...??? с кнопками 'Да' и 'Нет'. Как это можно сделать?

И еще такой вопрос, как можно мне работать в среде одной СУБД, а таблицу с данными использовать из другой, т.е. как 'открыть' (какой командой) эту таблицу...??? У меня в одной из них есть данные - ФИО и адреса, которые могут быть использованы и другой моей СУБД. Подскажите мне как...???

@Ирча · 16.08.2010, 12:43

1)На кнопку 'Запись' команду Открыть форму.
Делаешь форму с кнопками Да, нет,
и на соответствуущие кнопки, выполнение кода, либо отказ
2)Меню: Файл>Внешние данные>Связь с таблицей

@Михайло · 16.08.2010, 14:28

If MsgBox('Привет?', vbOKCancel, 'СУБД от Марины') = vbOK Then DoCmd.Maximize

16.08.2010, 15:16

Тогда уж так:
If Msgbox('Вы действительно хотите записать данные...??? ',vbYesNo,'СУБД от Марины')=vbYes Then

17.08.2010, 10:53

Подскажите, пожалуйста мне и по второму вопросу, т.е. - как можно, находясь в одной СУБД, читать записи с данными в таблице 'принадлежащей' другой СУБД...???

@EvgenyK · 17.08.2010, 13:50

Делается это при помощи присоединенных таблиц. Присоединяются они по средствам ODBC. Для чего нужно выполнить пункт меню Файл->Внешние данные->Связь с таблицами...
Далее по обстоятельствам.
Работа с этими таблицами такая же как и с обыкновенными таблицами Access

@Михайло · 17.08.2010, 13:56

Dim wrkJet As Workspace
Dim bd As Database
Dim table As Recordset
Set wrkJet = CreateWorkspace('', 'admin', '', dbUseJet) ' Открываем сеанс Microsoft Jet
Set bd = wrkJet.OpenDatabase('f: xtd1.mdb') ' Открываем БД
Set table = bd.OpenRecordset('SELECT * FROM ТаблицаГородов', dbOpenDynaset) ' Работаем с данными
With table
.MoveFirst
MsgBox !Город_название
.AddNew
!Город_номер = 4
!Город_название = 'Канев'
.Update
End With

Маринка
		1
	MsgBox в Access, с условием выбора - "да" и "нет"... 16.08.2010, 11:39. Показов 6665. Ответов 6 Метки нет (Все метки) Подскажите, пожалуйста, как можно получить на экран сообщение системы (любой произвольной, текстовой формы, т.е. - по примеру MsgBox'а в Access), где есть условие выбора, т.е. - 'Да' или 'Нет'. При первом варианте выборки (да) - происходит дальнейшее выполнение последовательности кода, во втором случае (нет) - выполнение прекращается. Я хочу использовать эту функцию, в работе с несложной СУБД (типа телефонной книги), а именно тогда, когда необходимо записать в нее какие-либо данные. Часто бывает так, что случайно или еще как, нажав кнопку 'Запись' - сразу выполняется запись информации в таблицу. А хотелось бы получить сначала сообщение, навроде: 'Вы действительно хотите записать данные...??? с кнопками 'Да' и 'Нет'. Как это можно сделать? И еще такой вопрос, как можно мне работать в среде одной СУБД, а таблицу с данными использовать из другой, т.е. как 'открыть' (какой командой) эту таблицу...??? У меня в одной из них есть данные - ФИО и адреса, которые могут быть использованы и другой моей СУБД. Подскажите мне как...???

@Ирча 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 345
	16.08.2010, 12:43	2
	1)На кнопку 'Запись' команду Открыть форму. Делаешь форму с кнопками Да, нет, и на соответствуущие кнопки, выполнение кода, либо отказ 2)Меню: Файл>Внешние данные>Связь с таблицей 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	16.08.2010, 14:28	3
	If MsgBox('Привет?', vbOKCancel, 'СУБД от Марины') = vbOK Then DoCmd.Maximize 0

Gloom
	16.08.2010, 15:16	4
	Тогда уж так: If Msgbox('Вы действительно хотите записать данные...??? ',vbYesNo,'СУБД от Марины')=vbYes Then

Маринка
	17.08.2010, 10:53	5
	Подскажите, пожалуйста мне и по второму вопросу, т.е. - как можно, находясь в одной СУБД, читать записи с данными в таблице 'принадлежащей' другой СУБД...???

@EvgenyK 0 / 0 / 0 Регистрация: 04.07.2010 Сообщений: 13
	17.08.2010, 13:50	6
	Делается это при помощи присоединенных таблиц. Присоединяются они по средствам ODBC. Для чего нужно выполнить пункт меню Файл->Внешние данные->Связь с таблицами... Далее по обстоятельствам. Работа с этими таблицами такая же как и с обыкновенными таблицами Access 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	17.08.2010, 13:56	7
	Dim wrkJet As Workspace Dim bd As Database Dim table As Recordset Set wrkJet = CreateWorkspace('', 'admin', '', dbUseJet) ' Открываем сеанс Microsoft Jet Set bd = wrkJet.OpenDatabase('f: xtd1.mdb') ' Открываем БД Set table = bd.OpenRecordset('SELECT * FROM ТаблицаГородов', dbOpenDynaset) ' Работаем с данными With table .MoveFirst MsgBox !Город_название .AddNew !Город_номер = 4 !Город_название = 'Канев' .Update End With 0