Aide concernant les date vba Access

bonjour a tous.
J'ai écrit une fonction qui est censée me renvoyer le service d'affectation (numérique) d'un équipement donné durant une daté donnée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Function ServiceDate(VarNumero As Long, VarDate As Date) As Long   Dim db As DAO.Database Dim rs As DAO.Recordset Dim sSQL As String   sSQL = " SELECT tblMouvementsDetails.NumInvFk, tblMouvements.RefServiceFk, tblMouvementsDetails.DateMouvement" _ & " FROM tblMouvements INNER JOIN ((SELECT tblMouvementsDetails.NumInvFk, Max(DateMouvement) AS MaxDate FROM tblMouvementsDetails GROUP BY NumInvFk) AS X" _ & " INNER JOIN tblMouvementsDetails ON (x.MaxDate = tblMouvementsDetails.DateMouvement) AND (X.NumInvFk = tblMouvementsDetails.NumInvFk)) ON tblMouvements.RefMouvement = tblMouvementsDetails.RefMouvementFk" _ & " WHERE X.MaxDate <= Cdate('" & VarDate & "') and X.NumInfFk=" & VarNumero   Set db = Application.CurrentDb Set rs = db.OpenRecordset(sSQL, dbOpenDynaset)   ServiceDate = rs("RefServiceFk")   rs.Close db.Close   Set db = Nothing Set rs = Nothing   End Function

---

La requête est faite sur trois tables.
Le problème est que la fonction rend zéro résultat considérant que la date est le 30/12/1899.

quelqu'un peut aider ?

Bonjour toufiketc,

Problème d'affichage régional des dates. En VBA la date doit être au format US. Voici une fonction à ajouter dans un module qui fait ça:

Code:

---

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

Public Function fuUSDate(daDate As Date) As Date On Error GoTo Err_fuUSDate   fuUSDate = DatePart("m", daDate) & "-" & DatePart("d", daDate) & "-" & DatePart("yyyy", daDate)   Exit_Err_fuUSDate: Exit Function   Err_fuUSDate: MsgBox "Erreur " & Err.Number & Chr(13) & Chr(13) & Err.Description Resume Exit_Err_fuUSDate End Function

---

Et ton WHERE clause :

Code:

---

& " WHERE X.MaxDate <=#" & fuUSDate(VarDate) & "# and X.NumInfFk=" & VarNumero)

---

Bonne journée

rien a faire la fonction renvoie 00:00:00 pour toutes les dates

Bonjour,

Essaies :

Code:

---

WHERE X.MaxDate <= #" & format(VarDate,'yyyy/mm/dd') & "#) and X.NumInfFk=" & VarNumero

---

Cordialement.

Bonjour.

Aussi le SQL de Access peut être assez déroutant et l'écrire à la main un exercice assez frustrant.
Je te suggère d'utiliser l'éditeur de requête de Access et d'écrire ta requête là.
Une fois qu'elle fonctionne, bascule l'affichage sur SQL (en haut à gauche) pour voir le SQL généré par Access et récupère le dans ton code.

Et perso, avec l'éditeur de SQL, assez misérable, de Access j'évite les sous-requêtes.
Je préfère les faire une requête séparée et faire une jointure ou utiliser DFirst() ou les autres fonctions de domaine.

A+

c'est ce que je fais mais sans success.
du coup je me dis que peut être a cause des jointures justement.
alors je viens de revoir la conception de mes tables (j'ai supprimé la date de la table mouvementsdetails estimant qu'il ya redondance inutile et j'ai placé ce champs dans la table mouvements c'est plus logique non ?).

Table tblMouvements :table des mouvements : inclut

RefMouvement clé primaire
DteMouvement : date de mouvement
RefServiceFk : Service d'affectation (clé étrangère)
RefTypeMouvement : Type mouvement (clé etrangere)

Table MouvementsDetails : détails ds mouvements contient

RefDetailMouvement : Clé primaire
NumInvFk : Désignation équipement clé étrangère
RefMouvementFk : référence a la table mouvements clé étrangère

je veux ecrire une requête parametree sans jointure (avec des clauses WHERE par exemple) qui renvoie :

NumInvFk
DteMouvement) (critere
RefServiceFk (critere)
RefTypeMouvementFk