OVH Cloud OVH Cloud

Valeur nulle

4 réponses
Avatar
Rancy JC
Bonjours à tous,
access 2000
J'ai un petit problème de valeur null
soit une table PC comportant notamment :
un champs B_R numérique avec des valeurs null pour certains enregistrements
et positive pour d'autres
et un champs B_RPC numérique avec propriété Valeur par défaut 0 et null
interdit
le petit bout de programme qui suit se comporte comme si toutes les valeurs
de B_R
était positive ce qui est faux
je ne trouve pas l'erreur !
merci de votre aide

--
Supprimer le r devant mon adresse
pour me répondre directement

Private Sub Commande0_Click()
Set bds = CurrentDb
Set rst = bds.OpenRecordset("PC")
With rst
.MoveFirst
Do While Not .EOF
If !B_R = Null Then
.Edit
!B_RPC = 100
.Update
End If
.MoveNext
Loop
End With
End Sub

4 réponses

Avatar
Gafish
Bonjour,

Essaie en faisant :

If IsNull(!B_R) Then
.........

Arnaud

"Rancy JC" a écrit dans le message news:
42120683$0$810$
Bonjours à tous,
access 2000
J'ai un petit problème de valeur null
soit une table PC comportant notamment :
un champs B_R numérique avec des valeurs null pour certains
enregistrements

et positive pour d'autres
et un champs B_RPC numérique avec propriété Valeur par défaut 0 et null
interdit
le petit bout de programme qui suit se comporte comme si toutes les
valeurs

de B_R
était positive ce qui est faux
je ne trouve pas l'erreur !
merci de votre aide

--
Supprimer le r devant mon adresse
pour me répondre directement

Private Sub Commande0_Click()
Set bds = CurrentDb
Set rst = bds.OpenRecordset("PC")
With rst
.MoveFirst
Do While Not .EOF
If !B_R = Null Then
.Edit
!B_RPC = 100
.Update
End If
.MoveNext
Loop
End With
End Sub




Avatar
Rancy JC
Merci Arnaud pour la réponse rapide et efficace ça marche !
Juste pour ma culture et elle en besoin car je patauge un peu en VB pourquoi
ça ne marche pas avec
If !B_R = Null Then
encore merci
Jean-Claude


"Gafish" a écrit dans le message de
news:
Bonjour,

Essaie en faisant :

If IsNull(!B_R) Then
.........

Arnaud

"Rancy JC" a écrit dans le message news:
42120683$0$810$
Bonjours à tous,
access 2000
J'ai un petit problème de valeur null
soit une table PC comportant notamment :
un champs B_R numérique avec des valeurs null pour certains
enregistrements

et positive pour d'autres
et un champs B_RPC numérique avec propriété Valeur par défaut 0 et null
interdit
le petit bout de programme qui suit se comporte comme si toutes les
valeurs

de B_R
était positive ce qui est faux
je ne trouve pas l'erreur !
merci de votre aide

--
Supprimer le r devant mon adresse
pour me répondre directement

Private Sub Commande0_Click()
Set bds = CurrentDb
Set rst = bds.OpenRecordset("PC")
With rst
.MoveFirst
Do While Not .EOF
If !B_R = Null Then
.Edit
!B_RPC = 100
.Update
End If
.MoveNext
Loop
End With
End Sub








Avatar
Gafish
Regarde dans l'aide de IsNull, tu as cette indication tout en bas :

------
Important Utilisez la fonction IsNull pour déterminer si une expression
contient une valeur de type Null. Certaines expressions dont vous pourriez
penser qu'elles sont vraies (True) dans certaines circonstances, par exemple
If Var = Null et If Var <> Null, ont pourtant toujours la valeur False. En
effet, toute expression contenant une valeur de type Null est elle-même de
type Null et a par conséquent la valeur False.
------

"Rancy JC" a écrit dans le message news:
42120bb3$0$2181$
Merci Arnaud pour la réponse rapide et efficace ça marche !
Juste pour ma culture et elle en besoin car je patauge un peu en VB
pourquoi

ça ne marche pas avec
If !B_R = Null Then
encore merci
Jean-Claude


"Gafish" a écrit dans le message de
news:
Bonjour,

Essaie en faisant :

If IsNull(!B_R) Then
.........

Arnaud

"Rancy JC" a écrit dans le message news:
42120683$0$810$
Bonjours à tous,
access 2000
J'ai un petit problème de valeur null
soit une table PC comportant notamment :
un champs B_R numérique avec des valeurs null pour certains
enregistrements

et positive pour d'autres
et un champs B_RPC numérique avec propriété Valeur par défaut 0 et
null



interdit
le petit bout de programme qui suit se comporte comme si toutes les
valeurs

de B_R
était positive ce qui est faux
je ne trouve pas l'erreur !
merci de votre aide

--
Supprimer le r devant mon adresse
pour me répondre directement

Private Sub Commande0_Click()
Set bds = CurrentDb
Set rst = bds.OpenRecordset("PC")
With rst
.MoveFirst
Do While Not .EOF
If !B_R = Null Then
.Edit
!B_RPC = 100
.Update
End If
.MoveNext
Loop
End With
End Sub












Avatar
Rancy JC
Merci Arnaud
il fallait tomber sur le problème
c'est comme ça qu'on progresse
Salut @+
Jean-Claude

"Gafish" a écrit dans le message de
news:OBrkx$
Regarde dans l'aide de IsNull, tu as cette indication tout en bas :

------
Important Utilisez la fonction IsNull pour déterminer si une expression
contient une valeur de type Null. Certaines expressions dont vous pourriez
penser qu'elles sont vraies (True) dans certaines circonstances, par
exemple

If Var = Null et If Var <> Null, ont pourtant toujours la valeur False. En
effet, toute expression contenant une valeur de type Null est elle-même de
type Null et a par conséquent la valeur False.
------

"Rancy JC" a écrit dans le message news:
42120bb3$0$2181$
Merci Arnaud pour la réponse rapide et efficace ça marche !
Juste pour ma culture et elle en besoin car je patauge un peu en VB
pourquoi

ça ne marche pas avec
If !B_R = Null Then
encore merci
Jean-Claude


"Gafish" a écrit dans le message de
news:
Bonjour,

Essaie en faisant :

If IsNull(!B_R) Then
.........

Arnaud

"Rancy JC" a écrit dans le message news:
42120683$0$810$
Bonjours à tous,
access 2000
J'ai un petit problème de valeur null
soit une table PC comportant notamment :
un champs B_R numérique avec des valeurs null pour certains
enregistrements

et positive pour d'autres
et un champs B_RPC numérique avec propriété Valeur par défaut 0 et
null



interdit
le petit bout de programme qui suit se comporte comme si toutes les
valeurs

de B_R
était positive ce qui est faux
je ne trouve pas l'erreur !
merci de votre aide

--
Supprimer le r devant mon adresse
pour me répondre directement

Private Sub Commande0_Click()
Set bds = CurrentDb
Set rst = bds.OpenRecordset("PC")
With rst
.MoveFirst
Do While Not .EOF
If !B_R = Null Then
.Edit
!B_RPC = 100
.Update
End If
.MoveNext
Loop
End With
End Sub