Discussion :

[nomade333]

Bonsoir,
j'ai le code ci dessous qui fonctionne tel quel

Code :

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

1
2
3
4
Private Sub MajButee_Click()
'Mise à jour de la limite de fonctionnement
          Me.Butée = Me.Fonctionnement + Me.Intervalle
End Sub

maintenant je voudrais y incorporer une condition "une case à coché", j'écris donc:

Code :

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

1
2
3
4
5
6
Private Sub MajButee_Click()
'Mise à jour de la limite de fonctionnement
If  Me.LF = 1 Then
          Me.Butée = Me.Fonctionnement + Me.Intervalle
 End If
End Sub

Mais cela ne fonctionne pas rien ne se passe.
Je n'y connais pas grand chose en vba et je ne vois ce que je dois écrire exactement?
Merci par avance.

[forges]

Essaye True (vrai) / False (faux) à la place de 0 ou 1

Code :

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

1
2
3
4
     If Me.LF = True Then
          ...
     End if

Autre chose, évite les accents dans les noms des champs

Me.Butée

Salutations