Кто знает помогите, я только учусь.
В мастере составил запрос:
Dsql = "SELECT Demands.Date, Demands.Number, Copters.Number, Personnel.Name, Customers.Name, Targets_Out.Name, Flights.TimeOut, Targets_In.Name, Flights.TimeIn, Flights.Price, Flights.Comment, Flights.Earth, Flights.CustomerTime " & _
"FROM Targets AS Targets_Fuel INNER JOIN (Personnel INNER JOIN ((Copters INNER JOIN Demands ON Copters.ID_Copter = Demands.ID_Copter) INNER JOIN (Customers INNER JOIN ((Flights INNER JOIN Targets AS Targets_In ON Flights.ID_TargetIn = Targets_In.ID_Target) INNER JOIN Targets AS Targets_Out ON Flights.ID_TargetOut = Targets_Out.ID_Target) ON Customers.ID_Customer = Flights.ID_Customer) ON Demands.ID_Demand = Flights.ID_Demand) ON Personnel.ID_Personnel = Flights.ID_Personnel) ON Targets_Fuel.ID_Target = Flights.ID_TargetFuel " & _
"GROUP BY Demands.Date, Demands.Number, Copters.Number, Personnel.Name, Customers.Name, Targets_Out.Name, Flights.TimeOut, Targets_In.Name, Flights.TimeIn, Flights.Price, Flights.Comment, Flights.Earth, Flights.CustomerTime"

Set rstDemand = CurrentDb.OpenRecordset(Dsql)

Все замечательно компилится
Но во премя вывода
ПолеВремяВылета = ![Flights.TimeOut]
ПолеВремяПрилета = ![Flights.TimeIn]
Выдается сообщение что в семействе нет такого объекта (Flights)
Помогите

Private Sub Form_Open(Cancel As Integer)
Dim Dsql As String, Dqdf As QueryDef
'запрос на выборку для заявки
If Not IsNull(ПолеДата) Then
MsgBox "Ввудите дату"
Else
Dsql = "SELECT Demands.Date, Demands.Number, Copters.Number, Personnel.Name, Customers.Name, Targets_Out.Name, Flights.TimeOut, Targets_In.Name, Flights.TimeIn, Flights.Price, Flights.Comment, Flights.Earth, Flights.CustomerTime, Fligths" & _
"FROM Targets AS Targets_Fuel INNER JOIN (Personnel INNER JOIN ((Copters INNER JOIN Demands ON Copters.ID_Copter = Demands.ID_Copter) INNER JOIN (Customers INNER JOIN ((Flights INNER JOIN Targets AS Targets_In ON Flights.ID_TargetIn = Targets_In.ID_Target) INNER JOIN Targets AS Targets_Out ON Flights.ID_TargetOut = Targets_Out.ID_Target) ON Customers.ID_Customer = Flights.ID_Customer) ON Demands.ID_Demand = Flights.ID_Demand) ON Personnel.ID_Personnel = Flights.ID_Personnel) ON Targets_Fuel.ID_Target = Flights.ID_TargetFuel " & _
"GROUP BY Demands.Date, Demands.Number, Copters.Number, Personnel.Name, Customers.Name, Targets_Out.Name, Flights.TimeOut, Targets_In.Name, Flights.TimeIn, Flights.Price, Flights.Comment, Flights.Earth, Flights.CustomerTime"

Set rstDemand = CurrentDb.OpenRecordset(Dsql)
End If
End Sub

Private Sub MButtonNext_Click()
With rstDemand
If Not .BOF Then
Me.MButtonPrevious.Enabled = True
End If
If Not .EOF Then
ПолеДата = ![Date]
ПолеГлЗаявка = ![Demands.Number]
Me.ПолеСоСпискомБорт.SetFocus
ПолеСоСпискомБорт.Text = ![Copters.Number]
Me.ПолеСоСпискомКом.SetFocus
ПолеСоСпискомКом.Text = ![Personnel.Name]
Me.ПолеСоСпискомЗаказчикГл.SetFocus
ПолеСоСпискомЗаказчикГл.Text = ![Customers.Name]
Me.ПолеСоСпискомВылет.SetFocus
ПолеСоСпискомВылет.Text = ![Targets_Out.Name]
Me.ПолеСоСпискомПрилет.SetFocus
ПолеСоСпискомПрилет.Text = ![Targets_In.Name]
ПолеВремяВылета = ![Flights.TimeOut]
ПолеВремяПрилета = ![Flights.TimeIn]
ПолеЗемля = ![Flights.Earth]
ПолеВремяПолета.Requery
ПолеВремяЗаказчика.Requery
.MoveNext
If .EOF Then
Me.MButtonPrevious.SetFocus
Me.MButtonNext.Enabled = False
.MoveLast
End If
End If
End With
End Sub

Вот код

То Shark
Не помогает слишком много полей

To Shark
Прошу прощения все работает, Спасибо
Не мог бы объеснить почему.