valeur par defaut encore...

bonjour,

J'ai un petit problème très bête, mais je trouve pas la solution.
J'ai dans un formulaire, un champ dont la valeur par défaut est 0?. Je
peux
donc la changer. Jusque là, tout va bien. seulement, lorsque je supprime
cette valeur, je voudrais que le champ reprenne sa valeur par défaut, mais
pas moyen.
J'ai tenté de faire une action basée sur l'évenement "perte focus" avec le
code suivant :
If me![contenu_1]= "" then me![contenu_1]= "0"
ou encore
If me![contenu_1]= Null then me![contenu_1]= "0"
mais rien ne s'affiche...

Si vous avez des suggestions, elles sont les bienvenues, merci.

Baptiste

Bonjour.

si ton champ s'appelle Valeur par exemple:
Private Sub Valeur_LostFocus()
Me.Valeur = Nz(Me.Valeur, 0)
End Sub
ou
Private Sub Valeur_LostFocus()
If IsNull(Me.Valeur) Then
Me.Valeur = 0
End If
End Sub


--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Baptiste" <Baptiste@discussions.microsoft.com> a écrit dans le message de
news: 5EE07447-CD08-41D2-B33F-216BD60CCE73@microsoft.com...

bonjour,

J'ai un petit problème très bête, mais je trouve pas la solution.
J'ai dans un formulaire, un champ dont la valeur par défaut est 0?. Je
peux
donc la changer. Jusque là, tout va bien. seulement, lorsque je supprime
cette valeur, je voudrais que le champ reprenne sa valeur par défaut, mais
pas moyen.
J'ai tenté de faire une action basée sur l'évenement "perte focus" avec le
code suivant :
If me![contenu_1]= "" then me![contenu_1]= "0"
ou encore
If me![contenu_1]= Null then me![contenu_1]= "0"
mais rien ne s'affiche...

Si vous avez des suggestions, elles sont les bienvenues, merci.

Baptiste