Discussion :

[AIRONE]

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

[pgz]

Bonjour,

je ne sais pas pourquoi tu utilises autant de variables de type variant... Ca ne facilite pas la lecture ( par ex de jours : text ou num?).

Tu peux essayer

Code :

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

datecheance = CDate(jours & Format(DateAdd("m", echeance, today), "/mm/yyyy"))

Si ca ne marche pas, il vaudrait peut-être mieux utiliser dateSerial. Si jours contient le num du jour des échéances mensuelles, et échéance la durée d'échéance en mois

Code :

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

1
2
DateEchéanceBrute = DateAdd("m",Echéance,Date())
DateEchéanceVraie = DateSerial(Year(DateEchéanceBrute),Month(DateEchéanceBrute),jours)

Bon courage,

PGZ

[AIRONE]

Si ma prog semble louche c'est pcq je viens de m'y mettre
ce sont mes premières lignes en vb!!

merci beaucoup je teste ta 2ème solution

[AIRONE]

finalement la première solution suffit
merci 1000x !!!