Bonjour,
 
Débutant dans VBA, je vous expose mon problème :
Base Access, dans formulaire <Commandes>, Champs <Date livraison> <NumBon> <BonJanvier> <BonFévrier> <BonMars>..., je voudrais que <NumBon> change en fonction de <Date livraison>. Si <Date livraison> comprise entre 1/01/2004 et 31/01/2004, alors <BonJanvier>, si <Date livraison> comprise entre 1/02/2004 et 28/02/2004, alors <BonFévrier>, etc....
J'ai tenté le code suivant pour voir :
 
Private Sub Date_livraison_AfterUpdate()
 
Dim NumBon As String
Dim Date_livraison As Date
Dim BonJanvier As String
Dim BonMars As String
 
If Date_livraison < "30-01-2004" Then
NumBon = BonJanvier
Else
NumBon = BonFévrier
End If
 
End Sub
 
mais le champ NumBon reste désespérément vide ! Pouvez-vous me conseiller avant d'aller plus loin?
 

tu récuperes uniquement le mois (numérique donc) de la date
ensuite pour la mise à jour tu fais un tableau du style
Mois(1) = BonJanvier
Mois(2) = BonFevrier
...
Mois(12) = Mois Décembre
Dans ta procédure Date_Livraison_AfterUpdate() :
 
'<--- La tu mets une procedure pour récupérer le mois de la date
 
NumBon = Mois(MoisCourant)
 
fait plus d'un an que j'ai pas fait de VBA