Bonjour a tous.
Ma requête ajout, basée sur deux tables comportant une relation incluant tous les enregistrement de la table de gauche et seulement ceux de la table de droite pour lesquels les champs joints sont égaux ajoute des enregistrement comportant une valeur nulle dans ma table destination à chaque enregistrement absent de la table de droite.
J'ai besoin, pour des commodités de traitement obtenir la valeur 0 au lieu de "NULL".
Pour cela j'ai écrit la fonction de conversion suivante:
Code : 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 ConvQte(ByVal Qte As Variant) As Variant
'Cette fonction convertit les quantités nulles en 0
 
  On Error GoTo TrtErr
 
  If Not IsNull(Qte) Then
    ConvQte = Qte
  Else
    ConvQte = 0
  End If
 
  Exit Function
TrtErr:
  Error Err 'Retour à la gestion  d'erreur de la procédure appelante
End Function
Malheurement, traitant plusieurs dizaines de milliers d'enregistrements et la fonction étant appelée à chaque enregistrement, le temps de traitement devient vite excessif.
Avez vous une solution pour contourner ce problème?
Merci, cordialement.