Supprimer fichier lié a une table code

Bonjour,

Je suis bloqué depuis hier sur un problème assez simple mais je ne vois pas comment faire.

J'ai un fichier : Achats ; et dans une fenetre j'ai programmé un combobox pour qu'il me remplis une table (Table_Achats) selon la sélection; j'ai également un bouton supprimer pour supprimé la ligne sélectionné de la table

Mon problème viens de se bouton supprimer, lorsque j'essaye de supprimer une ligne de la table elle ne se supprime pas dans le fichier.

voici le code de mon bouton Supprimer :

Code:

---

1 2 3 4 5

SI OuiNon(0,"Etes-vous sûr de vouloir supprimer cet achat?") =Vrai ALORS TableSupprime(TABLE_Achats,TableSelect(TABLE_Achats)) HSupprime(Achats) TableAffiche(TABLE_Achats,taCourantBandeau)// réaffiche la table. FIN FIN

---

Je pense que je doit compléte la ligne du HSupprime mais je ne vois pas quoi mettre

Cordialement.

Personnellement je préfère me repositionner dans le fichier avant de supprimer un enregistrement

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

// Une ligne est-elle sélectionnée ? SI TableSelect(TABLE_Achats) = -1 ALORS RETOUR   SI OuiNon("Voulez-vous vraiment supprimer cet achat ?") ALORS // supprimer l'enregistrement SI HLitRecherchePremier(Achat,IDAchat,TABLE_Achat.COL_IDAchat) ALORS HSupprime(Achat) TableAffiche(TABLE_Achats,taCourantBandeau)// réaffiche la table. FIN FIN FIN

---

Je pense qu'il faut que tu enlève ton tablesupprime... en supprimant une ligne tu change ta sélection dans le tableau et donc la position de ton curseur bdd...

Merci pour vos reponse

J'i essaye ton code Laurent mais sa s'arette a la ligne 4
Par contre michel c pas con :ccool: , du coup j'ai enlever table supprime et j'ai changer un peu mon code mais j'arrive pas a prendre la valeur de l'idAchat dans la ligne selectionné, du coup sa supprime rien :cry:

voici mon code :

Code:

---

1 2 3 4 5 6

SI OuiNon(0,"Etes-vous sûr de vouloir supprimer cet achat?")=1 ALORS POUR TOUT Achats AVEC IDAchats=FenAchats.COL_IDAchat HSupprime(Achats) TableAffiche(TABLE_Achats,taCourantBandeau)// réaffiche la table. FIN FIN FIN

---

Si cette une fenêtre "développée" via le RAD (ce que je suppose) tu n'a pas besoin de faire ta recherche, le curseur BDD est automatiquement positionné sur la ligne en cours de sélection dans ton tableau...

Code:

---

1 2 3 4 5

SI OuiNon(0,"Etes-vous sûr de vouloir supprimer cet achat?") =Vrai ALORS HSupprime(Achats) TableAffiche(TABLE_Achats,taCourantBandeau)// réaffiche la table. FIN FIN

---

Ça devrait suffire...

Sinon pour connaitre l'ID de la ligne sélectionnée :

Code:

---

1 2	COL_IDAchat[TABLE_Achats]

---

Merci a vous, aprés plusieurs essaie ca marche

Voici le code pour que ca supprime :

Code:

---

1 2 3 4 5 6 7 8 9 10

SI OuiNon(0,"Etes-vous sûr de vouloir supprimer cet achat?")=1 ALORS j est un entier j= COL_IDAchat[TABLE_Achats]   POUR TOUT Achats AVEC IDAchats=j HSupprime(Achats) TableAffiche(TABLE_Achats,taCourantBandeau)// réaffiche la table. FIN   FIN FIN

---

(Je débute dans windev, alors le RAD??)

Citation:

---

Envoyé par kill88ma

Merci a vous, aprés plusieurs essaie ca marche

(Je débute dans windev, alors le RAD??)

---

Justement les "débutants" partent souvent sur la piste du RAD (pour Rapid Application Development) mais je te déconseille de t'y intéresser... c'est une source de mauvaises habitudes !

Bonjour
Une fois que domines Windev, le RAD est très pratique.
Tu te prépares tes propres Patterns avec les boutons et tes codes avec les traductions, et en quelques minutes tu obtiens des fenêtres 100% fonctionnelles à ton goût.
Tu te fais un composant interne avec toutes les fenêtres personnalisées et traduites. Tu le partage avec le GDS et je t'assure que tu gagneras du temps.
Mais... avant, apprends la technique windev.
Bon courage