Discussion :

[oceanediana]

Bonjour, j'ai un problème de sql.

Voici le code :

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
24
25
26
27
28
29
Function Quartil(strTable As String, strField As String, param As String, anne As String, rang As Integer) As Double

Dim oDBS As DAO.Database
Dim oRST As DAO.Recordset
Dim blnEven As Boolean
Dim vntMedian As Variant

If rang = 1 Then rang = 25
If rang = 3 Then rang = 75

  Set oDBS = CurrentDb()
  Set oRST = oDBS.OpenRecordset("SELECT * FROM " & strTable & " WHERE " & param & " = '" & CStr(anne) & "' ORDER BY " & strField)
  
  If oRST.EOF = False Then
     oRST.MoveLast
     blnEven = (oRST.RecordCount Mod 2 = 0)
     oRST.PercentPosition = rang
     vntMedian = oRST.Fields(strField)
     If blnEven Then
         oRST.MoveNext
         vntMedian = (vntMedian + oRST.Fields(strField)) / 2
     End If
  End If
  
  oRST.Close
  Set oRST = Nothing
  Set oDBS = Nothing

End Function

J'utilise ce code pour déterminer les quartiles en statistiques pour chaque année de 2002 à aujourd'hui.

Problème : certaines années peuvent ne contenir aucune données pour certains produit. Donc la sélection peut être vide et donc j'ai une erreur. Comment compter le nombre de lignes de la sélection pour chaque année ?

Merci pour votre aide.

[Arkham46]

bjr,

- quelle erreur?
- sur quelle ligne?

sinon tu fais un MoveLast, puis un peu plus loin MoveNext
tu ne peux pas aller plus loin que le dernier...

[Tofalu]

Pourtant tu testes dèja si le recordset est vide ou plein

If oRST.EOF = False Then

L'erreur se produit sur quelle ligne ?

[oceanediana]

J'utilise cette fonction de la façon suivante :

Année quartile
N 23,25
N-1 19,24
N-2 22,75
etc...

dans une requête sélection avec regroupement des années.

Mais pour certaines années : il peut n'y avoir aucune ligne ! voila le problème, donc j'ai une erreur : aucun enregistrement en cours.

Erreur sur la ligne :

Code :

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

vntMedian = (vntMedian + oRST.Fields(strField)) / 2

[Arkham46]

sinon tu fais un MoveLast, puis un peu plus loin MoveNext
tu ne peux pas aller plus loin que le dernier...

.......

[oceanediana]

Je viens de remarquer un autre problème : pour une année je n'ai que 2 enregistrements. Donc pour le 3ème quartile j'ai également cette erreur.

[Tofalu]

sinon tu fais un MoveLast, puis un peu plus loin MoveNext
tu ne peux pas aller plus loin que le dernier...

.......

[jm_force]

salut,

soit dans ta table en question, tu fais une requete de mise à jour, là ou ta table est vide tu mets zéro.
soit dans ta clause where tu rajoute AND anne IS NOT NULL

comme ça ta requete ne recupere pas les ligne vide!

[oceanediana]

Merci pour votre aide, le problème est réglé !