Discussion :

[Poor_Beginner]

bonjour,
dans un formulaire,
j'ai une zone de texte(Date_derniere_MAJ) dans laquelle je rentre une date au format jj/mm/aaaa
j'aimerais que dans le meme formulaire avoir une autre zone de texte(Date_Validite) dans laquelle s'inscrive automatiquement une date de validité, soit dans le cas requis +1an.
en tant que super débutant je suis un peu largué...et les tutos et autres faq me semblent le langage d'une autre planète..
Merci

[Oleff]

Dans le source controle de ton deuxième controle tu peux mettre
=Date+365
Où date est la date à laquelle tu veux ajouter un an.
Sinon penche toi sur la méthode serialdate (F1)

[cafeine]

Hello,

regarde plutôt du côté de DateAdd()

[Oleff]

Hello,

regarde plutôt du côté de DateAdd()

Je l'avais oubliée celle là

[Ric21]

Bonsoir

Un Code qui ma été donner sur le forum

Code :

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

=jour([madate1]) & "/" & mois([madate1]) & "/" année([madate1])+1

@ +
Ric21

[Poor_Beginner]

certe, je ne suis surement pas trés doué..mais avec ça je n'arrive à rien.

Code :

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

1
2
3
4
5
6
7
Private Sub Date_Validite_Click()
Dim Date_derniere_MAJ As Date
Dim Date_Validite As Date
Me.Date_derniere_MAJ = x
Me.Date_Validite = z
z = DateAdd("y", 1, "x")
End Sub

surtout si quelqu'un m'aide, qu'il m'explique ce qui ne va pas..
je crois déja que c'est sur le choix de l'évènement..en fait je voudrais que ce soit automatique...cad que la date de validité s'actualise dès que la date de derniere MAJ est entrée

[Poor_Beginner]

décidemment...
je seche..
je n'arrive visiblement pas à déclarer les bonnes variables
la seule chose qui varie, c'est "Date_derniere_MAJ " !!!
je n'y comprends rien..
en meme temps c'est ma premiere bdd...seul
Help

[Poor_Beginner]

bon,...
deux heures plus tard j'en suis là:

Code :

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

1
2
3
4
5
6
Private Sub Date_Validite_Click()
Dim Date_derniere_MAJ As Integer
Dim Date_Validite As Integer
x = Me.Date_derniere_MAJ
Me.Date_Validite = DateAdd("y", 1, "x")
End Sub

maintenantdans la ligne: Me.Date_Validite = DateAdd("y", 1, "x")
x prends bien la valeur de derniere MAJ..
mais après ....?impossible d'affecter une valeur à: Date_Validite
si quelq'un avait une explication....?

[=JBO=]

Salut,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Date_Validite_Click()
    Dim x As Date
 
    If IsDate(x) Then
        x = Me.Date_derniere_MAJ
        Me.Date_Validite = DateAdd("y", 1, x)
    End If
End Sub

Je t'ai rajouté un petit test au cas où le contrôle Date_derniere_MAJ ne serait pas correctement renseigné.

Donc tu attribues à la variable x la valeur du contrôle Date_derniere_MAJ.
Ensuite tu utilises la fonction DateAdd pour lui ajouter 1 année.
Argument "y":
La chaîne de caractère "y" permet de spécifier que l'ajout est basé sur un multiple d'une année.
Argument 1:
On précise le nombre d'années à ajouter.
Argument x:
Ici x est une variable. La valeur de cette variable est utilisée pour effectuer l'opération.

Ton erreur était d'encadrer le x avec des guillemets.
Dans ce cas, ton argument est évalué comme une simple chaîne de caractères.

[=JBO=]

Je me suis un peu précipité...

surtout si quelqu'un m'aide, qu'il m'explique ce qui ne va pas..
je crois déja que c'est sur le choix de l'évènement..en fait je voudrais que ce soit automatique...cad que la date de validité s'actualise dès que la date de derniere MAJ est entrée

Alors tu dois mettre ton code dans la procédure événementielle BeforeUpdate du contrôle Date_derniere_MAJ.

Décodage en clair:
Dans le contrôle Date_derniere_MAJ, tu saisis une date de MAJ.
L'événement BeforeUpdate de ce contrôle est déclenché avant que la nouvelle valeur ne soit enregistrée .
Tu te "branches" sur cet événement pour ajuster la valeur du contrôle Date_validite.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Date_derniere_MAJ_BeforeUpdate()
    Dim x As Date
 
    If IsDate(x) Then
        x = Me.Date_derniere_MAJ
        Me.Date_Validite = DateAdd("y", 1, x)
    End If
End Sub

[Poor_Beginner]

c'est parfait, super!!
merci beaucoup,
j'étais pas tres loin..
j'ai été induit en erreur par l'aide F1 de DateAdd car la syntaxe et les guillements ne sont pas tres clairs...pour le néophyte...et dans le cas présent des guillements sont présents pour l'argument qui correspondt a mon"x".
De plus j'ai modifié "y" en "yyyy" pour avoir non pas le jour de l'année, mais la valeur de l'année...
quand à la procédure événementielle BeforeUpdate c'est super!!!
encore merci

[=JBO=]

Si ça marche, tant mieux .

Toutefois, un petit conseil en passant.
Dans l'éditeur de code VB, tu devrais "activer" le contrôle obligatoire des déclarations de variable.
Ceci te protègera contre les oublis.

A la première ligne du module de code, il faut ajouter l'option Explicit qui demande au compilateur de vérifier que tous les noms de variables utilisés dans le code font l'objet d'une déclation préalable (instructions Dim, Public, Private):

Code :

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

Option Explicit

Si tu veux que cette option soit systématiquement/automatiquement ajoutée, tu peux le spécifier dans les options de l'éditeur:

Pour ouvir la boîte de dialogue [Options], exécuter la commande:
Outils >> Options...
Dans l'onglet [Editeur], cocher [Déclaration des variables obligatoire].

Tu verras, cette "rigueur" te fera gagner du temps.

[Poor_Beginner]

encore merci........tous les conseils sont les bienvenus..
A bientôt