[résolu] Problème avec les dates sous access.

[alain94]

Voilà mon problème.

 

Je cherche à ajouter dans une date entrée sur un formulaire 1 mois.

 

Voilà l'écriture

 

Private Sub Commande10_Click()

Dim FirstDate As Date

Dim IntervalType As String

Dim Number As Integer

IntervalType = "1" ' ajout d'un mois

FirstDate = Me!date ' date entrée dans formulaire

Number = 1

Me!date1 = DateAdd(IntervalType, Number, FirstDate)

 

End Sub

 

Mais voilà, cela ne fonctionne pas. Quelqu'un pourrait t'il me dire ou est l'erreur????

 

Merci d'avance

[KewlCat]

IntervalType devrait avoir "M" pour valeur, il me semble... (pour indiquer que tu ajoutes un mois)

cela ne fonctionne pas

Il n'y a pas de message d'erreur ?

[alain94]

IntervalType devrait avoir "M" pour valeur, il me semble... (pour indiquer que tu ajoutes un mois)

Il n'y a pas de message d'erreur ?

 

 

Effectivement, mon erreur était là. J'ai testé et maintenant ok.

 

Merci de ton aide

[KewlCat]

A ton service

 

J'ajoute "[résolu]" au titre du sujet.

[alain94]

A ton service

 

J'ajoute "[résolu]" au titre du sujet.

 

Ah oui désolé de ne pas avoir pensé à conclure me demande.