Discussion :

[Massiliya]

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

[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+

[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?

[Massiliya]

Voici ça n'a pas marché:

[Massiliya]

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

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
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:

Je pense que j'ai besoin d'une telle instruction:

Code :

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

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

Mais je sais pas comment!!!

[marot_r]

Bonjour.

Code :

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

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

A+

[Massiliya]

Oui je pense que je m’approche de la solution !! merci mais il y'a encore un msg d'erreur

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 :

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
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

[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???

[marot_r]

Bonjour.

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+

[Massiliya]

Oui bien suuuuuur

[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+

[Massiliya]

Merci, joli modèle très clair.

Merci c'est gentil marrot

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.

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
Merci de nouveau pour votre temps

[Massiliya]

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:

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

J'ai beaucoup essayer mais j'arrive pas à résoudre ce problème qui parait peut-être débil !!
Merci d'avance
Cordialement

[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+

[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+