Discussion :

[en_stage]

Bonjour à tous,
Je cherche à ajouter automatiquement 6 mois, 12 mois ou 24 mois (suivant le choix de l'utilisteur) à une date donnée de type Date. Pour afficher la date de fin de garantie dans un formulaire.

Merci à tous ceux qui pourront me fournir une solution.

[coyott]

tient il m'a semblé voir ca sur le forum il y a peut de temps et tu sur d'avoir fait une recherche ?

la fonction à utilisé est dateadd pour plus de précision fait une recherche ou regarde tout simplement dans l'aide access c'est trés bien expliqué

[en_stage]

J'ai une table T1(....,PremiereLivraison, Garantie, FinDeGarantie,...)
et voici le type des attributs:
PremiereLivraison ------> date
Garantie------------------> Numerique--------->(6,12,24)
FinDeGarantie ----------> date

Voilà ce que j'ai fait dans la table T1, propriétés de l'attribut FinDeGarantie en valeur par défaut, j'ai mis:

Code :

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

AjDate("m";Garantie;PremiereLivraison)

[en_stage]

mais ça ne marche pas...!!!

[coyott]

lol je croyais que c'était bon

quel est l'erreur ? qu'est ce qui ne marche pas exactement ? car apriori de ma petite experience ca à l'air correcte

[en_stage]

j'ai ouvert ma table en mode création, et pour l'attribut FinDeGarantie de type date, j'ai mis le code comme valeur par défaut, dans l'onglet "Général". [/code]

[en_stage]

En fait, dans mon formulaire, je veux pouvoir afficher la date de fin de garantie dès lors que je saisie ma date de PremiereLivraison et que je selectionne ma durée de garantie (liste déroulante), mais je n'arrive pas à avoir automatiquement ma date de fin de garantie.
J'utilise donc 2 tables:

- T1(....., PremiereLivraison, Garantie, FinDeGarantie,....)
- Garanties(Garantie)--------->avec la liste (0,6,12,24,36)

[coyott]

alors la j'ai l'impression que tu te melanges les pinceaux
Je veux essayer de différencier différent cas

1- juste afficher cette valeur mais pas forcément l'enregistré
tu bases ton formulaire sur une requête et non un table. tu y chosi les champs désirés et tu rajoute un champ = à ca par exemple

Code :

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

datedegarantie : AjDate("m";24;[date_sinistre])

2- autre cas tout est saisi dans une table et tu veux éviter de remplir la jolie case dateDeGarantie

tu relis bien ton formulaire à ta table ainsi que tes champs :-)

sur l'évènement mis à jour de ta liste de choix garantie (par exemple) tu met le code suivant

Code :

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

1
2
3
 
if not isnull(me.NomdUChampDate) and not isnull(me.NomDuChampGarantie) then
me.nomDuChampDateDeGarantie = DateAdd("m";me.NomDuChampGarantie;me.NomdUChampDate)

voilà si tu en veux plus il faudra apporter des précisions

[en_stage]

j'peux pas le faire en code événement directement dans le formulaire? :

[en_stage]

Désolé, j'étais entrain d'écrire mon message quand t'as posté le tiens. J'vais essayé tout ça. J'te dis ce que ça donne.
Merci

[coyott]

ca c'est la solution 2 tu vas sur les propriétés de ton formulaire ou champ tu sélectionne l'évenement approprié (les 3 ... ) chosi code et tu places ton code entre sub blabla et end sub
à toi de choisir sur quel évènement tu veux mettre à jour cette date (su un évènement du formulaire ou d'un champs)
le if n'est là que pour vérifier qu'il y a bien une date et une garantie de saisie histoire de ne pas avoir d'erreur (d'ailleur j'ai oublier de mettre end if à la fin du code)

[en_stage]

je suis dans le cas 2, mais j'arrive pas à le mettre en place

[en_stage]

voici mon code:

Code :

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

1
2
3
4
5
Private Sub Texte171_Click()
    If Not IsNull(Me.Premiere_livraison) And Not IsNull(Me.Garantie) Then
    me.Texte171 = AjDate("m";me.Garantie;me.Premiere_livraison)
    End If
End Sub

[coyott]

pas "ajdate" mais "dateadd" le vba ne connait pas le français
et "Premiere_livraison" est bien le nom de ta case (comme Texte171) pas de ta table ?

[en_stage]

c'est bon ça marche. Merci bien