[AC-2003] Syntaxe dans un Dlookup [Résolu]

[jmde]

Bonjour,

Cette fonction me donne une erreur « incompatibilité de type » sur la ligne Sélection, et je n’arrive pas à trouver la syntaxe exacte.

Code :

1
2
3
Public Function GetMailExp(strIntitule As String, boolSelection As Boolean) As String
 
GetMailExp = DLookup("[Valeur]", "tbl Mail Expéditeurs", "[intitule]='" & strIntitule & "'" And ("Selection") = boolSelection)

Ou se trouve mon erreur ?

De même au début j’avais entouré le champ Selection par [ ] mais j’avais cette erreur
« Nom externe non défini »

Quelles en sont les raisons ?

Merci pour votre aide.

Salutations

[Philippe JOCHMANS]

Bonjour

Plusieurs choses à tester :

Code :

GetMailExp = DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "'" And [Selection] = " & boolSelection & ")

Mettre le nom du domaine entre crochet à cause des espaces, et sortir la variable boolSelection pour l'intégrer par concaténation.

Je pense que cela devrait être mieux.

Sinon un peu de lecture : Les Fonctions de Domaine dans Access

Philippe

[jmde]

Bonsoir,

J’avais déjà essayé cette syntaxe et lu le bon article sur les fonctions de domaine.
Cela ne fonctionne pas, et comme je l’ai écrit sur le message initial

De même au début j’avais entouré le champ Selection par [ ] mais j’avais cette erreur
« Nom externe non défini »

Le curseur se place sur Selection est l’erreur « Nom externe non défini »
s’affiche.

J’appelle la fonction par :

Code :

Forms!frm_EditeM.txtDe = GetMailExp("Email", True)

Les champs de la table sont:
Intitule : texte (sans clé)
Valeur : texte
Selection : Oui/Non

Exemples d'enregistrements:

1er Enrg
Intitule = Email Valeur = aaaa@free.fr Selection = True

2ème Enrg
Intitule = Email Valeur = bbbb@neuf.fr Selection = False

De même par courtoisie pour Jean-Philippe André (jpcheck) je précise que je me suis inspiré
partiellement de son tuto sur l’utilisation possible d’une table de paramètre.

Salutations

[argyronet]

Bonjour,

Que te renvoie l'instruction :

Code :

Debug.Print Nz(DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "'" And [Selection] = " & boolSelection & "), "Pas glop !")

et celle-ci :

Code :

Debug.Print Nz(DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "'" And [Selection] = " & CInt(boolSelection) & "), "Pas glop !")

Argy

[fbtsra]

Bonjour,

Je verrai bien :

Code :

GetMailExp = DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "' And [Selection]='" & boolSelection & "'")

Bcdt

[argyronet]

Envoyé par fbtsra

Je verrai bien :

Code :

...And [Selection]='" & boolSelection & "'")

Avec un champ Selection de type Boolean...
Allons, allons...

[fbtsra]

C'est vrai ... que pensez vous alors de :

Code :

GetMailExp = DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "' And [Selection]=" & boolSelection & "")

Bcdt

[jmde]

Bonsoir argyronet,

Les deux instructions me renvoi cette erreur:

Salutations

[Philippe JOCHMANS]

Bonjour

Ta table tbl Mail Expéditeurs comporte bien un champ Selection ?

Ce champ (s'il existe) est de quel type ?

Philippe

[fbtsra]

Bonjour jmde,

D'un naturel curieux et sans réponse sur le sujet, avez vous pu tester :

Code :

GetMailExp = DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "' And [Selection]=" & boolSelection & "")

car il me semble à mon humble niveau qu'il y a une erreur de syntaxe sur la clause de recherche initiale ...

Merci de votre retour

Bcdt

[jmde]

Bonjour fbtsra,

Toutes mes excuses pour ne pas avoir répondu, ta syntaxe me donne cette erreur :

Erreur d’exécution Opération annulée.

Salutations

[argyronet]

