Discussion :

[marcelstan]

Bonjour,

J'essaie de faire un code VBA sur Access mais cela ne marche et je ne sais pas pouquoi la ligne en italique et rouge est marqué en jaune dans VBA et j'ai une fenetre qui s'affiche et me dis utilisation incorrect du NULL et je ne sais pas pourquoi.

Code VBA Access :

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

1
2
3
4
5
6
7
8
Public Function StatutVente(Argus, Statut_Transport) As String
    If (Argus) > 100 And CDbl(Statut_Transport) = 1 Then
       StatutVente = "Vendable"
    Else
      Statut_Transport = "Non_Vendable"
    End If
End Function

[madefemere]

Bonsoir,
Je pense que c'est Statut_Transport qui est Null lorsque tu appelles ta fonction.
Donc la fonction CDbl doit lever une erreur.
Mets un Debug.Print de tes arguments avant ton If pour voir les valeurs renvoyées.
Essaie

Code :

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

    If (Argus) > 100 And CDbl(Nz(Statut_Transport,0)) = 1 Then

Cordialement,

[marcelstan]

Parfait,

Merci