Bonjour,
LOCAL
SrcReq est une source de donnée
sReqSQL est une chaîne
// [< Code de la requête >]
sReqSQL = [
SELECT Contact.IDContact, Contact.Nom, Contact.Adresse, Contact.CodePostal, Contact.Ville,Contact.NomContact, Contact.Activité
FROM Contact
WHERE Contact.Nom LIKE '%1%'
AND Contact.Adresse LIKE '%%%2%%'
AND Contact.CodePostal LIKE '%3%%'
AND Contact.Ville LIKE '%%%4%%'
AND Contact.Activité LIKE '%%%5%%'
AND Contact.NomContact LIKE '%%%6%%'
ORDER by Nom Asc
]
// [< Construire requêtes >]
sReqSQL = ChaîneConstruit(sReqSQL, RNom, RAdresse, RCpostal, RVille, RActivité, RContact)
SI PAS HExécuteRequêteSQL(SrcReq, sReqSQL) ALORS
Ouvre(MsgBox, " Requête", ">>> Erreur d’initialisation de la requête"+RC+HErreurInfo(), 2)
RETOUR
FIN
NbEnreg = HNbEnr(SrcReq)
SI NbEnreg > 0 ALORS
TableRecherche..FichierParcouru = "SrcReq"
TableAffiche(TableRecherche, taDébut)
EcranPremier(TableRecherche)
SINON
Ouvre(MsgBox, " Recherche", ">>> Aucun enregistrement pour cette sélection ...", 1, 1, 280, 225)
HAnnuleDéclaration(SrcReq)
ExécuteTraitement(BTAnnulCritere,trtClic)
FIN
Les différents critères sont récupérer dans des champs de saisies dont il faut cocher dans la description < NULL si vide >
>Dans mes requêtes access, je pouvais dire que je voulais récupérer le nom du client, son >prénom et me renvoyer une expression du type nomcomplet: nom & " " & prénom
Dans le code ci dessus la récupération s'affiche dans une table
dans votre cas :
sValRetour est une chaine
sValRetour = SrcReq.Nom+" "+SrcReq.Prénom
ou
sValRetour = ChaineConstruit("%1 %2", SrcReq.Nom, SrcReq.Prénom)
RENVOYER sValRetour
J'espère avoir pu un peu vous éclairer
Cordialement
Albert |