Humm, Je m'en doutais, et c'est pour cela que je t'ai posté cette suggestion.
Dans l'absolu, tu aurais du avoir un "Pas glop !"
Selection, Selection... un mot clé réservé non ?
Et si tu le renommais ce champ avec un nom un peu moins propriétaire, qu'est ce que ça donne ?

Argy

[jmde]

Bonjour Philippe,

Oui le champ selection existe bien.

Salutations

[Kloun]

Bonjour,

On peut commencer le débogage par un

Code :

debug.print "[intitule]='" & strIntitule & "' And [Selection]=" & boolSelection

[fbtsra]

Merci de votre reponse.

Il manque en effet une conversion de donnees car vous appelez la fonction avec False-True

Ajoutez un CInt devant BoolSelection de la commande DLookup

Ca fonctionne sur A2000

Desole de ne pouvoir ecrire le code complet (plus de reseau, envoi par smartphone)

Bcdt

[jmde]

Bonjour et merci à tous,

Ce n’était pas le nom du champ selection la cause du problème.
Il fallait bien un Cint, voici la syntaxe exacte :

Code :

GetMailExp = DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "' And [Selection]=" & CInt(boolSelection) & "")

Par contre pourquoi la syntaxe d’argyronet ne fonctionne pas ?

Code :

Debug.Print Nz(DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "'" And [Selection] = " & CInt(boolSelection) & "), "Pas glop !")

Je mettrais plus tard la mention Résolu.

Salutations

[fbtsra]

Le code :

Code :

Debug.Print Nz(DLookup("[Valeur]", "[tbl Mail Expéditeurs]", "[intitule]='" & strIntitule & "'" And [Selection] = " & CInt(boolSelection) & "), "Pas glop !")

ne fonctionne pas car il conserve l'erreur de syntaxe initiale à savoir pb de concaténation sur les chaines qui commence à "And [Selection] = " qui est en dehors de la chaine.

Bonne continuation.

Bcdt

[argyronet]

Envoyé par jmde

Par contre pourquoi la syntaxe d’argyronet ne fonctionne pas ?

Code :

And [Selection] = " & CInt(boolSelection) & ")

C'est juste un mauvais copié collé et donc de l'inattention de ma part.
il aurait fallu écrire :

Code :

And [Selection] = " & CInt(boolSelection) & "")

ou bien

Code :

And [Selection] = " & CInt(boolSelection))

En revanche, le principe suggestif initial était bon - heureusement pour moi
Bref, n'utilisant jamais de fonction de domaine, je m'accorde le droit d'avoir fait une omission.

Bonne fin de journée.

Argy

[fbtsra]

Je me vois contraint de contredire Argyronet (en toute amitié ...et humilité !) :

Les codes :

Code :

And [Selection] = " & CInt(boolSelection) & "")

et

Code :

And [Selection] = " & CInt(boolSelection))

ne peuvent fonctionner car pb d'intégration à la chaine de recherche. Il faut donc inverser pour que cela fonctionne, à savoir placer "And [Selection]=" dans la chaine et en sortir le critère "CInt(boolSelection)":

Code :

"And [Selection] = " & CInt(boolSelection) & "")

ou

Code :

"And [Selection] = " & CInt(boolSelection))

la faute en fait au

Code :

"'"

qui précède ...

A bientôt,
Bcdt

[argyronet]

Humm, je suis comme la fosse
Que tu écrives :

Code :

DLookup("[MonChampCible]","MaTable1","ChampTexte '"& "ValeurTexte" & "' AND [ChampNumérique]=" & -1 & "")

ou

Code :

DLookup("[MonChampCible]","MaTable1","ChampTexte '"& "ValeurTexte" & "' AND [ChampNumérique]=" & -1)

C'est idem...
Dès qu'il y a un numérique (booléen ou autre) pas besoin de terminateur.
De plus, je n'ai pas mis de caractère 39 dans ma suggestion, j'ai juste copié la formule en apportant le CInt(Bool).

Argy