Discussion :

[jhntms]

Bonjour le forum,

Je reviens vers vous car je suis (encore) coincé entre le VBA Access et les champs dates...

Pour expliquer rapidement, je calcul dans un champ une moyenne de poids provenant d'une seconde table, cette moyenne dépendant de la table et du numéro d'animal,

J'ai donc aboutit à cette ligne de code :

Code :

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

1
2
 
    DoCmd.RunSQL "UPDATE Poids SET Poids_bascule = DAvg('[Event.Poids]', '[Event]', '[Event.Date_ev] = [Poids.Date_poids]') ;"

Qui ne donne rien... Même en essayant d'ajouter des # ou en bougent les ' ...

Notez que ce code :

Code :

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

1
2
 
    DoCmd.RunSQL "UPDATE Poids SET Poids_bascule = DAvg('[Event.Poids]', '[Event]', '[Event.Date_ev] = #14/04/2017#') ;"

Fonctionne, le problème vient de ma déclaration de champ je pense..

Merci d'avance à ceux qui passeront du temps sur mon problème...

Johan

[tee_grandbois]

Bonjour,
je tenterai de mettre la date de la table à mettre à jour en dehors des quotes du critère :

Code :

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

DoCmd.RunSQL "UPDATE Poids SET Poids_bascule = DAvg('[Event.Poids]', '[Event]', '[Event.Date_ev] = ' & [Poids.Date_poids]) ;"

[jhntms]

Bonjour tee_grandbois,

Tout d'abord merci de t'intéresser à mon problème,

Je ne sais pas si j'avais essayé ta solution auparavant, mais la elle ne fonctionne pas...

Les champs Poids_bascule restent vides, j'ai bien vérifier les noms des champs "Date_ev" et "Date_poids" et si il y avait des valeurs dans "Poids" de la Table "Event", malheureusement rien...

Cdlt

[tee_grandbois]

En fait, je te conseille de passer par une table temporaire ou par VBA pour mettre à jour un champ à partir de plusieurs enregistrements car les fonctions de domaine ne sont pas la meilleure solution pour ce genre de mise à jour

[Invité]

Bonjour,

et comme ceci ?

Code :

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

1
2
 
DoCmd.RunSQL "UPDATE Poids SET Poids_bascule = DAvg('Poids', 'Event', 'Date_ev =' &  FORMAT(Date_poids,'\#yyyy/m/d\#'))"

[tee_grandbois]

j'ai un doute sur la possibilité de mettre à jour à partir de variables dates, de plus, il faut quand même sélectionner l'enregistrement à mettre à jour : avec cette instruction toute la table sera mise à jour.

[tee_grandbois]

Après réflexion (et l'aide de galoir) je pense qu'une instruction comme celle-ci pourrait fonctionner :

Code :

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

DoCmd.RunSQL "UPDATE Poids SET Poids_bascule = DAvg('Poids', 'Event', 'Date_ev =' &  FORMAT(Date_poids,'\#yyyy/m/d\#')) where Date_poids in (select distinct Date_ev from Event);"

[jhntms]

Bonjour à tous les deux et un grand merci

J'ai directement testé ta dernière proposition tee_grandbois, celle-ci fonctionne parfaitement !

Cependant (je pensais y arriver seul ) je ne parviens pas à rajouter des critères.
Il faudrait en fait comparer deux numéros à 6 chiffres (identifiant) et en plus (je ne le savais pas hier...) exclure de la moyenne les dates qui sont à +/- 10% de la moyenne de la date précédente

Je me demande si il ne faut pas passer par du vba comme tu le disais tee_grandbois, je vais me pencher la dessus

En tout cas merci pour votre aide !

Johan

[jhntms]

Re bonjour,

J'ai trouvé une solution, si ca intéresse quelqu'un la voici:

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
44
45
46
47
48
49
50
51
52
53
54
55
56
Set Db = CurrentDb
Set rst = Db.OpenRecordset("Poids_inter", dbOpenTable)
rst.MoveFirst
 
While Not rst.EOF
 
    date_min = Format(DMin("Date_poids", "Poids_inter", "ID_Bande = " & numP), "dd/mm/yyyy")
    rstdate = Format(rst!Date_poids, "mm/dd/yyyy")
 
'Recupère le poids manuel si c'est la 1ere date    
    If rst!Date_poids = date_min Then
        rst.Edit                                                                        'Passe en mode modification
        rst.Fields("Poids_traité").Value = rst!Poids_manuel
        rst.Update                                                                      'Met à Jour
 
'cherche les valeurs 15% dessus et deoous la moyenne 
    Else:
        rst.MovePrevious
            poidsV = rst!Poids_traité
            poidslim_sup = poidsV * 1.15
            poidslim_inf = poidsV * 0.85
        rst.MoveNext
 
'si pas de poids la veille on attribue un poids par defaut       
        If IsNull(poidslim_sup) Or IsNull(poidslim_inf) Then
 
            rst.Edit                                                                        'Passe en mode modification
            rst.Fields("Poids_traité").Value = poidsV + 0.4
            rst.Update
 
'on remplace les virgules pa des points (pour le SQL)            
        Else:
            poidslim_sup = Replace(poidslim_sup, ",", ".")
            poidslim_inf = Replace(poidslim_inf, ",", ".")
 
'requete SQL        
            moypoids = DAvg("[Poids_brut]", "Event", "[ID_Porc] = " & rst!ID_Porc _
                        & " AND [Date_ev] = #" & rstdate & "#" _
                        & " AND [Poids_brut] BETWEEN " & poidslim_sup & " AND " & poidslim_inf)
 
'on calcul le poids                 
                rst.Edit                                                                        'Passe en mode modification
                rst.Fields("Poids_traité").Value = moypoids
                rst.Update                                                                      'Met à Jour
            End If
        End If
    End If
 
rst.MoveNext                                                                          'Passe au suivant
 
Wend
 
rst.Close                                                                           'Libération des objets
Db.Close
Set rst = Nothing
Set Db = Nothing

Voila si ca peut aider quelqu'un