Discussion :

[popofpopof]

bonjour

j'ai un champ date et un autre champ numérique qui correspond a un nombre de mois.

je souhaite par exemple que pour la date 16/05/2007 et qui a pour champ numérique 6 (6mois) on ai comme résultat dans un nouveau champ 15/11/2007 ( oui j'ai oublie a la date du jour on doit enleve 1 jour)

je souhaiterai également avoir la possibilité de modifier le résultat pour des cas tres rare

comment faire tout cela??

[Ragnarok85]

Bonjour,

Je n'ai pas compris ce que tu voulais faire.
Si tu pouvais être plus précis.

Cordialement,

Antoine

[popofpopof]

je souhaite a une date (16/05/2007 ) ajoute par exemple 6 mois et y enleve 1 jour sa doit me donnée pour mon exemple
16-1=15 pour les jours
05+6=11 mois
2007 ne change par car on est la même année mais a prévoir au cas ou on change d'année

donc ici 15/11/2007 voila le résultat que je veux avoir et cela grace a la saisie du nombre de mois ici 6

tu comprend??

[bernardmichel]

Hello !

Tu crées un petit code VBA, dans le style de celui ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Jour    As Integer
Dim Mois    As Integer
Dim Annee   As Integer
 
    Jour = Day(Me!txtDate) - 1
    Mois = Month(Me!txtDate) + Me!txtMois
    Annee = IIf(Month(Me!txtDate) + Me!txtMois >= 12, Year(Me!txtDate), Year(Me!txtDate) + 1)
 
    Me!txtResultat = DateSerial(Annee, Mois, Jour)

Me!txtDate étant le control recevant l'information du jour
Me!txtMois le nombre de mois à ajouter
Me!txtResultat.. le résultat

Suivant l'évènement que tu choisis pour appeler ce code, cela te laisse le champ libre pour modifier manuellement - si besoin - ton control "Me!txtResultat"

[francishop]

Bonjour,

On peut concevoir dans une requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SELECT tblDateHeure.Date, DateAdd("m",6,[Date]) AS Plus1Trimestre,
 DateAdd("d",6,[Date]) AS Pus6Jours
FROM tblDateHeure;

Cordialement.

[popofpopof]

j'aime bien ta solution mais je rencontre un probleme si on prendre une date 01/01/2007
pour 3 mois sa fait 31/03/2007 sa marche
pour 6 mois sa fait 30/06/2007 sa marche aussi
pour 12 mois sa fait 31/12/2007 sa marche pas
j'ai pour infor modifier une ligne comme sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Annee = IIf(Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP >= 12, Year(Me!DATE_RECEPTION) + 1, Year(Me!DATE_RECEPTION))

voila mon code complet c ou le probleme???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Jour    As Integer
Dim Mois    As Integer
Dim Annee   As Integer
 
    Jour = Day(Me!DATE_RECEPTION) - 1
    Mois = Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP
    Annee = IIf(Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP >= 12, Year(Me!DATE_RECEPTION) + 1, Year(Me!DATE_RECEPTION))
 
    Me!DATE_DEBUT_VERSE_GP = DateSerial(Annee, Mois, Jour)

[bernardmichel]

Hey... je te signale que 01.01.2007 plus 12 mois moins 1 jour, cela donne 31.12.2007 !

et... je ne vois pas de problème dans ton code. J'ai testé le mien il fonctionne et tu as simplement modifié les noms des controls...

[popofpopof]

je comprend pas je te joint le formulaire pour que tu regarde sa marche pas chez moi

[bernardmichel]

Alors, deux choses...

1. Il te faut modifier l'ordre de tabulation de ton control "NB_MOIS_GP" qui, étant le dernier du formulaire te mènes à l'enregistrement suivant dès que tu presses "TAB" ou "RETURN"
2. Le code, sera plus pertinent si tu le colles sur l'évènement "Après MAJ" de ton control "NB_MOIS_GP"

Tu auras donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Compare Database
 
Private Sub DATE_DEBUT_VERSE_GP_GotFocus() ' A supprimer, ici uniquement pour souligner le "transfert" du code"
End Sub
 
Private Sub NB_MOIS_GP_AfterUpdate()
Dim Jour    As Integer
Dim Mois    As Integer
Dim Annee   As Integer
 
    Jour = Day(Me!DATE_RECEPTION) - 1
    Mois = Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP
    Annee = IIf(Month(Me!DATE_RECEPTION) + Me!NB_MOIS_GP >= 12, Year(Me!DATE_RECEPTION) + 1, Year(Me!DATE_RECEPTION))
 
    Me!DATE_DEBUT_VERSE_GP = DateSerial(Annee, Mois, Jour)
End Sub

Dans le code attaché à ton formulaire "LOGEMENT Sous-formulaire"... voir ci-dessous

[popofpopof]

ok merci sa marche j'ai trouve merci bcp de ton aide

[fold85]

Et de simplement faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Dim dte as date
 
   dte = Date
   dte = (Dateadd("m",6,dte) - 1)

Ca le ferait?

[bernardmichel]

Hello !

Oui, c'est une superbe idée !!

Cela demande néamoins une petite adaptation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim dte As Date
    dte = Me!DATE_RECEPTION
    dte = (DateAdd("m", Me!NB_MOIS_GP, dte) - 1)
    Me!DATE_DEBUT_VERSE_GP = dte

Merci fold85 !

[fold85]

Haha, ca fait plaisir. Je cartonne fort pour un premier post

[bernardmichel]

Haha, ca fait plaisir. Je cartonne fort pour un premier post

Ton pseudo c'est "Popofpopof " ?

[fold85]

Je ne comprends pas (je suis Québécois tu vois...)

[bernardmichel]

Ah ok, tu fais référence à mes félicitations !

OK alors, tu cartonnes TRES fort !!

... et bienvenue à toi !