Bonjour =E0 tous, j'ai une proc=E9dure qui me permet d'ajouter=20
des recordSet avec les heures dans une table entre 2 dates.
J'aimerai lui dire que, tous les 5 jours sur 7, il me=20
mette 2 jours de repos et qu'il continue comme =E7a jusqu'=E0=20
la date de fin.
Voici mon code :=20
Dim Rs As DAO.Recordset
Set Rs =3D Me.Recordset
Dim ladate, Madatedebut, Madatefin, MaDateDemande As Date
Dim MonAutoNumber As Long
Madatedebut =3D Forms![F-cast]![Child49]!datedebut.Value
Madatefin =3D Forms![F-cast]![Child49]!datedefin.Value
MonAutoNumber =3D Forms![F-cast]!autonumberCast.Value
MaDateDemande =3D Forms![F-cast]![Child49]!datedemande.Value
For ladate =3D Madatedebut To Madatefin Step 1
Rs.AddNew
Rs("datedemande") =3D MaDateDemande
Rs("madate") =3D ladate
Rs("autonumbernom") =3D MonAutoNumber
Rs("horaireprevu60") =3D "07:00"
Rs("inout") =3D "IN"
Rs("cycleprevu") =3D "9-17"
=20
Rs.Update
Next
Requery
J'imagine qu'il y a du DLoop dans l'air, mais je ne=20
r=E9ussis pas =E0 l'inserer.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour
dans ta boucle il faut que tu testes si Madatedebut est un samedi ou un dimanche. pour cela utilise la fonction Weekday(Madatedebut ) et teste si elle est egale à 1 ou à 7, dans ce cas tu es en repos et tu modifies le chargement de tes champs.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Barlou" a écrit dans le message de news:152a01c47bc0$2f2b7150$ Bonjour à tous, j'ai une procédure qui me permet d'ajouter des recordSet avec les heures dans une table entre 2 dates. J'aimerai lui dire que, tous les 5 jours sur 7, il me mette 2 jours de repos et qu'il continue comme ça jusqu'à la date de fin. Voici mon code : Dim Rs As DAO.Recordset Set Rs = Me.Recordset
Dim ladate, Madatedebut, Madatefin, MaDateDemande As Date Dim MonAutoNumber As Long Madatedebut = Forms![F-cast]![Child49]!datedebut.Value Madatefin = Forms![F-cast]![Child49]!datedefin.Value MonAutoNumber = Forms![F-cast]!autonumberCast.Value MaDateDemande = Forms![F-cast]![Child49]!datedemande.Value
J'imagine qu'il y a du DLoop dans l'air, mais je ne réussis pas à l'inserer.
Merci d'avance pour votre aide
Barlou
Bonjour
dans ta boucle il faut que tu testes si Madatedebut est un samedi ou un
dimanche. pour cela utilise la fonction Weekday(Madatedebut ) et teste si
elle est egale à 1 ou à 7, dans ce cas tu es en repos et tu modifies le
chargement de tes champs.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Barlou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:152a01c47bc0$2f2b7150$a501280a@phx.gbl...
Bonjour à tous, j'ai une procédure qui me permet d'ajouter
des recordSet avec les heures dans une table entre 2 dates.
J'aimerai lui dire que, tous les 5 jours sur 7, il me
mette 2 jours de repos et qu'il continue comme ça jusqu'à
la date de fin.
Voici mon code :
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
Dim ladate, Madatedebut, Madatefin, MaDateDemande As Date
Dim MonAutoNumber As Long
Madatedebut = Forms![F-cast]![Child49]!datedebut.Value
Madatefin = Forms![F-cast]![Child49]!datedefin.Value
MonAutoNumber = Forms![F-cast]!autonumberCast.Value
MaDateDemande = Forms![F-cast]![Child49]!datedemande.Value
dans ta boucle il faut que tu testes si Madatedebut est un samedi ou un dimanche. pour cela utilise la fonction Weekday(Madatedebut ) et teste si elle est egale à 1 ou à 7, dans ce cas tu es en repos et tu modifies le chargement de tes champs.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Barlou" a écrit dans le message de news:152a01c47bc0$2f2b7150$ Bonjour à tous, j'ai une procédure qui me permet d'ajouter des recordSet avec les heures dans une table entre 2 dates. J'aimerai lui dire que, tous les 5 jours sur 7, il me mette 2 jours de repos et qu'il continue comme ça jusqu'à la date de fin. Voici mon code : Dim Rs As DAO.Recordset Set Rs = Me.Recordset
Dim ladate, Madatedebut, Madatefin, MaDateDemande As Date Dim MonAutoNumber As Long Madatedebut = Forms![F-cast]![Child49]!datedebut.Value Madatefin = Forms![F-cast]![Child49]!datedefin.Value MonAutoNumber = Forms![F-cast]!autonumberCast.Value MaDateDemande = Forms![F-cast]![Child49]!datedemande.Value
J'imagine qu'il y a du DLoop dans l'air, mais je ne réussis pas à l'inserer.
Merci d'avance pour votre aide
Barlou
Barlou
Merci RAymond,
J'essayerai ça de retour lundi
Bon WeekEnd
Patrick
-----Message d'origine----- Bonjour
dans ta boucle il faut que tu testes si Madatedebut est un samedi ou un
dimanche. pour cela utilise la fonction Weekday (Madatedebut ) et teste si
elle est egale à 1 ou à 7, dans ce cas tu es en repos et tu modifies le
chargement de tes champs.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Barlou" a écrit dans le message de
news:152a01c47bc0$2f2b7150$ Bonjour à tous, j'ai une procédure qui me permet d'ajouter des recordSet avec les heures dans une table entre 2 dates.
J'aimerai lui dire que, tous les 5 jours sur 7, il me mette 2 jours de repos et qu'il continue comme ça jusqu'à la date de fin. Voici mon code : Dim Rs As DAO.Recordset Set Rs = Me.Recordset
Dim ladate, Madatedebut, Madatefin, MaDateDemande As Date Dim MonAutoNumber As Long Madatedebut = Forms![F-cast]![Child49]!datedebut.Value Madatefin = Forms![F-cast]![Child49]!datedefin.Value MonAutoNumber = Forms![F-cast]!autonumberCast.Value MaDateDemande = Forms![F-cast]![Child49]!datedemande.Value
J'imagine qu'il y a du DLoop dans l'air, mais je ne réussis pas à l'inserer.
Merci d'avance pour votre aide
Barlou
.
Merci RAymond,
J'essayerai ça de retour lundi
Bon WeekEnd
Patrick
-----Message d'origine-----
Bonjour
dans ta boucle il faut que tu testes si Madatedebut est
un samedi ou un
dimanche. pour cela utilise la fonction Weekday
(Madatedebut ) et teste si
elle est egale à 1 ou à 7, dans ce cas tu es en repos et
tu modifies le
chargement de tes champs.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Barlou" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:152a01c47bc0$2f2b7150$a501280a@phx.gbl...
Bonjour à tous, j'ai une procédure qui me permet d'ajouter
des recordSet avec les heures dans une table entre 2
dates.
J'aimerai lui dire que, tous les 5 jours sur 7, il me
mette 2 jours de repos et qu'il continue comme ça jusqu'à
la date de fin.
Voici mon code :
Dim Rs As DAO.Recordset
Set Rs = Me.Recordset
Dim ladate, Madatedebut, Madatefin, MaDateDemande As Date
Dim MonAutoNumber As Long
Madatedebut = Forms![F-cast]![Child49]!datedebut.Value
Madatefin = Forms![F-cast]![Child49]!datedefin.Value
MonAutoNumber = Forms![F-cast]!autonumberCast.Value
MaDateDemande = Forms![F-cast]![Child49]!datedemande.Value
dans ta boucle il faut que tu testes si Madatedebut est un samedi ou un
dimanche. pour cela utilise la fonction Weekday (Madatedebut ) et teste si
elle est egale à 1 ou à 7, dans ce cas tu es en repos et tu modifies le
chargement de tes champs.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access.vba.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"Barlou" a écrit dans le message de
news:152a01c47bc0$2f2b7150$ Bonjour à tous, j'ai une procédure qui me permet d'ajouter des recordSet avec les heures dans une table entre 2 dates.
J'aimerai lui dire que, tous les 5 jours sur 7, il me mette 2 jours de repos et qu'il continue comme ça jusqu'à la date de fin. Voici mon code : Dim Rs As DAO.Recordset Set Rs = Me.Recordset
Dim ladate, Madatedebut, Madatefin, MaDateDemande As Date Dim MonAutoNumber As Long Madatedebut = Forms![F-cast]![Child49]!datedebut.Value Madatefin = Forms![F-cast]![Child49]!datedefin.Value MonAutoNumber = Forms![F-cast]!autonumberCast.Value MaDateDemande = Forms![F-cast]![Child49]!datedemande.Value
