Re: Fenêtre de recherche
Posté par AngelMJ le 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
Merci
Sinon, si cela vient de ma requête, est ce qu'il serait possible de me l'écrire en SQL?
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?
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=506&post_id=1765