Discussion :

[baouk2000]

Bonjour,

J'ai un problème avec les sous-formulaires qui ne retournent pas le résultat souhaité. les sous-formulaires sont basés sur des requêtes conditionnelles. les requêtes retournent les résultats quand testées. Cependant les sous-formulaires retournent 0

ma base de données est comme suit



Les sous-formulaires sont insérés dans un formulaire principal qui prend la date (sélectionnée) depuis un autre formulaire (F_MENU)..

je ne trouve pas l'erreur sur le code VBA du sous-formulaire (form_load()).

voila le code VBA inclus au sous-formulaire :

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
30
31
32
33
34
35
36
Private Sub Form_Load()
 
Dim accessRS As Recordset
Dim strq3 As String
Dim db As Database
Dim mydate As Date
Set db = CurrentDb
 
mydate = [Forms]![F_MENU]![s_date]
 
strq3 = "select datemvt, CIMAF, MIRA, FAKOTRANS, OKPLAST, TOTAL_ENTREE from sR_clinkerE where datemvt=#" & Format(mydate, "dd/mm/yyyy") & "# ;"
 
Set accessRS = db.OpenRecordset(strq3)
 
If accessRS.RecordCount > 0 Then
 
Me.cimaf_clnk = IIf(Nz(accessRS![CIMAF], 0) = 0, 0, accessRS![CIMAF])
Me.mira_clnk = IIf(Nz(accessRS![MIRA], 0) = 0, 0, accessRS![MIRA])
Me.FAKOTRANS_clnk = IIf(Nz(accessRS![FAKOTRANS], 0) = 0, 0, accessRS![FAKOTRANS])
Me.okplast_clnk = IIf(Nz(accessRS![OKPLAST], 0) = 0, 0, accessRS![OKPLAST])
Me.TOTAL_ENTREE_clnk = IIf(Nz(accessRS![TOTAL_ENTREE], 0) = 0, 0, accessRS![TOTAL_ENTREE])
 
Else
 
Me.cimaf_clnk = 0
Me.mira_clnk = 0
Me.FAKOTRANS_clnk = 0
Me.okplast_clnk = 0
Me.TOTAL_ENTREE_clnk = 0
 
End If
 
accessRS.Close
Set accessRS = Nothing
 
End Sub

ce sous-formulaire est basée sur la requête conditionnelle :

Code :

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

1
2
3
4
SELECT type.Type AS TYPE, Mvmt.datemvt, Sum(IIf(Len([Mvmt]![qte1m])=0,"0",[Mvmt]![qte1m])) AS CIMAF, Sum(IIf(Len([Mvmt]![qte2m])=0,"0",[Mvmt]![qte2m])) AS MIRA, Sum(IIf(Len([Mvmt]![qte3m])=0,"0",[Mvmt]![qte3m])) AS FAKOTRANS, Sum(IIf(Len([Mvmt]![qte4m])=0,"0",[Mvmt]![qte4m])) AS OKPLAST, Sum([Mvmt].[qte1m]+[Mvmt].[qte2m]+[Mvmt].[qte3m]+[Mvmt].[qte4m]) AS TOTAL_ENTREE, Sum(Mvmt.qte5m) AS SEC, Sum(Mvmt.qte6m) AS MOUILLE, Sum(Mvmt.total_qte) AS TOTAL2
FROM type INNER JOIN (typemvt INNER JOIN (Produit INNER JOIN Mvmt ON Produit.idtype = Mvmt.idtypefk) ON typemvt.idtypemvt = Mvmt.idtypemvtfk) ON type.idtype = Produit.idtype
WHERE (((Produit.idtype)=1) AND ((typemvt.idtypemvt)=1) AND ((Mvmt.idtypefk)=[Produit]![idtype]) AND ((Mvmt.idtypemvtfk)=[typemvt]![idtypemvt]))
GROUP BY type.Type, Mvmt.datemvt;

Merci de trouver le temps de porter main

[deedolith]

Salut,

Sauf erreur de ma part, le format de date n'est pas bon.
Essaye mm/dd/yyyy#

[baouk2000]

Bonjour,

En effet, le format de date SQL est sujet de la question. J'ai essayé le format yyyy-mm-dd et ça a marché. Je crois que le format mm/dd/yyyy marche aussi

Merci pour votre temps deedolith