Re: Recherche incrémentale

Posté par Anonyme le 12/1/2005 11:51:18

Bonjour André,

Votre code ne saurait pas fonctionner correctement

-- Entrée de sCodeFilm
>Table_Films..RubriqueParcourue = ""
>Table_Films..RubriqueParcourue = Films.TitreFilm

>Table_Films..Filtre = ""
>Table_Films..Filtre = sTitreFilm
>TableAffiche(Table_Films,taCourantPremier)

-- A chaque modification de sTitreFilm
>Table_Films..Filtre = ""
>Table_Films..Filtre = sTitreFilm
>TableAffiche(Table_Films,taCourantPremier)

Il faut bien respecter l'ordre des codes

L'aide en ligne précise bien
******************************************************
Modifier les propriétés liées au parcours d'une table, liste ou combo fichier

Pour modifier les propriétés RubriqueParcourue, Filtre et FichierParcouru, il est conseillé de :

1. Stopper le parcours en affectant une chaîne vide ("") à la propriété FichierParcouru.

2. Modifier les propriétés nécessaires.

3. Relancer le parcours avec la propriété FichierParcouru.

Cette méthode permet d'optimiser les modifications réalisées. En effet, chacune des modifications effectuée individuellement relance le parcours. Ces opérations peuvent vite devenir lentes sur des fichiers de taille importante.
****************************************************

Vous devriez revoir et suivre correctement le code que je vous ai indiqué et qui fonctionne et de surcroit tres rapide

Rappel :

en premier lieu

Table_Films..FichierParcouru = ""
Table_Films..RubriqueParcourue = "NomRubrique"
donc "TitreFilm"
Table_Film.. FichierParcouru = "NomFichier"
donc "Film"

Il faut reprendre respectivement dans l'ordre
le nom de la rubrique de parcours puis le nom du fichier

Supprimer > TableAffiche(Table_Films,taCourantPremier)

Le parcours de la table est relancé par
Table_Films..FichierParcouru = "Film"

@+
Albert