Pb enregistrement contenu listes dér. imbriqu

Bonsoir,
Dans vos tables "TBLWILAYA, TBLMOUGHATAA, TBLCOMMUNE, et TBLECOLE" les noms se trouvent dans la deuxième colonne.
Vous devez donc modifier le numéro de la colonne lié dans chacune des listes déroulantes de votre formulaire; la valeur de la propriété "Colonne lié doit être 2 et non pas 1.

Bonjour Jean Pierre et merci. Effectivement en changeant la colonne liée ce sont bien les noms qui vont s'enregistrer dans la table, mais ça crée un autre problème inattendu : c'est que les listes imbriquées ne fonctionnent alors plus : lorsque je sélectionne une WILAYA dans le 1° ccontrôle, le contrôle MOUGHATA suivant n'affiche plus les moughataa correspoindantes de la wilaya et ainsi dessuite. Que devrais-je faire d'après vous ? ca ne doit pas être bien complexe parce que ça relmarche dès qu'on revient à colonne liée 1. Merci de vos conseils, cordialement.

Bonjour Alain,
Si vos listes déroulantes sont renseignées par des macros il faut contrôler que le code travail avec les valeurs correctes.

Re bonjour Jean Pierre, comme je suis nul, et que j'ai adapté péniblement ce code à partir d'un exemple trouvé sur un forum, pouvez-vous y jeter un oeil et me dire pour quoi ça ne marche plus en ayant remplacé la colonne liée1 par 2, ce qui effectivement permet d'enregistrer les noms. Le dernier code listwilaya (régions) "gère" les moughatta les sélectionne, à partir de la simple liste déroulante des wilayas cliquées, le second en remontants lst moughataa(départements) , "gère" les communes en sélectionnant celles qui apparatiennent à la moughata cliquée , et le 3° ci-dessous lstcommune "gère" les écoles sélectionnées "de la même manière. Le petit code lstECOLE du milieu fait apparaître les codes administratifs sur le formulaire en même temps que l'école (c'est un pro de passage qui me l'a fait) Merci, cordialement.

Private Sub lstCOMMUNE_AfterUpdate()
Dim lngIDCOM As Long
Dim SQL As String

'' Vérifie que l'on a cliqué sur une COMMUNE pour éviter le NULL
If Not IsNumeric(Me!lstCOMMUNE) Then Exit Sub
'' Affecte la valeur de IDCOMMUNE à la variable lngIDCOM
lngIDCOM = Me!lstCOMMUNE
'' Construit la chaîne SQL avec la catégorie concernée
SQL = "SELECT IDECOLE, ECOLE, IDCOMMUNE FROM TBLECOLE WHERE IDCOMMUNE =" & lngIDCOM & " ORDER BY ECOLE"
'' Affecte la chaîne SQL à la liste des ECOLE
lstECOLE.RowSource = SQL
'' Déverrouille la liste des ECOLE
lstECOLE.Enabled = True
'' Donne le focus la liste des ECOLE
lstECOLE.SetFocus
'' On ne peut pas dérouler une la liste
End Sub

Private Sub lstECOLE_Change()
lstCode.Value = DLookup("[CODE]", "TBLECOLE", "[IDECOLE]=lstEcole.value")
End Sub

Private Sub lstMOUGHATAA_AfterUpdate()
Dim lngIDMOU As Long
Dim SQL As String

'' Vérifie que l'on a cliqué sur une MOUGHATAA pour éviter le NULL
If Not IsNumeric(Me!lstMOUGHATAA) Then Exit Sub
'' Affecte la valeur de IDMOUGHATAA à la variable lngIDMOU
lngIDMOU = Me!lstMOUGHATAA
'' Construit la chaîne SQL avec la catégorie concernée
SQL = "SELECT IDCOMMUNE, COMMUNE, IDMOUGHATAA FROM TBLCOMMUNE WHERE IDMOUGHATAA =" & lngIDMOU & " ORDER BY COMMUNE"
'' Affecte la chaîne SQL à la liste des COMMUNE
lstCOMMUNE.RowSource = SQL
'' Déverrouille la liste des COMMUNE
lstCOMMUNE.Enabled = True
'' Donne le focus la liste des COMMUNE
lstCOMMUNE.SetFocus

End Sub
Private Sub lstWILAYA_AfterUpdate()
Dim lngIDWIL As Long
Dim SQL As String

