La valeur la plus récente d'un champ (Access)

Version imprimable

19/04/2017, 17h15
Massiliya

La valeur la plus récente d'un champ (Access)

Bonjour :)
Y'a t-il quelqu'un qui peut me décrire un code VBA qui me permet d'obtenir la valeur la plus récente (dernière valeur saisie) d'un champ nommé "Code_OF" qui est de type numérique et qui fait partie d'une table nommée "Ordre_de_fabrication" (cette table contient également un champ "date_OF")!!
J'ai besoin de cette valeur car elle me permet de faire un calcul lors du passage d'un formulaire à un autre!!
Merci d'avance
Cordialement :)
19/04/2017, 17h39
marot_r

Bonjour.

On peut (avec DMAX("TonChamp", "TaTable")mais ce n'est peut-être pas une bonne idée si ton application est utilisée par plusieurs personnes en même temps.
Si tu as plusieurs utilisateurs, rien ne prouve que le dernier enregistrement soit celui que tu veux.
Il vaudrait peut-être mieux trouver un moyen de transmettre cette information au moment où tu es sur que c'est la bonne.

A+
19/04/2017, 17h45
Massiliya

D'abord merci
Non mon application sera utilisée par une seule personne donc un tel problème ne se pose plus
Toutefois cette dernière valeur je veux l'attribuer à une variable!! comment faire?
19/04/2017, 18h00
Massiliya

2 pièce(s) jointe(s)

Voici ça n'a pas marché:
Pièce jointe 266093
Pièce jointe 266094

1 pièce(s) jointe(s)

Bah j'ai ajusté un peu le code comme suivant:

Code:

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
Private Sub suiviproduction_Click()
  'Ajout du contenu de la table "table_aux" dans la table "production"
    Dim oRst3 As DAO.Recordset  ' table en lecture
    Dim oRst4 As DAO.Recordset  ' table en ajout
    Dim nb As Long
    Dim oDb As DAO.Database
    Set oDb = CurrentDb
    Set oRst3 = oDb.OpenRecordset("SELECT * FROM table_aux", dbOpenSnapshot)
    Set oRst4 = oDb.OpenRecordset("SELECT * FROM Production", dbOpenDynaset)
    nb = Max("Code_OF", "Ordre_de_fabrication")
    While Not oRst3.EOF
         ' création nouvel enregistrement
               oRst4.AddNew
               oRst4![Code_face] = oRst3![CodeF]
               oRst4![Date_changement] = oRst3![Date_changement]
               'Avoir le code OF le plus récent et lui ajouter 1
               oRst4![Code_OF] = nb + 1
         ' ... ici éventuellement les autres champs
               oRst4.Update
               oRst3.MoveNext
    Wend
    oRst3.Close
    oRst4.Close
    Set oRst3 = Nothing
    Set oRst4 = Nothing
    DoCmd.Close
    DoCmd.OpenForm "Suivi_de_la_production"
End Sub

et ça m'a donné comme msg d'erreur le suivant:
Pièce jointe 266103
Je pense que j'ai besoin d'une telle instruction:

Code:

Set oRst = oDb.OpenRecordset("SELECT * FROM Ordre_de_fabrication", dbOpenSnapshot)

Mais je sais pas comment!!!

19/04/2017, 18h28
marot_r

Bonjour.

Code:

Nb=NZ(DMax(...), 0)

A+

1 pièce(s) jointe(s)

Oui je pense que je m’approche de la solution !! merci mais il y'a encore un msg d'erreur
Pièce jointe 266113
Je sais que je vous dérange mais j'ai vraiment besoin d'aide je suis débutante et mon sujet de PFE compte sur cette application :)

