Discussion :

[lhouknifis]

Bonjour ,
Toujours dans le but de réaliser une application pour les association de l'eau potable.
https://www.developpez.net/forums/d1...ght=LHOUKNIFIS
et
https://www.developpez.net/forums/d1...ght=LHOUKNIFIS

j'ai deux tables liées TBLPolice et TBLReleve avec la cle IdPolice,
J'ai un formulaire contenant une liste déroulante[IdPolice] et un sous formulaire affichant les relevés selon le choix effectué dans la liste.
Ce que je voudrait faire :
- afficher juste un seul enregistrement que je modifie et enregistre chaque fois ou j'ouvre le formulaire.
- je souhaiterai que le champ [NouvelIndex] de l'enregistrement précédent prenne la valeur du champs [AncienIndex] du nouvel enregistrement.
j’espère avoir été clair.
Merci.

[Jeannot45]

Pour que les données correspondantes à l'IdPolice choisi s'affiche dans le sous formulaire, il te suffit de paramétrer les champs Père et Fils du sous Formulaire.
Pour mettre à jour les champs index, il te faudra passer par du Vba. Ainsi sur l'événement Après Mise à jour du nouvel index, il te faudra programmer une procédure qui génére automatiquement un nouvel enregistrement permettant de stocker le nouvel index dans le champ Ancien index du nouvel enregistrement.

Bonne continuation

[lhouknifis]

Pour que les données correspondantes à l'IdPolice choisi s'affiche dans le sous formulaire, il te suffit de paramétrer les champs Père et Fils du sous Formulaire.

Concernant ceci c'est déja fait et ça marche, il affiche tout les enregistrement.

Pour mettre à jour les champs index, il te faudra passer par du Vba. Ainsi sur l'événement Après Mise à jour du nouvel index, il te faudra programmer une procédure qui génére automatiquement un nouvel enregistrement permettant de stocker le nouvel index dans le champ Ancien index du nouvel enregistrement.

C'est le code vba que je cherche comment faire?

[Jeannot45]

Je te joins une base de données à partir de laquelle tu pourras t'inspirer pour ton problème.

Elle contient
- deux tables : T_Clients et T_Releves
- Un formulaire indépendant (F_SaisieIndex) qui affiche une liste déroulante nommée (cboClients) et qui affiche la liste des clients
- Un sous-formulaire (SF_Index) qui permet de saisir les index de consommation du client

