acorna
Messages postés53Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention23 mars 2005
-
17 juin 2004 à 09:02
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 2009
-
17 juin 2004 à 11:04
hello,
je voudrais que dans un formulaire s'affiche toutes les locations à telle date. J'ai une table LOCATION avec les champs DateDebut et DateFin (exple 16/06/04 et 17/06/04), mais en requête paramétrée, seules les date recherchée = DateDEbut apparaitront, et si j'entre en date recherchée le 17/06/04, rien n'apparaitra réservé, alors que la salle sera bel et bien occupée. On m'a donné un début de piste que j'ai essayé d'exploiter, mais je ne pense pas être pour autant sortie du problème.Voici mon code actuel, situé sur le bouton de commande de recherche :
Dim chxrep
Dim NumEnr, i As Integer
chxrep = InputBox("Entrer la date recherchée", "date")
Dim Db As Database
Dim rs As Recordset
Set Db = CurrentDb()
Set rs = Db.OpenRecordset("LOCATION")
rs.MoveFirst
For i = 1 To rs.RecordCount
If Val(rs("DateDebutLoc").Value) <> Val(chxrep) Then
rs.MoveNext
Else
Exit For
End If
Next i
rs.Close
stDocName = "form definitif recherche dispo"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Maximize
Db.Execute ("SELECT DISTINCTROW [DateDebutLoc], [DateFinLoc] FROM LOCATION WHERE ((([DateDebutLoc])<=[formenregistrementlocation]![DateDebutLoc]![chxrep]) AND (([DateFinLoc])>=[formenregistrementlocation]![DateFinLoc]![chxrep]))")
If Not rs.EOF Then Rep = MsgBox("La salle" & [NomSalle] & "est occupée")
Quelqu'un peut-il m'aider à rectifier tout ça? merci :)
acorna
Messages postés53Date d'inscriptionmercredi 26 mai 2004StatutMembreDernière intervention23 mars 2005 17 juin 2004 à 09:38
hello ,
oui mais, en mettant ces contrôles DTPicker, mes champs date début et date fin ne sont pas renseignés, et donc non enregistrés dans mes tables, je me trompe?