INSERT INTO tAnnulation ( tClientsFK, ResDate, tArretsDepartFK, tArretsDestinationFK,
NbrePers, Observations, CreaDate, Ligne, NumCircul, Depart, Destination, Taxi, TaxiMail )
SELECT tReservations.tClientsFK, tReservations.ResDate, tReservations.tArretsDepartFK, tReservations.tArretsDestinationFK,
tReservations.NbrePers, tReservations.Observations, tReservations.CreaDate, tHorLignes.tLignesFK, tHorLignes.NumCirculation, tArrets.ArretNom, tArrets_1.ArretNom, [taxiNom] & Chr(13) & Chr(10) & "Tel : " & [taxiTelephone] & " / Portable : " & [taxiPortable] & " / Fax : " & [taxiFAX] & Chr(13) & Chr(10) & "Adresse : " & [taxiAdresse] & " " & [taxiCP] & " " & [taxiVille] & Chr(13) & Chr(10) & "Mail : " & [taxiMail] AS Taxi, tTaxis.taxiMail
FROM tTaxis INNER JOIN (((tReservations INNER JOIN tHorLignes ON tReservations.[tHorLignesFK] = tHorLignes.[tHorLignesPK]) INNER JOIN tArrets ON tReservations.[tArretsDepartFK] = tArrets.[tArretsPK]) INNER JOIN tArrets AS tArrets_1 ON tReservations.[tArretsDestinationFK] = tArrets_1.tArretsPK) ON tTaxis.[tTaxisPK] = tHorLignes.[tTaxisFK]
WHERE (((tReservations.tClientsFK)=[Formulaires]![fAnnulation]![cboClient]) AND ((tReservations.ResDate)>Date()) AND ((tReservations.AnnulDate) Is Null));
Partager