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