Discussion :

[PeyoJ]

Bonjour
Je n'arrive pas à mettre une liste déroulante de recherche dans mon formulaire. J'utilise pourtant l'assistant je pense de façon correcte ( et normalement la manip devrait être simple ! ) et j'obtient toujours la même erreur : " erreur connection objet _currentproyect".
J'ai mis mon fichier exemple en pièce jointe. La clef primaire de ma table est Ref GD et je souhaiterai que mon formulaire crée à partir de cette table est une liste de recherche grace a Ref GD.
J'ai aussi mis en pièce jointe l'erreur que j'obtient.
Merci pour votre aide car je suis bloqué depuis très longtemps à cause de cela.
Peyo

En cherchant sur internet j'ai obtenu la raison suivante :
Symptômes
Lorsque vous essayez d'utiliser un Assistant ou d'ouvrir un Menu Général dans Access 2000, vous recevez le message d'erreur suivant :
Méthode "connexion" de "_currentproject" d'objet a échoué.
Retour au début

Cause
Ce comportement peut être dû à un damaged ou à piler Microsoft Data Access Components ( MDAC ) endommagé ou à piler.
Retour au début

Résolution
Pour résoudre ce problème, téléchargez et installez la dernière version de MDAC à partir du site Web de Microsoft à l'adresse suivante :
http://msdn.microsoft.com/library/de...dataaccess.asp (http://msdn.microsoft.com/library/de...dataaccess.asp)
Ce site fournit également des liens vers des informations relatives comment sur installer MDAC.
Retour au début

J'ai appliqué ces conseils mais ça ne marche pas.

[jeanchcom]

Je ne vois pas ton fichier en exemple, il n'y a que deux copies d'écran... peux-tu le remettre ?

JMArc

[Alexandre Sahli]

si tu n'arrives pas à le faire avec l'assistant tu le fais manuellement

Chez moi çà ne fonctionne pas toujour:
le code est

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 Private Sub ta_ListeModifiable_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[le champs que je recherche] = " & Str(Me![ta_ListeModifiable])
    Me.Bookmark = rs.Bookmark
    'optionnel
    DoCmd.GoToControl "N_Nom"
 
End Sub

bonne chance

[mullger]

Envoie plutôt ton fichier en pièce jointe.

Je ne sais pas si ça t'aidera mais peut-être qu'en faisant comme ça, ça marchera mieux :

- ouvrir ton formulaire en mode création
- clic droit sur ton champ tu séléctionne "remplacer par" puis zone de liste
déroulante.
- clic droit sur ta zone de liste déroulante tte neuve, tu séléctionne propriétés
- onglet données
- à la ligne contenu, tu cliques sur les "..." à droite
- tu sélectionne la table avec les champs que tu veux voir apparaître dans ta
liste déroulante.

Voilà, j'espère que ça t'aidera !

[PeyoJ]

merci pour vos conseils mais je n'y arrive tjrs pas.
Je voudrais vous transmettre ma bas de donnée en pièce jointe cependant je ne peut pas mettre en pièce jointe de fichier .mdb. Comment dois je faire ?
Puis je l'envoyer à quelqu'un par mail ?
merci pour votre aide
Peyo

[Alexandre Sahli]

Salut,

il faut comprimer ta base de donnée pour qu'elle aie l'extension .zip par exemple et ensuite tu peux la mettre en pièce jointe

[PeyoJ]

en pièce jointe j'y ai mis un exemple avec une table et un formulaire.
Je veux que la clef primaire de matable serve de liste défilante de recherche dans mon formulaire mais sans succés. Avec l'assistant j'obtient l'erreur connection objet_currentproject.
Merci d'y jetter un coup d'oeil et pour votre aide.

[Domi2]

Bonjour,

J'ai réussi à créer sans problème avec l'assistant la liste de recherche.

Et j'ai modifié les propriétés de la première (et créé le code).

Les deux fonctionnent parfaitement sur mon PC.

Fais peut-être un test pour voir ce que cela donne.

Domi2

[RGShoop]

Bonjour,

Enleves dans les propriétés de ta zone de liste le champs source.

Puis tu ajoutes le code ci-dessous dans la procédure évenementielle après mise à jour :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Cuadro_combinado13_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Ref GD] = '" & Me.Cuadro_combinado13 & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Normalement, tout est rentré dans l'ordre,

A+ RGShoop

[PeyoJ]

Ça marche!! ouhhhhhhhhhhh, merci beaucoup
Je ne comprends pas pourquoi l'assistant ne fonctionne pas bien sur mon ordinateur. Mais avec le code que vous m'avez passé ça marche.
C'est vraiment sympa ce site et merci pour votre aide et votre temps.
a+
Peyo

[RGShoop]

Pense au tag [Résolu]

A+ RGShoop

[Kuiliga]

rooo je vous bénis tous.... ça faisait un moment que je ramais là dessus ....