Modifier "select * from Reservation where NomOrganisme '" & LabelOrganisme.Caption & "' and VilleOrganisme = '" & LabelVille.Caption & "' and [N°FicheReservation] = '" & LabelFiche.Caption & "' and DateSeance = #" & CDate(LabelDate) & "# and HoraireSeance = '" & LabelHoraire.Caption & "'" Set rs1 = base.OpenRecordset(Modifier) AjoutReservation.TNomOrganisme.Text = rs1("NomOrganisme") AjoutReservation.TVille.Text = rs1("VilleOrganisme") AjoutReservation.TDateSeance.Text = rs1("DateSeance") AjoutReservation.CHoraireSeance.Text = rs1("HoraireSeance") AjoutReservation.Text4.Text = rs1("[N°FicheReservation]") AjoutReservation.TDateReservation.Text = rs1("DateReservation") AjoutReservation.CTypeReservation.Text = rs1("TypeReservation") AjoutReservation.CPayeur.Text = rs1("Payeur") AjoutReservation.CReglement.Text = rs1("ModeReglement") AjoutReservation.TPrix1.Text = rs1("NbPlace1") AjoutReservation.TPrix2.Text = rs1("NbPlace2") AjoutReservation.TPrix3.Text = rs1("NbPlace3") AjoutReservation.TPrix4.Text = rs1("NbPlace4") AjoutReservation.TSupp1.Text = rs1("NbSupp1") AjoutReservation.TSupp2.Text = rs1("NbSupp2") AjoutReservation.TSupp3.Text = rs1("NbSupp3") AjoutReservation.TSupp4.Text = rs1("NbSupp4") AjoutReservation.TAccPayant.Text = rs1("AccPayant") AjoutReservation.TAccGratuit.Text = rs1("AccGratuit") AjoutReservation.LabelTotalPlace.Caption = rs1("TotalPlace") AjoutReservation.LabelSTotal.Caption = rs1("STotal") AjoutReservation.TSReglee.Text = rs1("SReglee") AjoutReservation.LabelSRestante.Caption = rs1("SRestante") AjoutReservation.TRemOrganisme.Text = rs1("RemOrganisme") AjoutReservation.TSouhait.Text = rs1("SouhaitReservation")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question...si tes champs DateSeance et Horaireseance sont de type date...
Oui mes champs sont de type date.
..and HoraireSeance = '" & LabelHoraire.Caption & "'" ...