Incompatibilité de type sur variable dans Datediff

Bonjour à tous,

Voici le code me permettant de calculer en minutes la différence de date entre 2 champs date et deux champs horaires :

Code:

---

1 2 3 4 5 6 7 8 9

Public Function DureeMinutes()   Dim NbMinutes As Long   NbMinutes = Nz(DateDiff("n", Format(Me.RVDate, "dd/mm/yyyy") & " " & Me.RVHeure, Format(Me.DateFinRDV, "dd/mm/yyyy") & " " & Me.HeureFinRDV), 0)   Me.RVDurée = NbMinutes MsgBox NbMinutes End Function

---

Lorqu'un des champs est vide, ce qui est probable la fonction s'arrête avec mention à une incompatibilité de type...

Les champs sont correctement formatés et l'erreur n'apparait que lorsque l'un deux est nul (ce qui est volontairement autorisé).

J'ai essayé de placer des Nz et de passer en Variant, String et Integer la variable, rien n'y fait...

Que se passe t'il d'après vous ?

(la fonction marche parfaitement si il n'y a pas de valeur nulle dans aucun des champs )...

Merci d'avance

Fais plutot le calcul uniquement si tes champs date ne sont pas vide 1 truc du genre

Code:

---

1 2 3 4

if nz(date1) & nz(date2) then nbminutes=datediff.... end if

---

merci pour ta réponse, mais ça ne marche toujours pas, pourtant tous les champs sont corrects, avec le bon format et renvoient les bonnes données dans la fenêtre de code... J'ai mis :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Function DureeMinutes()   Dim NbMinutes As Long   If Nz(Format(Me.RVDate, "dd/mm/yyyy") & " " & Me.RVHeure) And Nz(Format(Me.DateFinRDV, "dd/mm/yyyy") & " " & Me.HeureFinRDV) Then   NbMinutes = DateDiff("n", Format(Me.RVDate, "dd/mm/yyyy") & " " & Me.RVHeure, Format(Me.DateFinRDV, "dd/mm/yyyy") & " " & Me.HeureFinRDV)   Me.RVDurée = NbMinutes End If   Debug.Print NbMinutes   End Function

---

Bonjour clickandgo,
Je crois que la meilleure manière de faire est de gérer les nulls avant l'appel de ta fonction:

Code:

---

1 2 3

If Not IsNull(me.RVDate) And Not IsNull(Me.DateFinRDV) Then DureeMinutes End if

---

Si les champs à tester sont RVDate et DateFinRDV.

Bonne journée

Bon, j'ai trouvé une partie du problème, il s'agissait de la valeur par défaut des champs heures qui était mis à "00:00:00", curieusement cela produisait une erreur, je ne sais pas comment de ce fait entrer une valeur par défaut pour 0h00m00s !