Bonjour à tous,
je souhaite afficher la date d'échéance d'une facture. Avec dateadd j'ajoute mon intervalle, jusque là pas de problème, je veux déterminer également à l'aide de cdate le jour de cette date d'échéance. l'intervalle est nommé echeance et le jour est nommé jours tous les deux proviennent de contrôles dans un formulaire. Pour le jour si j'indique jours = "10/" çà marche mais ce qui figure ci-dessous ne marche pas quelqu'un voit il pourquoi?? merci pour votre aide
m_open(CANCEL As Integer)
Dim echeance As Variant
Dim jours As Variant
'lire les infos sur l'echeance
echeance = Forms!factureimmédiate![echeance]
If IsNull(echeance) Then Exit Sub
jours = Forms!factureimmédiate![jourecheance]
If IsNull(jour) Then Exit Sub
'determiner la date d'echeance
DoCmd.GoToRecord acForm, "factureimmédiate", acNewRec
today = Now()
datecheance = CDate(jours & Format(DateAdd("m", echeance, today), "mm/yyyy"))
Forms!factureimmédiate!dateecheance = datecheance
End Sub
Partager