Discussion :

[Yves2507]

Bonjour.

Je voudrai incrémenter de 1 un champs de mon formulaire a chaque fois que clic sur +

J'ai donc sur un évenement clic d'un bouton écris:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande118_Click()
Dim temper As Integer
If Me.Température.Value = 0 Then
Me.Température.Value = 20
Else
temper = Me.Température.Value
temper = temper + 1
Me.Température.Value = temper
End If
end sub

• Si la valeur dans le formulaire est supérieur a 0 cela fonctionne mais si le champs est vide j'ai une erreur 94 utilisation incorrect de la valeur null.
  J'ai essayé de faire mettre la valeur a 20 si mon champs était null mais cela ne fonctionne pas.
  Auriez vous une solution.
  
  Merci

[random]

If (Me.Température.Value = 0) or isnull(Me.Température.Value) Then

[Lou Pitchoun]

Salut
Essaie ceci

Code :

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

If IsNull(Me.Température) Then

[Tofalu]

Un exemple détaillé est disponible dans nos pages sources :

http://access.developpez.com/sources

[Yves2507]

Merci cela fonctionne.