Code:

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
Private Sub suiviproduction_Click()
  'Ajout du contenu de la table "table_aux" dans la table "production"
    Dim oRst3 As DAO.Recordset  ' table en lecture
    Dim oRst4 As DAO.Recordset  ' table en ajout
    Dim nb As Long
    Dim oDb As DAO.Database
    Set oDb = CurrentDb
    Set oRst3 = oDb.OpenRecordset("SELECT * FROM table_aux", dbOpenSnapshot)
    Set oRst4 = oDb.OpenRecordset("SELECT * FROM Production", dbOpenDynaset)
    nb = Nz(DMax("Code_OF", "Ordre_de_fabrication"), 0)
    While Not oRst3.EOF
         ' création nouvel enregistrement
               oRst4.AddNew
               oRst4![Code_face] = oRst3![CodeF]
               oRst4![Date_changement] = oRst3![Date_changement]
               'Avoir le code OF le plus récent et lui ajouter 1
               oRst4![Code_OF] = nb + 1
         ' ... ici éventuellement les autres champs
               oRst4.Update
               oRst3.MoveNext
    Wend
    oRst3.Close
    oRst4.Close
    Set oRst3 = Nothing
    Set oRst4 = Nothing
    DoCmd.Close
    DoCmd.OpenForm "Suivi_de_la_production"
End Sub

19/04/2017, 18h45
Massiliya

Bah je comprends le problème!! en fait la valeur du code_of doit être prise de la table "ordre de fabrication" et moi je veux faire entrer cette valeur dans la table "production" qui est en relation avec la table "ordre_de_fabrication" avant de la faire entrer dans la table "ordre_de_fabrication" c'est qui est impossible!!!!
Mais moi j'ai besoin d'enter cette valeur avant!! y'a t-il un truc? ou je dois penser au problème autrement???
19/04/2017, 18h52
marot_r

Bonjour.

Citation:

ou je dois penser au problème autrement ?

à mon avis oui.

Peux-tu poster une copie d'écran de tes relations ? Je suis un peu mêlé par te description.

A+
19/04/2017, 18h54
Massiliya

1 pièce(s) jointe(s)

Oui bien suuuuuur :)

Pièce jointe 266124
19/04/2017, 19h33
marot_r
Merci, joli modèle très clair.

De ton modèle il ressort que l'ordre de fabrication doit exister avant d'être ajouter à ta production.

Quelles sont les étapes de ta saisie tel que tu les souhaites (pas forcément qui fonctionne actuellement) ?
D'après ton modèle cela devrait être quelque chose comme :
1. L'utilisateur créer un ordre de facturation.
2. L'utilisateur choisi une production
3. Le système transfert l'ordre de facturation dans la production.
A+
19/04/2017, 22h20
Massiliya
Citation:

Merci, joli modèle très clair.

Merci c'est gentil marrot :)
Citation:
D'après ton modèle cela devrait être quelque chose comme :

L'utilisateur créer un ordre de facturation.
L'utilisateur choisi une production
Le système transfert l'ordre de facturation dans la production.
En fait c'est ça et c'est pour cette raison que j'ai pensé à une autre solution pour gérer mes formulaires différemment ;)
J'espère que ça marche!!! Si non si je me bloque je reviens certainement sur ce forum :D
Merci de nouveau pour votre temps ;)
20/04/2017, 13h58
Massiliya

2 pièce(s) jointe(s)

Bonjour Marrot
Bah j'ai trouvé une solution différente et j'ai résolu le problème
Mais j'ai un autre problème (je suppose qu'il est simple mais pas pour moi)
En fait, je veux que seules les deux commandes "Code MP" et "Quantité" soit initialement vide à l'ouverture de mon formulaire càd comme le montre la figure ci dessous:
Pièce jointe 266389
Pour le moment si j'ouvre le nouveau enregistrement j'aurais les valeurs du dernier enregistrement dans ces deux commande comme le montre la figure ci_dessou
Pièce jointe 266394
J'ai beaucoup essayer mais j'arrive pas à résoudre ce problème qui parait peut-être débil !!
Merci d'avance
Cordialement
20/04/2017, 14h31
marot_r

Bonjour.

Peux-tu poster le code que tu utilises pour ouvrir le fichier ?

Est-ce que tu souhaites pouvoir voir des données existantes ou seulement les nouvelles données ?

A+
21/04/2017, 13h56
marot_r

Bonjour.

Je ne dispose pas du temps nécessaire pour regarder dans ton application.

Comme la question est différente de celle initiale, je t'invite à créer une nouvelle discussion pour elle, cela lui donnera plus de visibilité.

A+