Discussion :

[21vince]

Bonjour,
j 'ai créé un formulaire avec un champs Nom, un champs formation , un champs Date de validation , un champs date de recyclage et un champs date prochain recyclage. Le tout basé sur une requête. Je souhaiterais par un code VBA automatisé le remplissage automatique du champs date de prochain recyclage en fonction du champs formation et par rapport à la date de recyclage si elle est renseignée ou à défaut par la date de validation.
J ai essayé de codé mais comme je suis novice je n'y arrive pas.
Merci de m'aider à créer ses les de code pour que je puisse avancer dans mon projet et comprendre d'une autre manière le langage VBA.

[nico84]

Bonjour,

Cela peut se faire simplement sur l'évenement AfterUpdate des champs date de recyclage et date de validation :

Code :

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

1
2
3
4
private sub date_recyclage_afterupdate 'idem pour date_validation_afterupdate
refresh
call maj_prochain_recyclage
end sub

Code :

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

1
2
3
4
private sub maj_prochain_recyclage
if isnull(date_recyclage) then prochain_recyclage=... else prochain_recyclage=... 
refresh
end sub

[21vince]

J ai retapez ce code mais il ne fonctionne pas, un message d'erreur apparais en me disant SUB ou Fonction non définie.

[21vince]

Voici un code que j'ai tenté mais ne marche pas non plus

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub DateDeValidation_BeforeUpdate(Cancel As Integer)
If (IsNotNull(Forms![F_FormationFMA]![DateDeValidation])) Then
DateProchaineFMA = DateAdd(aaaa, 3, [DateDeValidation])
Else
DateProchaineFMA = DateAdd(aaaa, 3, [DateDerniereFMA])
End If
DateProchaineFMA.Refresh
 
End Sub