1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
----- A chaque modification de ta colonne Interrupteur supprimer -------
// Affectation de l'ID de la ligne correspondante à la sélection au champ de saisie 'SAI_Param'
SAI_Param = COL_Colonne_ID..Valeur
----- Clic de BTN_Supprimer -----------
// Interaction avec l'utilisateur lors d'une sélection d'une ligne
POUR TOUTE LIGNE DE TABLE_TATABLE
SI COL_Supprimer..Valeur = 1 ALORS
// Possibilité de supprimer la ligne sélectionné ou de revenir
TitreSuivant("Confirmation de suppression.....")
SI OuiNon(1, "Voulez-vous supprimer la ligne sélectionnée de la base de données ?") = Vrai ALORS
// Recherche de la ligne sans la bdd
HLitRecherche(nom_fichier,ID_fichier,COL_Colonne_ID)
HSupprime(nom_fichier)
Info("La ligne a bien été supprimée")
COL_Supprimer..Valeur = 0
SINON
COL_Supprimer..Valeur = 0
SAI_Param..Valeur = ""
RETOUR
FIN
FIN
FIN |