Discussion :

[toufiketc]

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 :

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

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 ?

[Robert1957]

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 :

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

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 :

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

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

Bonne journée

[toufiketc]

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

[madefemere]

Bonjour,

Essaies :

Code :

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

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

Cordialement.

[marot_r]

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+

[toufiketc]

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