Discussion :

[marcelstan]

Bonjour!!!
J'ai une question pour le moins simple j'ai une fonction

Code vba acces :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Function EntreeVenteFixe(Argus, Statut_Transport, Code_Lieu_Arrivée, Date_Arrivée, P_Date_Fact_Fixe) As String
 
      Dim Id As Integer, existeV As Boolean
      existeV = IsNull(P_Date_Fact_Fixe)
      Id = 0
      If existeV = False Then End
      If StatusTransport(Code_Lieu_Arrivée, Statut_Transport) = "TRP Terminé" And StatusArgus(Argus) = "Avec Argus" Then
        Id = 1
       ElseIf Id = 1 And CDate(Date_Expertise) > CDate(Date_Arrivée) Then
           EntreeVenteFixe = Date_Arrivée
      Else: EntreeVenteFixe = Date_Expertise
      End If
 
End Function

le hic est que le P_Date_Fact_Fixe je l'appelle depuis une table donc les champs de la colonne sont vides (car 1er test) du coup la requete ne marche pas y'a t'il un moyen de contourner le problème?
car après une premiere execution complete les champs P_date_Fact_Fixe se remplirons au fur et à mesure
Merci

[loufab]

Bonjour,
C'est pas très propre ça.

Code :

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

1
2
3
Public Function EntreeVenteFixe(Argus, Statut_Transport, Code_Lieu_Arrivée, Date_Arrivée, P_Date_Fact_Fixe) As String
...
EntreeVenteFixe = Date_Expertise

Si tu renvoie une date, il faut signer la fonction

Code :

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

As Date

ou

Code :

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

As Double

ou encore si tu t'attends à renvoyer Null ceci :

Code :

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

As Variant

et non

Code :

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

As String

.

De même que les paramètres passés sont tous en Variant puisque non signé. Mais peut-être qu'ici également tu t'attends à rencontrer des valeurs Null sur chaque paramètre.


Concernant ton problème il y a un embryon de traitement.

Code :

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

1
2
3
4
 
      existeV = IsNull(P_Date_Fact_Fixe)
 
      If existeV = False Then End

Si P_Date_Fact_Fixe est bien un type date pourquoi ne pas faire :

Code :

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

if IsNull(P_Date_Fact_Fixe) then Exit function

Cordialement,