Discussion :

[fabrice518]

Bonjour,

je cherche comment se positionner dans un formulaire d'après une zone de liste :

J'ai un formulaire qui a
-(notamment) un champs 'iso'
- une zone de liste indépendante contenant des noms de pays avec leurs iso correspondant ( FR pour FRANCE, IT pour ITALIE, etc...).

Je voudrais que lorsque je clique sur un pays de ma liste, mon fomulaire se positionne sur l'enregistrement conrespondant.
C'est dire que si je clique sur FRANCE dans ma liste de pays, mon formulaire se positionnera sur l'enregistrement qui contient l'iso 'FR'.

Ma liste me renvoie bien mon ISO lorsque je clique sur un pays, mais je n'arrive pas a me positionner sur l'enregistrement ...

genre gotorecord, ou findrecord. j'ai essayé ces methodes, mais je ne connais pas la synthaxe exact (surtout pour find)... si quelqu'un peut m'aider !!
ou m'aiguiller vers d'autres methodes..

Merci


Fabrice

[zoom61]

Salut,

Pourquoi ne pas faire un filtre sur l'iso correspondant et faire un Requery, qui filtrera le résultat

[fabrice518]

Merci pour ta réponse,
j'y avais pensé, mais je n'avais pas réussi a le mettre en place :

Code :

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

1
2
3
4
5
6
7
 
Private Sub lst_pays_AfterUpdate()
 
Me.Form.Filter = "iso = " & Chr(34) & Me.lst_pays.Column(0) & Chr(34)
Me.Requery
 
End Sub

mais je t'avoue, que je prefererai passe par un find... non ?

Merci

fabrice

[fabrice518]

Voila ce que j'ai fais,

Code :

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

1
2
 
DoCmd.FindRecord Me.lst_pays.Column(0), acEntire, False

mais j'ai un msg d'erreur.

je pense que c'est parce que il recherche la valeur dans la zone de liste et non pas dans le formulaire, vu que c'est spécifié nul part. faut-il mettre le focus sur le formulaire d'abord ??

Merci

[fabrice518]

ca marchait pas a cause du requery après le find...
voila le code :

Code :

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

1
2
3
4
5
6
7
 
Private Sub lst_pays_AfterUpdate()
 
Me.iso.SetFocus
DoCmd.FindRecord Me.lst_pays.Column(0), acEntire, False
 
End sub

++