[RÉSOLU]Incrémentation d'un numéro dans une table ?

[Clovis47]

Bonjour,
j'aimerais savoir comment incrémenter un chiffre dans une table !
je suis sous la version 10
je m'explique...
Mon projet gère la liste de mes films sur Dvd
à chaque insertion d'un Dvd, le numéro change.... en lisant le dernier numéro dans ma table_films, colonne numéro
exemple :
j'insère le Dvd numéro 1, j'aimerais que dans la table_film, la colonne numéro se mette à 1
lors de l'insertion du Dvd suivant,en lisant le dernier numéro dans cette table, que la colonne numéro se mette à 2
et ainsi de suite ! chaque fois que je cliquerais sur le bouton " recherche"
tout en sachant qu'un Dvd comporte 5 à films
cela est il possible ?
merci de votre aide

le code utilisé pour la recherche sur le Dvd est le suivant :

sNomFichier est une chaîne
SI OuiNon(" Vous allez ajouter des films sans le genre... ",...
+ " Vous devrez le faire manuellement !") = Oui ALORS
nNbrFichiers est un entier = fListeFichier("E:\*.AVI","ListeFichiers")
//Appel de la procédure
ListeFichiers(0,sNomFichier)
FIN



PROCEDURE ListeFichiers(Null,gsNomFichier)
HLitRecherchePremier(Films,Titre,gsNomFichier)
SI gsNomFichier <> "" ALORS
SI PAS HTrouve(Films) = Vrai ALORS
Films.Titre = gsNomFichier
Films.Genre = ""
Films.Num_Cd = 1
HAjoute(Films)
TableTrie(Table,"Num_Cd")
SINON
Erreur(" Ce Film exisre déjà dans votre Liste et ne peut être ajouté ! ")
FIN
FIN
TableAffiche(Table)

[Samifred]

Bonjour,

Pour savoir si un DVD (ou autre) à été insérer dans un lecteur, il faut faire appel à un Timer qui va lancer chaque seconde une procédure et afficher dans une liste les différents disques.

Timer("MesDisques",100,1)


PROCEDURE MesDisques()
// Quel disque est prêt ??
ListeSupprimeTout(Liste1)
i est un entier
POUR i = 65 A 90
SI fDisquePrêt(Caract(i)) = Vrai ALORS ListeAjoute(Liste1,Caract(i)+":\ " + fDisqueInfo(Caract(i),fdNomVolume))
FIN


En général le disque inséré est le dernier de la liste. A ce moment là il est facile d'incrémenter une variable globale au projet lorsque la liste à changé d'occurrence.
Bien sûr ce n'est pas instantané, selon le lecteur il faudra une voir quelques secondes de patience.

[Clovis47]

Bonjour SamiFred et merci de ton aide...
je l'applique de suite
bonne journée
cordialement