Discussion :

[marcelstan]

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

Code Vba Access :

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

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.

[madefemere]

Bonjour,

Ton code

Code :

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

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 :

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

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 :

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 ?

[marot_r]

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 :

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

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+

[marcelstan]

J'ai testé le code

Code code vba :

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

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 :

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

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.

[madefemere]

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,

[marcelstan]

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

[marcelstan]

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

[madefemere]

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 :

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

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,

[marcelstan]

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