//Si il y a des enregistrements affichés dans la table
Si REQ_Fourn..Occurrence = 0 Alors Retour
//Si une ligne de la table est sélectionnée
Si TableSelect
//On demande confirmation
SI OuiNon("Confirmez-vous la suppression de cette fiche") ALORS
//On positionne le curseur fichier sur le bonne enregistrement en fonction de la clé unique dont la valeur est stockée dans REQ_Fourn.FOCLEUNIK
Si HLitRecherche(FOURNISSEUR, FOCLEUNIK, REQ_Fourn.FOCLEUNIK) Alors
HSupprime(FOURNISSEUR)
Fin
Rs est une source de donnees
Sql est une chaine
//Création de la requête
Sql =
[
SELECT FOCLEUNIK AS FOCLEUNIK,
FONOM AS Nom,
ADR1 AS Adresse,
ADR2 AS [Complément],
CP AS [Code Postal],
VILLE AS VILLE
FROM FOURNISSEUR
]
//Ici on ajoute la condition
Sql += " WHERE FONOM = '" + saisieFournisseur + "'"
//Ici on peut ajouter un tri
Sql += " ORDER BY FONOM"
//Exécution de la requête
SI Pas HExecuteRequeteSql(Rs,HRequeteDefaut,Sql) ALors
Erreur(HErreurInfo())
Retour
Fin
//On Vide la table par sécurité
TableSupprimeTout(REQ_Fourn)
//On rempli la table
ConstruitTableFichier(REQ_Fourn,Rs,taAvecIDAuto+taRemplirTable)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=3848&post_id=16178