Discussion :

[joebar0212]

Bonjour

J'ai un soucis avec une recherche, j'ai une table Client dont je voudrais rechercher un nom par exemple, mais il ne m'affiche pas la recherche ans mon formulaire, j'ai le même type de recherche dans une autre base qui fonctionne, c'est ça que je ne comprend pas. Voici ma méthode:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
$Valeur:=Demander("Nom:?")
Si (ok=1)
	$Valeur:=$Valeur+"@"
	TABLE PAR DEFAUT([Client])
	FORMULAIRE SORTIE([Client];"Sortie")
	FORMULAIRE ENTREE([Client];"Client")
	CHERCHER([Client];[Client]Nom=$Valeur)
 
	MODIFIER SELECTION(*)
 
Fin de si

[Denis Jager]

Bonjour,

par principe évite la commande TABLE PAR DEFAUT et tout ce qui en découle, ce sera beaucoup plus simple à lire et évitera de nombreux problèmes quand ta base évolue. Ça ne demande pas beaucoup plus de temps à écrire et tu en gagneras beaucoup en évitant les tracas ultérieurs.

Ton code semble correct, tout dépend aussi du moment où il est exécuté ?

Si tu enlèves TABLE PAR DEFAUT, ça te donne ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
$Valeur:=Demander("Nom:?")
Si (ok=1)
	$Valeur:=$Valeur+"@"
	FORMULAIRE SORTIE([Client];"Sortie")
	FORMULAIRE ENTREE([Client];"Client")
	CHERCHER([Client];[Client]Nom=$Valeur)
	MODIFIER SELECTION([Client];*)
Fin de si

Je ne sais pas quel usage tu en fais. En général, j'évite de coupler les recherches aux affichages. Si par exemple tu affiches une liste, tu peux écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
	FORMULAIRE SORTIE([Client];"Sortie")
	FORMULAIRE ENTREE([Client];"Client")
	TOUT SELECTIONNER([Client])
	MODIFIER SELECTION([Client];*)

à ce stade tu as la liste de tous tes clients affichés. Ensuite, tu mets des boutons de recherche dans l'en-tête ou le pied de formulaire et chaque bouton n'a comme code que quelques lignes qui ressemblent à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
$Valeur:=Demander("Nom ?")
Si (ok=1)
	$Valeur:=$Valeur+"@"
	CHERCHER([Client];[Client]Nom=$Valeur)
Fin de si

Dans ce cas tu n'as pas besoin de réutiliser les commandes d'affichage de la sélection, 4D le fait tout seul suite à une recherche.

Bon courage