'' Vérifie que l'on a cliqué sur une WILAYA pour éviter le NULL
If Not IsNumeric(Me!lstWILAYA) Then Exit Sub
'' Affecte la valeur de IDWILAYA à la variable lngIDWIL
lngIDWIL = Me!lstWILAYA
'' Construit la chaîne SQL avec la catégorie concernée
SQL = "SELECT IDMOUGHATAA, MOUGHATAA, IDWILAYA FROM TBLMOUGHATAA WHERE IDWILAYA =" & lngIDWIL & " ORDER BY MOUGHATAA"
'' Affecte la chaîne SQL à la liste des MOUGHATAA
lstMOUGHATAA.RowSource = SQL
'' Déverrouille la liste des MOUGHATAA
lstMOUGHATAA.Enabled = True
'' Donne le focus la liste des MOUGHATAA
lstMOUGHATAA.SetFocus
'' On ne peut pas dérouler une la liste

End Sub

Bonsoir Alain,
Merci pour l'envoi de la macro. Je constate qu'elles sont basées sur le numéro d'identification de chacune des tables et qu'il n'est pas possible de les modifier sans aussi modifier la base de travail.
N'ayant pas les tables et formulaire à disposition pour contrôler exactement la configuration utilisée, je ne peux rien faire de positif. Il vous faut donc remettre la valeur de colonne liée sur 1 et vous retrouver les valeurs numériques dans la table.

Bonjour Jean Pierre voici le lien de ma base complète si vous souhaitez la regarder, et m'apoporter d'éventuelles solutions. Merci encore.
https://www.cjoint.com/?gglagDseaV

Bonjour Alain,
Il m’est impossible de lire un dossier avec l’extension *.rar. Donc je ne peux pas consulter votre base de données.
Toutefois j’ai avalisée vos macros et selon le code utilisé j’en déduis que la base contient les tables suivantes :
TBLECOLE avec liaison IDCOMMUNE
TBLCOMMUNE avec liaison IDMOUGHATAA
TBLMOUGHATAA avec liaison IDWILAYA
et probablement une table de départ qui est TBLWILAYA.
Dans se sens je vous propose de faire ce qui suit :
1.- Ouvrir la table TBLECOLE en mode création
2.- Dans la colonne Nom du champ, sélectionner IDCOMMUNE
3.- Dans propriétés du champ, clic sur l’onglet Liste de choix
4.- Vous devez avoir sous Afficher le contrôle : Zone de liste déroulante –
5.- Sous Colonne lié vous entrez la valeur 2
6.- Enregistrer la modification et fermer la table.
7.- Vous recommencez la procédure pour les tables TBLCOMMUNE avec le champ IDMOUGHATAA et TBLMOUGHATAA avec le champ IDWILAYA

Dernière opération que vous connaissez, modifier le numéro de la colonne lié sur 2 pour les 4 contrôles de liste déroulante du formulaire.

Bon travail.

Bonjour Alain,
J’ai oublié qu’il faut encore modifier le petit code lstECOLE
Le voici corrigé :
Private Sub lstECOLE_Change()
lstCode.Value = DLookup("[CODE]", "TBLECOLE", "[ECOLE]=lstEcole.value")
End Sub

Bonjour Alain,
Merci pour vos informations.
Je viens de trouver, en consultant votre base du 8 mai 2008, que les tables ("TBLWILAYA, TBLMOUGHATAA, TBLCOMMUNE, et TBLECOLE") ont une clef primaire et de ce fait les macros servant à renseigner les listes déroulantes fonctionnent sur la base de cette clef primaire. Dans ce cas ma proposition n’est pas valable est doit être abandonnée.

Pour l’instant vous devez vous satisfaire avec le n° d’identification dans votre table principale ce qui ne gène en rien car dans les formulaires et les états que vous utiliserez pour les analyses, statistiques, impressions partielles, etc. vous aurez toujours les valeurs sous formes de texte.

Concernant le « WINVAR » je vais regarder comment faire car j’utilise le ZIP. Au fait si vous avez le Windows XP alors vous pouvez utiliser l’utilitaire de compression « Dossier compressé » qui est intégré.

Sur CCM il n’y a pas la possibilité de le faire par fichier attaché, il faut passer par un intermédiaire (exemple. www.cijoint.fr, www.cjoint.com , etc.) ou alors en direct.

Bonne fin de semaine.

Bonjour,
Je vous propose de faire comme suit :
Dans le formulaire vous mettez la colonne liée sur 2 pour les 4 listes déroulantes.
Ensuite vous remplacez les macros correspondantes par celles ci-dessous :

Private Sub lstWILAYA_AfterUpdate()
Dim idwil
Dim SQL As String

