Discussion :

[Myaccess]

Bonjour a tous,

Je cherche l'expression qui me permet de filtré une requete par un champ qui égale a une fonction VBA, voici mon cas:

J'ai un champ dans une requete qui est comme ceci: Code_affectation: Triaffectation([Affectation];[wilaya])

Triaffectation : est une fonction qui me permet de codé le champ [affectation].

Contenu du champ est :1, 2, 3 et 4.

Mon problème: je n'arrive pas a filtré le champ Code_affectation comme un champ numérique (exp: "2" ou "4"), cela ne fonctionne pas.

Merci d'avance pour toutes aide.

[marot_r]

Bonjour.

Peux-tu poster le code de Triaffectation() car, à priori, cela devrait marcher.

A+

[Myaccess]

Le voici:

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
16
17
18
19
Dim Wilaya As String
 
Function Triaffectation(Affectation As String, Wilaya As String) As Long
 
If Left(Affectation, 4) = "DREM" Then
 Triaffectation = 1
 
ElseIf Left(Affectation, 4) = "AWEM" Then
 Triaffectation = 2
 
ElseIf Left(Affectation, 4) = "ALEM" And Right(Affectation, 4) = Right(Wilaya, 4) Then
  Triaffectation = 3
 
Else
 Triaffectation = 4
 
End If
 
End Function

[marot_r]

Bonjour.

Mon problème: je n'arrive pas a filtré le champ Code_affectation comme un champ numérique (exp: "2" ou "4"), cela ne fonctionne pas.

Quand tu as posté cela j'ai compris que tu n'arrivais pas à définir une clause Where sur ce champ.
Est-ce bien le problème ?
Ou est-ce le filtre déroulant en haut du champ en affichage feuille de données qui ne marche pas ?

A+

[Myaccess]

Je cherche a filtré la requête par le champ Code_affectation, et tout simplement c'est au niveau du critère que je cherché à mettre ma condition "2" ou "4" (sur mode création).

[bertiny]

Je pense que ta requête doit être en Analyse croisée dynamique où tu mettras le champ affectation en entête de colonne. Et à partir de là, tu peux pivoter les valeurs d'affectation. Ceci te permettra d'appliquer le "2 ou 3" comme tu veux.

[marot_r]

Bonjour.

Qu'Est-ce qui se passe quand tu mets le critère ?

1. Tu n'as pas de résultat ?
2. Tu as une erreur ? Si oui, laquelle ?
3. Tu n'as pas les résultats attendus ? Si oui, quelle est la différence avec ce que tu attends ?

A+

[Myaccess]

Sur la boite de dialogue, s'affiche "Type de données incompatible dans l'expression de critère", et sur mode de feuil de données "#Nom*?".

Pour bien comprendre, je préfère partager un petit exemple, le voici donc en pièce jointe.

[marot_r]

Bonjour.

Dans ton poste (je ne peux pas installer d'application sur ma machine). Tu as encadré le 2 et le 4 de guillemets ("). Si c'est des nombre, il ne fau pas mettre de délimiteur de chaîne.
Essaye en tapant simplement 2.
Tu peux aussi ajouter un champ calculé :

Code :

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

Test: Triaffectation([Affectation];[wilaya])=2

Vois, ce que cela te dit.

Et est-ce que [wilaya] est un champ dans ta source de données car Access ne peut accéder directement à une variable VBA par son nom.

A+

[Myaccess]

Oui, j'ai essayé tout les possibilités (même sans les guillemets) mais aucun résultat.

Voici une Imp.écran de mon exemple.

[marot_r]

Et cela :

Test: Triaffectation([Affectation];[wilaya])=2

Qu'Est-ce que ça donne ?

A+

[Myaccess]

Cela donne un résultat de 0 et -1.

Une autre remarque ! même le filtre classique sur mode de feuil de données ça ne marche pas.

Voir un aperçu sur pièce jointe.

[tee_grandbois]

Bonjour,

j'ai chargé ta base et j'ai constaté que les enregistrements de la table Liste sont tous vides à partir de l'ID 511 jusqu'à la fin (ID 2817).
Et l'origine de ton souci vient de là car tu as déclaré Affectation et Wilaya en String dans ta fonction Triaffectation mais cela renvoie #Erreur dans la requête pour les enregistrements vides et Access ne peut donc pas filtrer.
2 solutions :
- soit enlever les enregistrements vides
- soit, dans la fonction Triaffectation déclarer les variables Affectation et Wilaya en Variant car ce type de données accepte les valeurs vides.

[marot_r]

Bonjour.

Une façon facille de contourner les nuls :

Code :

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

[NomTaTable].[NomTonChamp] & ""

Converti le nul en chaîne vide.

A+

[Myaccess]

Vous avez raison Grandbois, finalement c'étais les vides !!..Je te remercie.

Le code de contournement des vides est intéressant. Ou exactement je dois le mettre ?

[tee_grandbois]

Bonjour,

Le code de contournement des vides est intéressant. Ou exactement je dois le mettre ?

cela s'utilise dans SQL comme ceci :

Code :

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

SELECT [Liste].[Wilaya] & "" AS W_Wilaya, [Liste].[Affectation] & "" AS W_Affectation, ... etc

et aussi directement dans l'interface graphique de création de requêtes.