Discussion :

[ancel17]

Bonsoir,

je voudrais savoir si il est possible de créer un Etat basé sur un Formulaire, le but étant de faire apparaître des valeurs contenues dans des contrôles indépendants du formulaire.

J'aurais bien calculé ces valeurs via une requête mais je ne sais pas comment transcrire ce code en sql (les controles indépendants auquels je fais allusion sont les différents [nb cont papiers x]) :

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
 
Dim volume As Double
 
             [nb cont papiers 80].Value = 0
	[nb cont papiers 120].Value = 0
	[nb cont papiers 180].Value = 0
	[nb cont papiers 240].Value = 0
	[nb cont papiers 340].Value = 0
 
If [volume papiers].Value <> 0 And [freq1].Value <> 0 Then
             If [volume papiers].Value / [freq1].Value / 52 <= 80 Then
	              [nb cont papiers 80].value = 1
             Elseif [volume papiers].Value / [freq1].Value / 52 >= 81 And [volume papiers].Value / [freq1].Value / 52 <= 120 Then
	              [nb cont papiers 120].Value = 1
             ElseIf [volume papiers].Value / [freq1].Value / 52 >= 121 And [volume papiers].Value / [freq1].Value / 52 <= 180 Then
	              [nb cont papiers 180].Value = 1
             ElseIf [volume papiers].Value / [freq1].Value / 52 >= 181 And [volume papiers].Value / [freq1].Value / 52 <= 240 Then
	              [nb cont papiers 240].Value = 1
             ElseIf [volume papiers].Value / [freq1].Value / 52 >= 241 And [volume papiers].Value / [freq1].Value / 52 <= 340 Then
	              [nb cont papiers 340].Value = 1
             Else
	              [nb cont papiers 340].Value = Int([volume papiers].value / freq1 / 52 / 340)
	              volume = [volume papiers].Value / freq1 / 52 - 340 * [nb cont papiers 340].Value
	              If volume <= 80 Then
		             [nb cont papiers 80].value = 1
	              Elseif volume >= 81 And volume <= 120 Then
		             [nb cont papiers 120].Value = 1
	              ElseIf volume >= 121 And volume <= 180 Then
		             [nb cont papiers 180].Value = 1
	              ElseIf volume >= 181 And volume <= 240 Then
		             [nb cont papiers 240].Value = 1
	              Else 
		             [nb cont papiers 340].Value = [nb cont papiers 340].Value + 1
	              End If
End If

J'attends vos conseils

[vodiem]

ce qui remplace if .. then dans les requetes c'est la fonction:
VraiFaux(<condition>;<cas vrai>;<cas faux>)
je pense que tu s'auras te dévrouiller avec ca.

[ancel17]

OK, merci pour le tuyau !

Mais comme je cherchais une solution de mon coté, je viens seulement de voir ton message...
Comme je te le disais, j'ai cherché de mon coté, et voici ce que j'ai bidouillé avec mes petits moyens !

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
37
38
39
40
41
42
43
 
Dim rst As Recordset
 
Set rst = CurrentDb.OpenRecordset("T_synthèse")
 
If IsNull(DLookup("n°siret", "T_synthèse", "n°siret=""" & Me.n°SIRET & """")) Then
      rst.AddNew
      rst.Fields(0) = Me.n°SIRET
      rst.Fields(1) = Me.nom_entr
      rst.Fields(2) = Me.annee
      rst.Fields(3) = Me.Nb_cont_papiers_80
      rst.Fields(4) = Me.Nb_cont_Papiers_120
      rst.Fields(5) = Me.nb_cont_papiers_180
      rst.Fields(6) = Me.Nb_cont_Papiers_240
      rst.Fields(7) = Me.Nb_cont_Papiers_340
Else   
      If IsNull(DLookup("annee", "T_synthèse", "annee=" & Me.annee)) Then
            rst.AddNew
            rst.Fields(0) = Me.n°SIRET
            rst.Fields(1) = Me.nom_entr
            rst.Fields(2) = Me.annee
            rst.Fields(3) = Me.Nb_cont_papiers_80
            rst.Fields(4) = Me.Nb_cont_Papiers_120
            rst.Fields(5) = Me.nb_cont_papiers_180
            rst.Fields(6) = Me.Nb_cont_Papiers_240
            rst.Fields(7) = Me.Nb_cont_Papiers_340
      Else
            rst.Delete
            rst.AddNew
            rst.Fields(0) = Me.n°SIRET
            rst.Fields(1) = Me.nom_entr
            rst.Fields(2) = Me.annee
            rst.Fields(3) = Me.Nb_cont_papiers_80
            rst.Fields(4) = Me.Nb_cont_Papiers_120
            rst.Fields(5) = Me.nb_cont_papiers_180
            rst.Fields(6) = Me.Nb_cont_Papiers_240
            rst.Fields(7) = Me.Nb_cont_Papiers_340
      End If
End If
 
rst.Update
rst.Close
Set rst = Nothing

Et ça à l'air de fonctionner !