Bonjour à tous,
Dans un état(basé sur une requête) j'ai un contrôle nommé [date]. Je
voudrais ajouter un contrôle (nommé [dateouvre]) qui contiendrait le résultat
du calcul suivant: [Date] + 10 jours ouvrables
exemple: [date]= 20-nov-2007 alors [datevouvre]=04-dec-2007(en supposant que
le samedi et le dimanche ne sont pas ouvrables.)
je ne sais pas comment faire...pouvez-vous m'aider s.v.p.
Si j'ai bien compris la question, ce qui suit devrait faire l'affaire : [dateouvre] = DateAdd("d",14,Date)
"guy boily" a écrit dans le message de news:
Bonjour à tous, Dans un état(basé sur une requête) j'ai un contrôle nommé [date]. Je voudrais ajouter un contrôle (nommé [dateouvre]) qui contiendrait le résultat du calcul suivant: [Date] + 10 jours ouvrables exemple: [date]= 20-nov-2007 alors [datevouvre]-dec-2007(en supposant que le samedi et le dimanche ne sont pas ouvrables.)
je ne sais pas comment faire...pouvez-vous m'aider s.v.p.
Merci
boily_SLSJ
Bonjour,
Si j'ai bien compris la question, ce qui suit devrait faire l'affaire :
[dateouvre] = DateAdd("d",14,Date)
"guy boily" <guyboily@discussions.microsoft.com> a écrit dans le message de
news:5D3ADCD1-9B12-4ADC-B7B6-E94FCB7D337E@microsoft.com...
Bonjour à tous,
Dans un état(basé sur une requête) j'ai un contrôle nommé [date]. Je
voudrais ajouter un contrôle (nommé [dateouvre]) qui contiendrait le résultat
du calcul suivant: [Date] + 10 jours ouvrables
exemple: [date]= 20-nov-2007 alors [datevouvre]-dec-2007(en supposant que
le samedi et le dimanche ne sont pas ouvrables.)
je ne sais pas comment faire...pouvez-vous m'aider s.v.p.
Si j'ai bien compris la question, ce qui suit devrait faire l'affaire : [dateouvre] = DateAdd("d",14,Date)
"guy boily" a écrit dans le message de news:
Bonjour à tous, Dans un état(basé sur une requête) j'ai un contrôle nommé [date]. Je voudrais ajouter un contrôle (nommé [dateouvre]) qui contiendrait le résultat du calcul suivant: [Date] + 10 jours ouvrables exemple: [date]= 20-nov-2007 alors [datevouvre]-dec-2007(en supposant que le samedi et le dimanche ne sont pas ouvrables.)
je ne sais pas comment faire...pouvez-vous m'aider s.v.p.
C'est comme ça qu'on repère les gens qui suivent.
guy boily
Bonjour vous trois et merci merci à Michel D mais effectivement je ne veux pas compter les samedi dimanche et jours fériés. Pour la solution à Gloops..j'ai la tête qui me tourne quand on me demande d'adapter des solutions EXCEL en ACCESS mais j'apprécie l'effort de m'aider. Pour 3stone : j'ai été voir lien mais peux-tu m'aider à la mettre opérationnelle de sorte qu'elle puisse renseigner le contrôle [dateouvre] à l'ouverture de mon état: mon contrôle à renseigner : contrôle [dateouvre] date de départ: contrôle [date] nb de jours ouvrables à additionner: 10 ou place-t-on cette fonction? comment en faire l'appel et ou?
Public Function Date_Prochaine_Ouvrables(Date_Actuelle As Date, Nombre_de_Jours As Integer, Incrément As Integer) As Date ' 'Cette procédure permet de calculer une date située à +n jours ouvrables ou à -n jours ouvrables ' On Error GoTo Err_Prochaine_Date Dim jours_max As Integer Dim Date_Teste As Date Date_Prochaine_Ouvrables = Date_Actuelle jours_max = Nombre_de_Jours Dim compteur As Integer Do Until compteur = jours_max If JoursOuvrables(Date_Prochaine_Ouvrables, Date_Prochaine_Ouvrables) = 1 Then compteur = compteur + Incrément End If Date_Prochaine_Ouvrables = Date_Prochaine_Ouvrables + Incrément Loop Date_Prochaine_Ouvrables = Date_Prochaine_Ouvrables - Incrément Exit Function Err_Prochaine_Date: Date_Prochaine_Ouvrables = vbNull End Function
C'est boucoup de questions de ma part mais j'ose quand même...
Merci pour tout...
boily_SLSJ
3stone a écrit, le 20/11/2007 18:14 :
re,
"Gloops" Vrai, c'est "qui dit mieux ?" qui est une redirection crade ?
Ah, en effet, comme je n'avais pas cherché à l'ouvrir ...
C'est comme ça qu'on repère les gens qui suivent.
Bonjour vous trois et merci
merci à Michel D mais effectivement je ne veux pas compter les samedi
dimanche et jours fériés. Pour la solution à Gloops..j'ai la tête qui me
tourne quand on me demande d'adapter des solutions EXCEL en ACCESS mais
j'apprécie l'effort de m'aider.
Pour 3stone : j'ai été voir lien mais peux-tu m'aider à la mettre
opérationnelle de sorte qu'elle puisse renseigner le contrôle [dateouvre] à
l'ouverture de mon état:
mon contrôle à renseigner : contrôle [dateouvre]
date de départ: contrôle [date]
nb de jours ouvrables à additionner: 10
ou place-t-on cette fonction?
comment en faire l'appel et ou?
Public Function Date_Prochaine_Ouvrables(Date_Actuelle As Date,
Nombre_de_Jours As Integer, Incrément As Integer) As Date
'
'Cette procédure permet de calculer une date située à +n jours ouvrables ou
à -n jours ouvrables
'
On Error GoTo Err_Prochaine_Date
Dim jours_max As Integer
Dim Date_Teste As Date
Date_Prochaine_Ouvrables = Date_Actuelle
jours_max = Nombre_de_Jours
Dim compteur As Integer
Do Until compteur = jours_max
If JoursOuvrables(Date_Prochaine_Ouvrables,
Date_Prochaine_Ouvrables) = 1 Then
compteur = compteur + Incrément
End If
Date_Prochaine_Ouvrables = Date_Prochaine_Ouvrables + Incrément
Loop
Date_Prochaine_Ouvrables = Date_Prochaine_Ouvrables - Incrément
Exit Function
Err_Prochaine_Date:
Date_Prochaine_Ouvrables = vbNull
End Function
C'est boucoup de questions de ma part mais j'ose quand même...
Merci pour tout...
boily_SLSJ
3stone a écrit, le 20/11/2007 18:14 :
re,
"Gloops"
Vrai, c'est "qui dit mieux ?" qui est une redirection crade ?
Bonjour vous trois et merci merci à Michel D mais effectivement je ne veux pas compter les samedi dimanche et jours fériés. Pour la solution à Gloops..j'ai la tête qui me tourne quand on me demande d'adapter des solutions EXCEL en ACCESS mais j'apprécie l'effort de m'aider. Pour 3stone : j'ai été voir lien mais peux-tu m'aider à la mettre opérationnelle de sorte qu'elle puisse renseigner le contrôle [dateouvre] à l'ouverture de mon état: mon contrôle à renseigner : contrôle [dateouvre] date de départ: contrôle [date] nb de jours ouvrables à additionner: 10 ou place-t-on cette fonction? comment en faire l'appel et ou?
Public Function Date_Prochaine_Ouvrables(Date_Actuelle As Date, Nombre_de_Jours As Integer, Incrément As Integer) As Date ' 'Cette procédure permet de calculer une date située à +n jours ouvrables ou à -n jours ouvrables ' On Error GoTo Err_Prochaine_Date Dim jours_max As Integer Dim Date_Teste As Date Date_Prochaine_Ouvrables = Date_Actuelle jours_max = Nombre_de_Jours Dim compteur As Integer Do Until compteur = jours_max If JoursOuvrables(Date_Prochaine_Ouvrables, Date_Prochaine_Ouvrables) = 1 Then compteur = compteur + Incrément End If Date_Prochaine_Ouvrables = Date_Prochaine_Ouvrables + Incrément Loop Date_Prochaine_Ouvrables = Date_Prochaine_Ouvrables - Incrément Exit Function Err_Prochaine_Date: Date_Prochaine_Ouvrables = vbNull End Function
C'est boucoup de questions de ma part mais j'ose quand même...
Merci pour tout...
boily_SLSJ
3stone a écrit, le 20/11/2007 18:14 :
re,
"Gloops" Vrai, c'est "qui dit mieux ?" qui est une redirection crade ?