Discussion :

[pepper]

Salut,

J'ai un problème en retranscrivant des formulaires de base de données access sous visual basic ...

J'essaye d'ajouter une variable à une date, de manière à avoir une succession de jours :

Code :

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

1
2
3
4
5
6
 
    For i = 0 To DateDiff("d", Datedeb, Datefin)
    Newplan.Recordset.AddNew
    Newplan.Recordset("Date") = Datedeb + i
    Newplan.Recordset.Update
    Next

Et j'obtiens une erreur de type 13, type mismatch sur la 3ème ligne (il n'arrive pas à faire l'addition)

Sauriez-vous sous quelle roche se trouve l'anguille ?

[Maxence HUBICHE]

peux-tu nous dire ce que vaut DateDeb à ce moment là ?

[pepper]

Oui :
Avec, l'espion je vois que Datedeb vaut la date tapée dans le champ du formulaire correspondant, c'est à dire une date en dd/mm/yyyy


ex : 25/11/2002 + 0 (première valeur de i)

[SpaceFrog]

essaye avec un truc du style :
LaDate=DateAdd("d",i,MaDate)

[ThierryAIM]

Moi, j'aurai bien fait un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim Datedeb, Datefin As Date   
Dim IntervalType As String
IntervalType = "d"   ' "d" indique l'intervalle en jour.
For i = 0 To DateDiff("d", Datedeb, Datefin) 
    Newplan.Recordset.AddNew 
    Newplan.Recordset("Date") = DateAdd( IntervalType, i, Datedeb)
    Newplan.Recordset.Update 
Next

[DarkVader]

mets plutöt un point d'arrêt sur la ligne d'update
et par curiosité, un debug.print typename(datedeb)
dans la fenêtre d'exécution

[pepper]

Ah oui, je précise aussi que j'obtenais la même erreur sur la première ligne lorsque j'avais :

Code :

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

For i=0 to (Datefin - Datedeb)

J'ai remplacé cette ligne par :

Code :

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

For i = 0 To DateDiff("d", Datedeb, Datefin)

et je n'ai plus eu de problème sur cette ligne (il est parvenu à me calculer le Datediff), mais sur la 3ème ... problème que je ne rencontrais pas sous access, curieusement.

[pepper]

Bon, je vais essayer votre DateAdd, alors, Thierry et Grenouille ...

[pepper]

Nickel, ça marche, merci les gars !