Discussion :

[Deverry57]

Bonjour,

Je dois modifier une appli en access 2000 et dans un des formulaires j'ai :
- une zone de liste modifiable contenant une table des départements [DEPARTEMENTS] qui met à jour un champ [SEL_DEP_NUM] d'une table [SEL_DEP] avec le code suivant :
' ouverture de la table SEL_DEP
Dim cnn4 As ADODB.Connection
Dim rstSelDep As ADODB.Recordset
Set cnn4 = New ADODB.Connection
cnn4.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn4.Open "c:\mabase\Ex_mabase.mdb", "Admin", ""
Set rstSelDep = New ADODB.Recordset
rstSelDep.CursorType = adOpenKeyset
rstSelDep.LockType = adLockOptimistic
rstSelDep.Open "SELECT * FROM SEL_DEP WHERE SEL_DEP_NUM <> '000'", cnn4, , , adCmdText

'Mise à jour des champs du recorset
rstSelDep!SEL_DEP_NUM = Me![frmGRILLE_DPT]
rstSelDep.Update
cnn4.Close


- une zone de liste modifiable contenant une table des communes [COMMUNE_INSEE_COM] de plusieurs départements avec dans l'onglet données et pour la valeur contenu la requête suivante :
SELECT COMMUNE_INSEE_COM.COMMUNE_LIB, COMMUNE_INSEE_COM.COMMUNE_INSEE, COMMUNE_INSEE_COM.COMMUNE_DPT,
FROM COMMUNE_INSEE_COM INNER JOIN SEL_DEP ON COMMUNE_INSEE_COM.COMMUNE_DPT = SEL_DEP.SEL_DEP_NUM
ORDER BY COMMUNE_INSEE_COM.COMMUNE_INSEE;

A la première utilisation le code fonctionne bien et j'obtiens une liste limitée aux communes du département sélectionné.

Par contre lorsque je modifie le département dans la liste [DEPARTEMENTS], la table SEL_DEP est bien mise à jour mais la liste des communes ne change pas.

Auriez-vous une idée de ce qui ne va pas ?
Merci par avance de votre aide.

[Manhexter]

Salutations,

L'ajout d'un petit Requery (touche pour plus de détails) sur ton objet liste déroulante que tu places à la fin du code éxécuté lors du choix du département résoudrait-il ce problème ?

Cordialement,

[Deverry57]

C'était exactement ça, merci mille fois pour l'aide et la rapidité.

[Manhexter]

Mais de rien.

N.B : La prochaine fois que tu postes, penses aux balises codes (symbole #) cela rendra ton code plus lisible que de le mettre entièrement en bleu