Discussion :

[Oceliane]

Bonjour, j'ai un petit souci dans un de mes formulaires. plusieurs modifications identiques doivent être éffectuées lorsque je modifie des champs différents. à chaque fois, il n'y a qu'une ou deux modifications, mais le coeur des modifications reste le même.

Exemple:

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
Private Sub P1Dur_AfterUpdate()
      Me.Palier1 = Me.P1Dur
 
      Me.P1Deb = 1
      Me.palier3 = 0
      Me.P3Deb = 0
      Me.P3Dur = 0
End Sub
 
Private Sub Palier1_AfterUpdate()
      Me.P1Dur = Me.palier1
 
      Me.P1Deb = 1
      Me.palier3 = 0
      Me.P3Deb = 0
      Me.P3Dur = 0
End Sub

je voudrais donc passer à:

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
Private Sub P1Dur_AfterUpdate()
      Me.Palier1 = Me.P1Dur
 
      Goto Calculs
End Sub
 
Private Sub Palier1_AfterUpdate()
      Me.P1Dur = Me.palier1
 
      Goto Calculs
End Sub
 
Calculs:
      Me.P1Deb = 1
      Me.palier3 = 0
      Me.P3Deb = 0
      Me.P3Dur = 0
End Sub

comment faire? Je me doute qu'il doit exister une autre commande, mais laquelle? j'ai essayé avec les Public Function, mais ça ne fonctionne pas. actuellement, j'ai commencé à tout taper manuellement, mais à chaque erreur je dois tout re-modifier... sans compter la place que ça prend et le temps que je perds!!

Merci d'avance...

[Oleff]

Code :

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

1
2
3
4
5
6
Sub Calculs()
      Me.P1Deb = 1
      Me.palier3 = 0
      Me.P3Deb = 0
      Me.P3Dur = 0
End Sub

Et tu lances un appel par

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub P1Dur_AfterUpdate()
      Me.Palier1 = Me.P1Dur
 
      Call Calculs()
End Sub
 
Private Sub Palier1_AfterUpdate()
      Me.P1Dur = Me.palier1
 
      call Calculs()
End Sub

[Oceliane]

ça marche! excellent!

je savais que ça ne devait pas être trop compliqué , mais je n'avais pas trouvé...

beaucoup!