une requete de suppression

Question

Salut tout le monde

j'ai un proble que je n'arrive pas à résoudre :

Voila c'est une appli qui gere les réservations dans un hotel et les données sont stockés dans une base de donnée Access. Le principe est simple : tu remplit les coordonnées d'une personne avec la date de début et la date de fin (a l'aide d'un DTPicker)et tu valide !
ce que je voudrais faire c'est supprimer une réservation dont la date de fin est inférieur à la date du jour pour supprimer les réservation périmés.

voici le code qui ne marche pas :
Private Sub menu_supprresperim_Click()

If Data2.RecordSource = "delete * from reservation where reservation.date_fin > '#" & Now & "#'" Then
    MsgBox "Les réservations périmés ont été supprimé", vbInformation
    Data2.Refresh
Else
    MsgBox "Il n'y a aucune réservations périmés", vbInformation
End If

End Sub

merci beaucoup si vous pouvez m'aider ;) !!

Alex

cs_natacha75 · Answer

Je pense que tu devrais changer le > en < !!!!!!

Fais attention à ce que tu marques dans les MsgBox, il y a beaucoup de fautes : 
     "Les réservations périmées ont été supprimées"
     "Il n'y a aucune réservation périmée"

Natacha

Une requete de suppression

1 réponse

Discussions similaires