Discussion :

[alexdre]

Bonjour à tous,

Tout d'abord un grand merci à M. Charles A. pour son tutoriel qui m'a énormément aidé.
Tout fonctionne à l'exception de la fonction de domaine qui retourne le nombre d’occurrence correspondant relatif au résultat de la requête :

Code :

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

Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")

Ce n'est pas le cas dans le tutoriel mais à un moment j'utilise un champ au format Date

Code :

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

1
2
3
If Me.chkDate Then
        SQL = SQL & "And Investment!I_Valuation_Date = #" & Format(Me.cmbDate, "mm/dd/yyyy") & "# "
End If

Debug Print :

Code :

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

Client.ID_Client > 0 And Investment!I_Valuation_Date = ##

Screen VB erreur :


Même si je suis encore débutant en VBA, je suis ouvert à toutes vos idées pour résoudre ce pépin.
Merci d'avance.

[loufab]

Bonjour,
Tout indique que ta date n'est pas renseignée.

Je compléterais par ce test :

Code :

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

1
2
3
If Me.chkDate and isDate(Me.cmbDate) Then
        SQL = SQL & "And Investment!I_Valuation_Date = #" & Format(Me.cmbDate, "mm/dd/yyyy") & "# "
End If

Pour être sur que la date est saisie et qu'elle est correcte.

Cordialement,

[alexdre]

Salut loufab,

Merci pour ta réponse et désolé pour la mienne (tardive d'une semaine).
Tu as résolu le bug, je t'en remercie chaleureusement.

À vrai dire, je ne connaissais pas la fonction isDate() et je dois reconnaître que je ne vois pas comment elle a pu résoudre le soucis...

[loufab]

Bonjour,

isDate() détermine si l'élément testé est une date valide. Si ce n'est pas le cas elle renvoie faux.

cf F1.