idwil = DLookup("[IDWILAYA]", "TBLWILAYA", "[WILAYA]=lstWILAYA")
If IsNull(idwil) Then Exit Sub
SQL = "SELECT IDMOUGHATAA, MOUGHATAA, IDWILAYA FROM TBLMOUGHATAA WHERE IDWILAYA =" & idwil & " ORDER BY MOUGHATAA"
lstMOUGHATAA.RowSource = SQL
lstMOUGHATAA.SetFocus
End Sub

Private Sub lstMOUGHATAA_AfterUpdate()
Dim idmou
Dim SQL As String

idmou = DLookup("[IDMOUGHATAA]", "TBLMOUGHATAA", "[MOUGHATAA]=lstMOUGHATAA")
If IsNull(idmou) Then Exit Sub
SQL = "SELECT IDCOMMUNE, COMMUNE, IDMOUGHATAA FROM TBLCOMMUNE WHERE IDMOUGHATAA =" & idmou & " ORDER BY COMMUNE"
lstCOMMUNE.RowSource = SQL
lstCOMMUNE.SetFocus
End Sub

Private Sub lstCOMMUNE_AfterUpdate()
Dim idcom
Dim SQL As String

idcom = DLookup("[IDCOMMUNE]", "TBLCOMMUNE", "[COMMUNE]=lstCOMMUNE")
If IsNull(idmou) Then Exit Sub
SQL = "SELECT IDECOLE, ECOLE, IDCOMMUNE FROM TBLECOLE WHERE IDCOMMUNE =" & idcom & " ORDER BY ECOLE"
lstECOLE.RowSource = SQL
lstECOLE.SetFocus
End Sub

Private Sub lstECOLE_Change()
lstCode.Value = DLookup("[CODE]", "TBLECOLE", "[ECOLE]=lstEcole.value")
End Sub

Bon dimanche.

Bonjour,
Merci de votre réponse et de constater que cela fonctionne.
Pour la suite, c'est impossible de comprendre vos explications. Avez-vous fait un plan de travail pour votre BD !
Voir un schéma explicatif dont voici un exemple : http://www.cijoint.fr/cjlink.php?file=cj200806/cijTmjnRFh.ppt
La BD réalisée qui correspond au schéma est disponible comme exemple, sur demande.

Bonsoir,
Merci pour l'information.
Quand je vous demande, avez-vous fait un plan de travail pour votre BD, cela est valable pour toute la bd et non pour cette partie intermédiaire car justement quelque chose ne marche pas.
Alors, encore une fois avez-vous un plan ou une description sommaire ?

Bonsoir,
Voila ce à quoi je fais allusion, c'est un exemple succinct : https://www.cjoint.com/?gixxkga8mW

Bonjour Alain,
Si joint la BD réalisée sur la base de vos données mais avec ma conception.
J'espère que cela vous aidera dans votre travail.
Voir sous : http://www.cijoint.fr/cjlink.php?file=cj200806/cijt3HEKBn.zip
Bonne découverte.

Bonjouir Alain,
Mentionnez les 5 identifiants de l'école, merci.

Je ne saisis pas trop ce que vous voulez que je vous dise Jean Pierre, les 5 identifiants sont les 5 contrôles WILAYA, MOUGHATAA, COMMUNE, ECOLE, CODE qui figurent en 1° page IDENTIFICATION DE L'ECOLE. Je les rentre donc, et c'est en cliquant sur le bouton POURSUIVRE qu'apparaît ce message d'erreur. Par contre, le bouton modification données exisrantes, ouvre sur un formulaire avec onglets remarquable que je n'aurais jamais songé à inventer (voir la lourdeur dumien). Cordialement.

Bonsoir Alain,
Je vous demande les 5 noms que vous avez choisis, car si la faute est sur la ligne : Form_F_SaisieAOnglet![chxWilaya] = Me.identWilaya ,. il est certain qu'il s'agit d'une donnée Wilaya probablement.

La faute se produit-elle sur ma BD ou l'avez-vous modifié ! car tout est correct chez moi.

Bonsoir Alain,
Je viens à l'instant de finir les tests sur ma BD et tout fonctionne parfaitement.
Qu'elle est votre version Access !

Si vous entrer ceci : ADRAR, Aoujeft, Aoujeft, AOUJEFT -----> que se passe-t-il ?

J'attends de vos nouvelles et si vous le désirez il est possible de se contacter directement, se sera plus rapide.
--

Salutations.
Jean-Pierre

C'est sympa, mais je suis confus de voir que vous vous donnez tout ce mal et que je ne peux pas vous aider par incompétence sur ACCESS. Mon email est alainmante@yahoo.fr. Cordialement.