Re: Fenêtre de recherche | Sujet: Re: Fenêtre de recherche par AngelMJ sur 22/1/2004 15:35:56
Désolé mais c'est moi en anonyme, Internet Explorer a planté
Voici dans un ultime espoir mon code complet :
//On masque certains champs
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
Frm_RechCli.Lb_Resultat..Visible=Vrai
Frm_RechCli.Lb_NbResult..Visible=Vrai
//On regarde d'abord si la zone de saisie n'est pas vide
SI Frm_RechCli.Zs_Client="" ALORS RETOUR
Cléparcours est une chaîne
Cléparcours=HFiltre(CLIENT,"NomClient="+"'Frm_RechCli.Zs_Client"+"'")
SI Cléparcours<>"" ALORS
HLitPremier(CLIENT, Cléparcours)
TANTQUE PAS HEnDehors(CLIENT)
TableAjouteLigne(Frm_RechCli.Tab_ListCLi,CLIENT.NomClient,...
CLIENT.PreClient,CLIENT.TypeClient)
HLitSuivant(CLIENT, Cléparcours)
FIN
FIN
//On affiche le nombre de résultat
Frm_RechCli.Lb_NbResult..Valeur = TableOccurrence(Tab_ListCLi)
TableAffiche(Tab_ListCLi)
Frm_RechCli.Lb_Resultat..Visible=Vrai
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
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|