Описание действия при нажатии на кнопку

@АлександрКом · Регистрация: 21.10.2012

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

Здравствуйте. Попытался самостоятельно написать алгоритм действий при нажатии на кнопку, ориентируясь на пример, но, к сожалению, не получилось. В форме Возврат Тура имеются поля Заказ№ и Фамилияпассажира. При нажатии на кнопку необходимо данные из этих полей записать в поля Возвращаемый тур и Фамилия пассажира таблицы Возврат. Дата возврата должна выставляться сегодняшняя.

Visual Basic

Option Compare Database
 
Private Sub Кнопка_Click()
 
End Sub
 
Private Sub Кнопка_Click()
CurrentDb.Execute "insert into Возврат ([Возвращаемый тур], [Фамилия пассажира], [Дата возврата]) values (
'" & DLookup("[№ заказа]", "Заказ№", "[№ заказа]='" & Forms![Форма Возврат Тура]![Заказ№] & "'") & "',
 '" & DLookup("[Фамилия]", "Фамилияпассажира", "[Фамилия]='" & Forms![Форма Возврат Тура]![Фамилияпассажира] & "'") & "',
 '" & Date & "')"
MsgBox "выполнено"
End Sub

@boby104 · 30.09.2015, 11:13

АлександрКом,
вам сложно помочь, как правило и форумчанам нет времени копаться в сложностях ваших решений
1. В форме Возврат Тура - нет данных - сначала сделайте так что бы там были данные
2. DLookup("[№ заказа]", "Заказ№", "[№ заказа]='" & Forms![Форма Возврат Тура]![Заказ№] & "'" - вы используете функцию получения данных из таблицы Заказ№ - а такой таблицы нет в базе
исправляйте это и потом у вас все получится а если нет то помогут форумчане

@boby104 1266 / 448 / 129 Регистрация: 21.03.2013 Сообщений: 1,210
	30.09.2015, 11:13	2
	АлександрКом, вам сложно помочь, как правило и форумчанам нет времени копаться в сложностях ваших решений 1. В форме Возврат Тура - нет данных - сначала сделайте так что бы там были данные 2. DLookup("[№ заказа]", "Заказ№", "[№ заказа]='" & Forms![Форма Возврат Тура]![Заказ№] & "'" - вы используете функцию получения данных из таблицы Заказ№ - а такой таблицы нет в базе исправляйте это и потом у вас все получится а если нет то помогут форумчане 1