Discussion :

[riomois85]

Bonjour à tous,

J'ai, dans ma base Access, un formulaire principal avec un sous-formulaire.
J'ai créé une liste déroulante qui permet à l'utilisateur de changer d'enregistrement.
A l'ouverture du form, j'initialise ma liste avec:

Code :

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

Me![Modifiable30] = Me![ID_EXP]

J'ai aussi mis un évènement sur "Après mise à jour":

Code :

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

1
2
3
4
5
6
 Dim rs As Object
 
    Set rs = Me.Recordset.Clone
     rs.FindFirst "[ID_EXP] = " & Str(Nz(Me![Modifiable30], 0))
 
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Au démarrage, tout va bien.
Le problème, c'est que lorsqu'on sélectionne une autre valeur, des fois la liste actualise le contenu, des fois non !
J'ai mis, à côté de ma liste, les "vrais" controles, qui montrent ce qui est réellement affiché. Des fois ce sont les bons (ceux qui correspondent à la valeur sélectionné dans la liste, des fois non !)
Au démarrage, le form m'affiche bien le premier "EXP" de la liste (classé par ordre croissant):


Quand je clique sur la 2e valeur, rien ne change, mes controles montrent bien qu'on n'est pas passé au bon enregistrement


Quand je clique sur la 3e valeur, là ça marche bien


Je reclique sur la 2e, rebelote...


J'y comprends rien !

Merci de votre aide !

[Domi2]

Bonjour,

D'abord, je mettrais ce code

Code :

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

Me![Modifiable30] = Me![ID_EXP]

dans l'événement Sur activation du formulaire (Form_Current) et non Sur ouverture. A mon avis pas de relation avec ton problème.

Quel devrait être selon toi l'ID du 2ème enregistrement ?

Le premier = 14
Le troisième = 15

Domi2

[riomois85]

Merci pour ta réponse.
J'ai modifé le code pour le placer sur activation, en effet pas de changement.

L'ID de la 2e valeur devrait être 13 selon ma table.

[Domi2]

Ok pour la valeur, c'est pas ça, je pensais à autre chose... Sorry

Et avec simplement :

Code :

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

1
2
3
4
5
6
7
With Me.RecordsetClone
 
    .FindFirst "ID_EXP=" & str(Nz(Me.Modifiable30, 0))
 
    If .NoMatch = False Then Me.Bookmark = .Bookmark
 
End With

Ca change quelque chose ?

Domi2

[riomois85]

Ca change pas grande chose.
Quand je passe à la 3e valeur (37466), ça marche toujours bien. La différence avec mon ancien code, c'est que si je repasse à la 2e (37463), j'ai toujours la 37466 affiché dans mon contrôle.

Ca veut dire qu'il ne trouve pas les autres valeurs (dont la 2e) dans la table ?
Bizarre, étant donné que la source de la liste est... la table :/

[Domi2]

Re,

Tu avais fait ta liste de recherche avec l'assistant ?

Si pas le cas, essaie de la refaire avec et poste le code que ça génère...

Domi2

[riomois85]

Oui je l'avais fait avec l'assistant. En fait au début tout marchait très bien, puis j'ai modifié des trucs dans mon form, et la liste s'est mis à plus marcher. Pourtant j'ai comparé avec une sauvegarde que j'avais faite, je ne vois aucun changement dans les codes, ni dans celui du form, ni dans celui de la liste !

J'ai essayé de refaire ma liste, mais normalement l'assistant est pas censé me proposer 3 option ? Je n'en ai que 2:
- Je veux que la liste déroulante recherche les valeurs dans une table ou une requête
- Je taperai les valeurs souhaitées

Y'a qqchose qui cloche ?

Merci

[Domi2]

Y'a quelque chose qui cloche ?

Oui... Ta source de formulaire, ça m'étonnerait que ce soit la table !

Tu n'as pas mis une requête SQL directement comme source ?

Domi2

[riomois85]

Je vais devenir chèvre !
J'ai re-vérifié ma source de formulaire, c'est bien ma table, pas une requête !

Ce qui est bizarre, c'est que ça marche avec certains EXP, mais pas avec d'autres !

[Domi2]

Essaie ceci :

En mode création, tu supprimes la source, tu enregistres et tu fermes.

Tu ouvres à nouveau en mode création, tu resélectionnes ta source, tu enrgistres, tu fermes.

Puis de nouveau en mode création, tu essaies de recréer une liste. Toujours uniquement 2 possibilités offertes ?

Si oui, peux-tu mettre un extrait de ta base en pièce jointe au format 2000.

La table avec quelque données (tu peux mettre tout et n'importe quoi) et ton formulaire.

Domi2

[riomois85]

J'ai essayé ce que tu m'as dit, sans succès.

J'ai mis la base en pièce jointe (avec des noms bidons, vous m'excuserez ), si vous pouvez y jeter un oeil...
(le formulaire qui déconne s'appelle 1- EXP et parents)

Merci bcp !

[Domi2]

Re,

Bon j'ai pas le temps de tout regarder avant ce soir, mais :

Code :

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

SELECT [EXP list].*, Segments.nom_segment FROM Segments INNER JOIN [EXP list] ON Segments.ID_segment=[EXP list].exp_segment_id;

Comme source de formulaire, c'est en tout cas pas une table...

[Edit]

Ce n'est donc pas une table (ou une requête graphique) et c'est pour ça que l'assistant ne te propose plus la création d'une liste de recherche.

Ceci dit la tienne fonctionne très bien. Elle affiche correctement 2 enregistrements sur 5, c'est-à-dire ceux ou le champ "exp_segment_id" n'est pas Null.

Si tu renseignes les 3 autres enregistrements, tu verras que ta liste te permet de les sélectionner les 5.

[/Edit]

Domi2

[riomois85]

Ok j'ai compris le truc... J'ai donc viré la table segment de ma requête, et je ne m'en sers que dans la source pour le contrôle correspondant.
Ceci fait, ma liste fonctionne maintenant parfaitement !

Merci à toi !