Liste déroulante recherche formulaire

Version imprimable

Hello,

J'ai un problème avec ma liste déroulante.

Je l'ai insérée dans mon formulaire à l'aide de l'assistant pour qu'elle me serve à rechercher des personnes par nom dans le formulaire.

Juste après l'avoir installé ça marche: je tape le début du nom : DUR et le reste (AND) s'affiche. J'ai donc DURAND. Je fais ENTREE et les infos relatives à DURAND s'affiche dans le formulaire.

Mais quand je ferme et je rouvre ma base de donnée, ça ne marche plus. J'ai ce message : "le texte entré n'est pas un élément de la liste".

Dans propriété j'ai ce code là dans la [procédure événementielle] après MAJ:
Code:

1 2 3 4 5 6 7 8 Private Sub Modifiable117_AfterUpdate() ' Rechercher l'enregistrement correspondant au contrôle. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[Code agent] = " & Str(Nz(Me![Modifiable117], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub
Si vous pouvez m'aider it would be marvelous

13/06/2006, 10h23
973thom
et si par exemple tu mettais un valeur par défaut vide à ta liste.

ou encore l'initialiser sur l'ouverture du formulaire.
Code:

1 2 3 Private Sub Form_Open(Cancel As Integer) me.Modifiable117 = "" End Sub
ça marcherai peut etre ?
13/06/2006, 14h15
ivan7

ça marche.

Merci beaucoup:P
13/06/2006, 14h23
973thom

Citation:

Envoyé par ivan7

ça marche.

Merci beaucoup:P

Avec plaisir... :lol:
13/06/2006, 14h31
ivan7

Heu.... j'ai parlé trop vite
ça rebug....
13/06/2006, 14h41
973thom

Citation:

Envoyé par ivan7

Heu.... j'ai parlé trop vite
ça rebug....

A quel niveau ?

Dis nous quelle ligne de code plante ?
16/06/2006, 10h58
ivan7

Comme ça ça ne bug pas. Mais quand je fais clique droit sur la zone de liste déroulante il ouvre visual basic et cette ligne est jaunie :

Code:

rs.FindFirst "[Code agent] = " & Str(Nz(Me![Modifiable117], 0))

Il y a plusieurs sous-formulaires qui dépendent de ce formulaire. ça a peut-être un rapport.

Mais ce qui est bizarre c'est que ça marche quand je viens de l'installer. Dès que je le ferme et que je l'ouvre ça ne marche plus.
16/06/2006, 16h56
ivan7

Quelqu'un a t'il une idée?
16/06/2006, 22h41
louroulou

pour info il me semble qu'après avoir me un Nz c'est un point virgule qu'il faut et non pas une virgule. J'avais déja eu le problème et l'aide d'access est incorrecte je croix

bref voila si j'ai pu t'aider un tan soit peu
19/06/2006, 09h39
ivan7

Et non,

Ca ne marche malheureusement pas

Lorsque je mets le point-virgule à la place de la virgule ça m'inscrit :
Erreur de compilation
Attendu : séparateur de liste ou )

Je ne sais que faire

C'est une virgule qu'il faut pour séparer les paramètres d'une fonction
Par contre si tu fais le test que ta liste n'est pas vide avant de remplir ton formulaire genre

Code:

1
2
3
4
5
6
7
8
9
10
 
Private Sub Modifiable117_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
    if not (Me![Modifiable117]="" )then
        Set rs = Me.Recordset.Clone
        rs.FindFirst "[Code agent] = " & Str(Nz(Me![Modifiable117], 0))
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    end if
End Sub

19/06/2006, 10h01
ivan7

J'ai essayé et ça ne marche pas.

Mais je ne sais pas si j'ai été très clair : mon problème est de ne pas réussir à faire des recherches rapides avec cette zone de liste : je tape D et paf, DOMINO apparait, et si je tape DU, DURANT apparait.

Comme je suis un peu abscon parfois je me permets de rpréciser.

Dites moi si vous avez besoins de plus de précisions.
19/06/2006, 10h04
stéphane_ais2

Bonjour,

Et en vidant le Recordset en fin de code avec :

Code:

Set rs = Nothing

...

SE
19/06/2006, 10h24
ivan7

Où exactement insère-je le code ?

Code:

1
2
3
4
5
6
7
8
Private Sub Modifiable117_AfterUpdate()
 ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Code agent] = " & Str(Nz(Me![Modifiable117], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    Set rs = nothing
End Sub

...

SE

21/06/2006, 12h24
ivan7

ça ne marche pas.

Ce qui est bizarre c'est que le code est exactement le même quand ça marche et quand ça ne marche pas...
22/06/2006, 12h15
ivan7

Hello,

Excusez moi d'insister,

Mais c'est vraiment un problème qui me tarabuste :

Faire en sorte que les lettres du nom que l'on cherche s'affichent automatiquement lorsqu'on commence à le taper dans une zone de liste déroulante.

Au début cela fonctionne. Dès que je ferme ma base et que je la rouvre ça ne marche plus.

C'est un souci qui s'il était règler me permettrait d'aller plus vite sur plusieurs formulaires.

Si vous avez une idée....
22/06/2006, 14h37
ivan7

Bon bah je me suis résolu tout seul ;)

C'est sur le site de Microsoft

Il faut que le Combo Box Row Source utilise des valeurs DISTINCT

Merci quand même

:D