Re: Fenêtre de recherche | Sujet: Re: Fenêtre de recherche par AngelMJ sur 21/1/2004 14:45:18
Si je me fis au code en y incluant mes propres paramètres, mon tableau se remplit... mais entièrement , c'est à dire qu'il ne tient pas du tout compte de ce qu'il y a de saisie dans ma zone.
Est ce que ma requête est mal construite? Ai-je oublié une ligne de code? Etant donné que je débute sous ce logiciel, j'ai dû mal à trouver mes erreurs
Voici donc le code qui se trouve derrière mon bouton "Rechercher". Il y a également une gestion d'affichage de certains boutons donc ne vous étonnez pas
//On regarde d'abord si la zone de saisie n'est pas vide
SI Frm_RechCli.Zs_Client="" ALORS RETOUR
REQ_TROUVER_CLIENT.paramnomrech=Frm_RechCli.Zs_Client
SI PAS HExécuteRequête(REQ_TROUVER_CLIENT) ALORS RETOUR
//On exécute la requête
HExécuteRequête(REQ_TROUVER_CLIENT)
//On affiche le résultat de la recherche
Frm_RechCli.Lb_Resultat..Visible=Vrai
HLitPremier(REQ_TROUVER_CLIENT)
// affecte ce résultat au résultat
Frm_RechCli.Tab_ListCLi.NomClient=REQ_TROUVER_CLIENT.NomClient
Frm_RechCli.Tab_ListCLi.PreClient=REQ_TROUVER_CLIENT.PreClient
Frm_RechCli.Tab_ListCLi.TypeClient=REQ_TROUVER_CLIENT.TypeClient
TableAffiche(Frm_RechCli.Tab_ListCLi)
SI PAS HExécuteRequête(REQ_TROUVER_CLIENT) ALORS RETOUR
//On affiche le nombre de résultat
elNbLigne est un entier = TableOccurrence(Tab_ListCLi)
Frm_RechCli.Lb_NbResult..Valeur = elNbLigne
Frm_RechCli.Lb_NbResult..Visible=Vrai
//Si il y a des clients on affiche le tableau et les boutons
SI Frm_RechCli.Lb_NbResult..Valeur<>0 ALORS
Frm_RechCli.Bt_Commande..Visible=Vrai
Frm_RechCli.Bt_Facture..Visible=Vrai
Frm_RechCli.Bt_Rdv..Visible=Vrai
Frm_RechCli.Bt_Suivie..Visible=Vrai
Frm_RechCli.Tab_ListCLi..Visible=Vrai
Frm_RechCli.Bt_Enreg..Visible=Faux
SINON
//Si il n'y a aucun client, on propose de saisir un nouveau client
Frm_RechCli.Bt_Enreg..Visible=Vrai
Frm_RechCli.Bt_Commande..Visible=Faux
Frm_RechCli.Bt_Facture..Visible=Faux
Frm_RechCli.Bt_Rdv..Visible=Faux
Frm_RechCli.Bt_Suivie..Visible=Faux
Frm_RechCli.Tab_ListCLi..Visible=Faux
FIN
Merci
Sinon, si cela vient de ma requête, est ce qu'il serait possible de me l'écrire en SQL?
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|