Utilisation de Is Null Vba access

Bonjour à tous voiçi un code que j'ai fai fais

Code:

---

1 2 3 4

Public Function StatutFacturation(Date_Vente) As String If IsNull(Date_Vente) = True Then StatutFacturation = "Sans bon de commande" else StatutFacturation="Sur bon de commande" End Function

---

Le hic est que quand j'exécute le programme j'ai uniquement les "sur bon de commande" alors que j'ai des champs Date_Vente remplies
Quand j'éxécute et que j'affiche la date vente elle s'affiche en nombre (42756, 42586...) je ne sais si l'erreur vient de là du moins je ne pense pas mais le code il ne marche pas.

Bonjour,

Ton code

Code:

---

1 2 3

Public Function StatutFacturation(Date_Vente) As String If IsNull(Date_Vente) = True Then StatutFacturation = "Sans bon de commande" else StatutFacturation="Sur bon de commande" End Function

---

veut dire :

Code:

---

1 2 3

Si DateVente est Null Donc StatutFacturation = "Sans bon de commande" Sinon StatutFacturation="Sur bon de commande"

---

Donc je ne comprends pas ce qui te surprend :

Citation:

---

Le hic est que quand j'exécute le programme j'ai uniquement les "sur bon de commande" alors que j'ai des champs Date_Vente remplies

---

Plus d'explication peut-être ?

Bonjour.

D'abors je te sugère de modifier ton code comme suit pour le rendre plus lisible et donc faciliter sa modification éventuelle.

Code:

---

1 2 3 4 5 6 7 8 9

Public Function StatutFacturation(Date_Vente as variant) As String   If IsNull(Date_Vente) = True Then StatutFacturation = "Sans bon de commande" else StatutFacturation="Sur bon de commande" end if   End Function

---

Le typage en variant n'est pas indispensable mais cela montre clairement que tu sais que le type est indéfini et pas simplement que tu as oublié de préciser le type.

Ensuite, en interne les dates sont en réalité des nombres décimaux. La partie entière (avant la virgule) représente le jour et la partie décimale (après la virgule) représente l'heure (en miliseconde il me semble).

Dans ton cas si tu 42756 il est clair que ce n'est pas null donc il est normal que ton code donne "Sur bon de commande".

Attention Null est un "Machin" à part, ce n'est pas 0 ce n'est pas un texte vide.

A+

J'ai testé le code

Code:

---

1 2 3 4 5 6 7

Public Function StatutFacturation(Date_Vente As Variant) As String If IsNull(Date_Vente) = True Then StatutFacturation = "Sans bon de commande" Else StatutFacturation = "Sur bon de commande" End If End Function

---

mais le resultat est le même il ne reconnait pas les champs où j'ai une date.

J'ai essayé aussi de le faire en mode création avec la fonction vraifaux
j'ai mis

Code:

---

1 2	VraiFaux([Stock_Remarketing]![Date_Vente] Est Null;"Sans bon de commande ;"Sur bon de commande")

---

Et quand je le fais j'ai une erreur incompatibilité de type.

Bonjour,

Je ne comprends pas le souci. Ton code marche tel quel dans une requête.
Une base de données exemple est jointe avec l'utilisation dans une requête.

Cordialement,

Je te mets en pièce jointe une copie de ma base pour que tu jette un oeil dessus

fichier excel necessaire pour créer la table liée

Effectivement, si la table est un fichier Excell attaché, les Null sont difficile à identifier.
Donc il faut aussi rajouter un test sur les valeurs égales à "" donc la condition deviendrait :

Code:

---

1 2 3 4 5 6 7

Public Function StatutFacturation(Date_Vente As Variant) As String If IsNull(Date_Vente) = True Or Date_Vente = "" Then StatutFacturation = "Sans bon de commande" Else StatutFacturation = "Sur bon de commande" End If End Function

---

Cordialement,

D'accord je ne savais pas qu'il fallait distinguer les cas si on n'importait une table d'excel.
Merci