Les caractéristiques de ce sous-formulaire :
- Source : une requete basée sur la table T_Releves avec un tri décroissant sur le champ "AncienIndex" (de façon à avoir toujours le dernier enregistrement en première position)
- Lien champs Père et Fils (Père : cboClient / Fils : CodeClient
- Entrée des données : Non (En effet, les ajout sont faits par programmation après la saisie du nouvel index

Fonctionnement : Après avoir choisi un client, le sous formulaire se met à jour et tu peux saisir le nouvel index. Après validation, le nouvel enregistrement s'affiche avec le nouvel index saisi précédemment affiché dans le champ "Ancien Index"

Bon continuation

[lhouknifis]

Merci pour ton aide,
Ce que tu as dit est correcte, et je l'ai déjà réalisé, mes deux questions reste toujours sans réponse:
1.comment limiter les enregistrements affichés dans le sous formulaire à deux seulement le dernier et le nouvel vide.
2.Sinon, afficher un seul nouvel vide,dont la valeur du champs [NouvelIndex] du dernier enregistrement sera dans le champs [AncienIndex] du nouvel enregistrement.
et pour éclaircir plus le sujet voici une base de données exemple; dans cette BD, il y a juste un relevé pour chaque police, pour la prochaine saisie des relevés je veux que le sous formulaire m'affiche le dernier, même s'il y a autant des enregistrements.

[Jeannot45]

comment limiter les enregistrements affichés dans le sous formulaire à deux seulement le dernier et le nouvel vide

Le plus simplement du monde en mettant un critère sur la requête source de ton sous-formulaire : NouvelIndex = 0
Exemple :

Code SQL :

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

1
2
3
SELECT T_Releves.CodeClient, T_Releves.AncienIndex, T_Releves.NouvelIndex
FROM T_Releves
WHERE (((T_Releves.NouvelIndex)=0))

Remarque : la requête que j'ai ci-dessus correspond à la source du sous-formulaire de la base que je t'ai envoyée précédemment

Bonne continuation

[lhouknifis]

Rebonjour,
merci pour ta réponse,
Désolé de ne pas avoir envoyé la BD exemple dans la précedente réponse, je reçois cet erreur:

A vrais dire, je ne sais pas ou mettre le code sql que tu m'a envoyé.

[Jeannot45]

Pour pouvoir joindre ta BD, il faut la compresser soit fichier .rar, soit fichier .zip
Pour compresser ta BD, tu vas dans l’Explorateur, tu fais un clic droit sur le nom de ton fichier et tu choisis "Envoyer vers", tu trouveras alors la possibilité de faire un fichier compressé.

[lhouknifis]

Rebonjour
Désolé pour ce retard,
Voici le fichier zippe et merci pour ton astuce,
pour bien expliquer le problème et selon cet exemple que j'ai envoyé, je veux ouvrir cet unique enregistrement et le modifier et après l'enregistrer.(L'historique n'est pas important ici).
sauf que chaque fois que je l’édit le champs [NouvelIndex] prend la valeur 0, et le champs [AncienIndex] prend la valeur du precedant enregistrement [NouvelIndex]
J'espère que je sois clair
et merci

[Jeannot45]

Je n'ai malheureusement pas réussi à ouvrir ta base. Cependant, j'ai compris ce que tu voulais dire.
En fait, le nouvel enregistrement disparaissait dès la validation du nouvel Index. Normal, puisqu'il y avait une mise à jour du sous formulaire programmé dans la procédure par l'instruction :

Code :

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

Me.Requery

Je te joins ma base exemple avec la correction, tu pourras ainsi voir la procédure complète et voir l& source du sous-formulaire.

Bonne continuation

[lhouknifis]

Je n'ai malheureusement pas réussi à ouvrir ta base.

Peut être c'est le problème de version si tu utilises une autre version que la mienne en voici d'autres espérant que ça marche:
2000.rar
2002_2003.rar

Cependant j'ai compris ce que tu voulais dire.

Bravo! c'est ce que je veux exactement.

Je te joins ma base exemple avec la correction, tu pourras ainsi voir la procédure complète et voir l& source du sous-formulaire.

Malheureusement j'ai cette erreur.

[Jeannot45]

Peut être c'est le problème de version si tu utilises une autre version que la mienne en voici d'autres espérant que ça marche:

Ce n'est malheureusement pas un problème de version car j'utilise la même que la tienne. Voici ci-dessous ce que j'obtiens lors du décompactage du fichier :


Cependant, j'ai regardé ma base et je n'ai pas rencontré le problème que tu soulèves.
J'ai ajouté une procédure qui permet d'ajouter un nouveau client à la liste (Ce qui initialise en même temps un enregistrement à 0 dans la table T_Releves)

[lhouknifis]

Ce n'est malheureusement pas un problème de version car j'utilise la même que la tienne. Voici ci-dessous ce que j'obtiens lors du décompactage du fichier

Est ce tu essaye(bouton droit)----->extraire ici, quelquefois ça marche!!

Cependant, j'ai regardé ma base et je n'ai pas rencontré le problème que tu soulèves.
J'ai ajouté une procédure qui permet d'ajouter un nouveau client à la liste (Ce qui initialise en même temps un enregistrement à 0 dans la table T_Releves)

Cette fois ça marche nickel!!!
Merci infiniment, Voilà ce problème est résolu.
Comment? J'ai vécu déjà cette situation, mais j'ai oublié, la plupart des problème vient de la :

[Jeannot45]

Merci infiniment, Voilà ce problème est résolu.

Alors, maintenant, il faut clôturer la discussion en cliquant sur le bouton placé sous le dernier post de ton fil.

Merci