Discussion :

[benji971]

Bonjour,

Mettons que j'ai une table qui s'appelle toto avec une colonne Var
Je voudrais faire une fonction qui compare 1 par 1 les valeurs textuels de ma colonne Var pour savoir si elles sont contenues dans un champ Var2 dans ma requêtes Titi. Mon champ var2 est de type texte et pourra donner un truc générique comme ça : "*Var*"

Si oui, dans ce cas renvoyer la valeur de ma colonne Var dans ma fonction (ça je pense que je peux me débrouiller)

Est ce possible de le faire en VBA et quel est la méthode qui sera la plus rapide lorsqu'on lancera le traitement dans Access car j'ai environ 1000 lignes dans ma table toto donc ça risque de mouliner sévère j'imagine si on compare les 1000 lignes à chaque ligne de ma requête Titi ? j'ai chercher sur internet mais je ne trouve rien et j'ai peur de partir sur une méthode peu adapté à ce type de traitement.

Ben

[Invité]

Bonjour

Plusieurs solutions, et 1000 lignes c'est rien.

La plus simple en une ligne, la fonction de domaine DLookup (une tuto sur le sujet et de nombreuses discussions sur le forum).
Une simple requête select avec un recordset.

Le DLookup est le plus simple à faire.

Philippe

[benji971]

Merci pour la réponse rapide et efficace

j'ai regarder brièvement la fonction DLookUp et je dois avoir un problème de syntaxe.

Si ma table s'appelle Toto et qu'elle contient juste 1 champ qui liste toutes mes marques : [CODE MARQUE] ;
Elle n'est pas attachée à mon autre table mais elle se trouve dans ma base access actuelle

J'ai ma seconde table Titi qui contient mes articles avec leur désignation et leur code article et un troisième champ dans lequel va se trouver ma fonction vba: [Code article] , [Désignation], [InterroMarques]

Ma fonction:

Code :

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

1
2
3
4
5
6
Public Function InterroMarques(strDesign As Variant) As String
 
InterroMarques = DLookup("[CODE MARQUE]", "toto", _
"'*' & [CODE MARQUE] & '*' = strDesign")
 
End Function

Évidemment la syntaxe n'est pas bonne.
j'ai fais plusieurs tentatives en enlevant ou en remettant les guillemets mais je n'arrive pas à trouver comment faire. et comme Vba me balance une série de message d'erreurs c'est assez désagréable à débugger.

j'appelle ma fonction dans ma requête comme je fais d'habitude: InterroMarques("[titi].[Désignation]")

Mais je dois pas m'y prendre de la bonne manière...
Si quelqu'un pouvait m'aider à corriger la syntaxe ce serait sympa merci.

Ben

[benji971]

j'ai changé mon code car j'ai trouvé plus ou moins la syntaxe mais j'ai toujours le problème du caractère générique qui n'est pas pris en compte.

Ce code marche si ma désignation est égale à mon code marque:

Code :

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

InterroMarques = Nz(DLookup("[CODE MARQUE]", "Union Marques", " '" & StrDesign & "' = [CODE MARQUE] "), 0)

Du coup j'ai essayé çà sans trop de résultats j'ai pas de message d'erreur mais la fonction ne reconnait pas le texte et me met 0 :

Code :

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

InterroMarques = Nz(DLookup("[CODE MARQUE]", "Union Marques", " '" & StrDesign & "' = [CODE MARQUE] & '*' "), 0)

Si quelqu'un a une idée pour l'intégration des caractères génériques je suis preneur car là je bloque.

[madefemere]

Bonjour,

Et comma cela ?

Code :

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

InterroMarques = Nz(DLookup("[CODE MARQUE]", "Union Marques", " [CODE MARQUE] LIKE '*" & StrDesign & "*'"), 0)

Cordialement,

EDIT : Suite à l'observation suivante de Philippe , je corrige le code que j'ai proposé

[Invité]

Bonjour

Lorsque l'on utilise un caractère générique on utilises LIKE et non =.

De plus, tu recherches la valeur de CODE MARQUE dans une table en mettant CODE MARQUE en critère

Le but est de récupérer une valeur en fonction du critère d'une autre, non ?

Philippe