Discussion :

[kill88ma]

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 :

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

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.

[laurent30s]

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

Exemple

Code :

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

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

[michel.souris]

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...

[kill88ma]

Merci pour vos reponse

J'i essaye ton code Laurent mais sa s'arette a la ligne 4
Par contre michel c pas con , 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

voici mon code :

Code :

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

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

[michel.souris]

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 :

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

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 :

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

1
2
 
COL_IDAchat[TABLE_Achats]

[kill88ma]

Merci a vous, aprés plusieurs essaie ca marche

Voici le code pour que ca supprime :

Code :

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

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??)