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