Discussion :

[froutloops62]

bonjour tout le monde,

j'ai un gros pb je m'en sort pas,

je vous explique

j'ai un formulaire Commande avec un sous formulaire Lot et dans ce sous formulaire j'ai un sous formulaire production en mode feuille de données
la relation champ prere et fils marche bien

avec la commmande pas de pb

Par contre quand j'entre la production dans le sous formulaire production, si je laisse le pointeur de la souris dans l'enregistrement en cours et que je change de lot à l'aide des boutons de deplacement

Il m'ajoute des enregistrements vides dans tous les lots jusqu'a que j'arrete le deplacement.

Donc pour palier à ce problème je fais pointer mon curseur sur un champ du sous formulaire lot mais si j'oubli boom je suis obligé de retourner sur tous les lots où je me suis déplacer pour supprimer les enregistrement de production vide.

Les utilisateurs ne le font pas donc ma table prod est remplis d'enregitrements vides.

Je suis obligé de les supprimer manuellement directement dans la table.

Comment puis je faire pour solutioner ce PB.

Merci de vos reponses.

[froutloops62]

plus d'info

en fait si je laisse le pointeur de ma souris sur le champ qui génére un calcul, il me rajoute au deplacement les champ avec le calcul sur tous les enregistrement je m'explique :


Si je laiise le pointeur sur le champ "Cadence" qui genere ce code

Code :

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

1
2
3
Private Sub Cadence_GotFocus()
Me.Objectif = IIf(Me.Cadence >= Forms![Commande1]![Lot Requête]![Objectif Demandé], "Atteint", "Non Atteint")
End Sub

je me deplace sur un autre lot,

il me met sur toute les prod un enregistrement vide mais dans le champ objectif "Non Atteint"

voici le code complet du sous formulaire Réalisation

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
Private Sub Agent_Maîtrise_Click()
Me.Soit_en__ = (Me.Cadence / Forms![Commande1]![Lot Requête]![Objectif Demandé]) * 100
Me.Objectif = IIf(Me.Cadence >= Forms![Commande1]![Lot Requête]![Objectif Demandé], "Atteint", "Non Atteint")
End Sub
 
Private Sub Atelier_AfterUpdate()
Me.Commande = Forms![Commande1]![Lot Requête]![N°Commande]
Me.Client = Forms![Commande1]![Lot Requête]![NomClient]
Me.Objectif_Demandé = Forms![Commande1]![Lot Requête]![Objectif Demandé]
If Me.Atelier = "Numérique" Then
Forms![Commande1]![Lot Requête]![ProdDivers].Enabled = True
Else
Forms![Commande1]![Lot Requête]![ProdDivers].Enabled = False
End If
Me.Machine.Requery
If IsNull(Forms![Commande1]![Lot Requête]![Objectif Demandé]) Then
    stDocName = "DemandeCadence"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
If Forms![Commande1]![Lot Requête]![Objectif Demandé] = 0 Then
    stDocName = "DemandeCadence"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Forms![Commande1]![Lot Requête]![Réalisation_sous_formulaire]![Objectif Demandé] = Me.Objectif_Demandé
End Sub
 
 
Private Sub Cadence_Click()
Me.Soit_en__ = (Me.Cadence / Forms![Commande1]![Lot Requête]![Objectif Demandé]) * 100
End Sub
 
Private Sub Cadence_GotFocus()
Me.Objectif = IIf(Me.Cadence >= Forms![Commande1]![Lot Requête]![Objectif Demandé], "Atteint", "Non Atteint")
End Sub
 
Private Sub En_Nbre_Min_Click()
    stDocName = "Convertisseur"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
 
Private Sub En_Nbre_Min_Enter()
    stDocName = "Convertisseur"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub