Discussion :

[rch05]

Bonjour,

J'ai un formulaire qui à le champ "TotalModeDégradé"
J'ai un s/formulaire continue avec 2 champs "IdHNP" et "TpsHNP".
J'aimerai pouvoir changer la valeur du champ "TpsHNP" par la valeur du champ "TotalModeDégradé" dont le champ "IdHNP" est = à "4"

J'ai essayé par le code suivant:

Code :

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

1
2
3
4
 
If Forms![frmSaisieProduction]![sfrm_frmSaisieHNP].IdHNP = "4" Then
            Forms![frmSaisieProduction]![sfrm_frmSaisieHNP].TpsHNP = Me.TotalModeDegrade.Value
End If

Merci d'avance de votre aide

[reedy]

Bonjour rch05,

Tu ne dis pas si ton code marche ou pas ?

Cordialement

[rch05]

Bonjour reedy,

Non le code ne fonctionne pas.
Je viens d'essayer ceci:

Code :

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

1
2
3
4
 
If Forms![frmSaisieProduction]![SaisieHNP].Form![IdHNP] = "4" Then
            Forms![frmSaisieProduction]![SaisieHNP].Form![TpsHNP] = Me.TotalModeDegrade.Value
End If

J'avais une erreur dans le nom du s/formulaire.
Mais, là aussi rien ne se passe. la modif ne s'effectue pas.


Merci de ton aide

[User]

Bonjour Christian,

Sur quel évènement as-tu mis ton code ?

A+

[rch05]

Bonjour denis,

Je l'ai sur un bouton "Verification" du formulaire principal

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub cmdVerification_Click()
 
    If Me.txtTempsDirect < Me.TotalTpsProd And Me.TotalModeDegrade > 0 Then
        MsgBox "Le Temps Direct est inférieur au Temps de la production.", vbOKOnly
        If Forms![frmSaisieProduction]![SaisieHNP].Form![IdHNP] = "4" Then
            Forms![frmSaisieProduction]![SaisieHNP].Form![TpsHNP].Value = Me.tpsModeDégradé.Value
        End If
        Me.txtTempsDirect.Value = Me.TotalTpsProd.Value
        Exit Sub
    End If
 
End Sub

Actuellement, le calcul s'effectue à la main.
Donc, avant de valider la saisie, j'effectue une verification.
Et j'ailmerai , qu'après cette vérification effectuer les modifs qui s'imposent.

Merci

[User]

Re,

Est-ce que le message :

Code :

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

MsgBox "Le Temps Direct est inférieur au Temps de la production.", vbOKOnly

S'affiche ?

[rch05]

Re Denis,

J'ai essayé ceci, après la lecture du tuto Interaction des formulaires et états de Fabrice Constants:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub cmdVerification_Click()
 
    If Me.txtTempsDirect < Me.TotalTpsProd And Me.TotalModeDegrade > 0 Then
        'MsgBox "Le Temps Direct est inférieur au Temps de la production.", vbOKOnly
        If Forms.frmSaisieProduction.SaisieHNP.Form.IdHNP = "4" Then
            Forms.frmSaisieProduction.SaisieHNP.Form.TpsHNP.Value = Forms.frmSaisieProduction.tpsModeDégradé.Value
        End If
        Me.txtTempsDirect.Value = Me.TotalTpsProd.Value
        Exit Sub
    End If
 
End Sub

Cela ne fonctionne pas.........

[User]

Tu as essayé sans les guillemets :

Code :

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

1
2
3
...
if Forms.frmSaisieProduction.SaisieHNP.Form.IdHNP = 4 then
...

[rch05]

Re,

Oui le message s'affiche, et j'ai essayé ce que tu me cites

...
if Forms.frmSaisieProduction.SaisieHNP.Form.IdHNP = 4 then
...

et la mise à jour de

Me.txtTempsDirect.Value = Me.TotalTpsProd.Value

s'effectue bien.
j'ai même essayé

If Forms.frmSaisieProduction.SaisieHNP.Form.IdHNP = "4" Then
Forms.frmSaisieProduction.SaisieHNP.Form.TpsHNP.setfocus
End If

afin de savoir si le curseur pointe sur le champ.

Rien............

[rch05]

Bonjour Denis,

Ce matin j'aii effectué le test 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
 
Private Sub cmdVerification_Click()
Dim newsModedégradé As Long
 
newsModedégradé = Me.tpsModeDégradé
 
    If Me.txtTempsDirect < Me.TotalTpsProd And Me.TotalModeDegrade > 0 Then
        MsgBox "Le Temps Direct est inférieur au Temps de la production.", vbOKOnly
        Me.SaisieHNP.SetFocus
        Me.[SaisieHNP].Form.Recordset.MoveFirst
        While Not Me.[SaisieHNP].Form![IdHNP] = "4"
            Me.[SaisieHNP].Form![TpsHNP].SetFocus
            'Me.[SaisieHNP].Form![TpsHNP] = newsModedégradé
             Me.[SaisieHNP].Form.Recordset.MoveNext
        Wend
        Me.txtTempsDirect.Value = Me.TotalTpsProd.Value
        Exit Sub
    End If
 
End Sub

Le curseur pointe bien sur le champ, dont il faut changer la valeur.
J'ai rajouté le code:

Code :

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

1
2
 
Me.[SaisieHNP].Form![TpsHNP] = newsModedégradé

afin de changer la valeur.
Le pb, c'est qu'il change la valeur de tous les enregistrements qui sont en amont.

Je ne suis pas loin de la solution..........

[rch05]

Re,

Voila, j'ai trouvé la solution.
Je ne sais si c'est jolie, mais le code fonctionne.

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
 
Private Sub cmdVerification_Click()
Dim newsModedégradé As Long
 
newsModedégradé = Me.tpsModeDégradé
 
    If Me.txtTempsDirect < Me.TotalTpsProd And Me.TotalModeDegrade > 0 Then
        MsgBox "Le Temps Direct est inférieur au Temps de la production.", vbOKOnly
        Me.SaisieHNP.SetFocus
        Me.[SaisieHNP].Form.Recordset.MoveFirst
 
ModeDégradé:
        If Me.[SaisieHNP].Form![IdHNP] = "4" Then
            Me.[SaisieHNP].Form![TpsHNP].SetFocus
            Me.[SaisieHNP].Form![TpsHNP] = newsModedégradé
            Me.txtTempsDirect.Value = Me.TotalTpsProd.Value
            Exit Sub
        Else
            Me.[SaisieHNP].Form.Recordset.MoveNext
            GoTo ModeDégradé
        End If
 
    End If
 
End Sub

Merci et bon WE Pascal