Discussion :

[lucas-18]

Bonjour,

J'ai créé une zone de liste déroulante (Zone_recherche) dont le contenu est :

Code :

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

1
2
3
4
 
SELECT tbl_etiquettes.Reference_client
FROM tbl_etiquettes
ORDER BY tbl_etiquettes.Reference_client;

J'ai ensuite créé un bouton de commande :

Code :

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

1
2
3
4
5
6
7
Private Sub btn_recherche_Click()
 Dim rs As Object
 Set rs = Me.Recordset.Clone
 rs.FindFirst "[Reference_client] = " & Str(Nz(Me![Zone_recherche], 0))
 If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 rs.Close
End Sub

Ce code fonctionne si les données se trouvent dans mon formulaire mais mes données se trouvent dans mon sous-formulaire.

Que faut-il ajouter à ce code pour qu'il pointe sur le contrôle (Recherche_client) de mon sous-formulaire ?

Merci pour votre aide.

[marot_r]

Bonjour.

Essaye :

Code :

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

1
2
3
4
5
6
7
Private Sub btn_recherche_Click()
 Dim rs As Object
 Set rs = Me.[Recherche_client].[Form].Recordset.Clone
 rs.FindFirst "[Reference_client] = " & Str(Nz(Me![Zone_recherche], 0))
 If Not rs.EOF Then Me.[Recherche_client].[Form].Bookmark = rs.Bookmark
 rs.Close
End Sub

et personnellement je préfère

Code :

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

1
2
3
4
5
6
Private Sub btn_recherche_Click()
 Dim rs As Object
 Set rs = Me.[Recherche_client].[Form].Recordset
 rs.FindFirst "[Reference_client] = " & Str(Nz(Me![Zone_recherche], 0))
 rs.Close
End Sub

A+

[lucas-18]

J'ai essayé ton code mais je reçois ce message d'erreur :

Erreur d'exécution '2465':
RS ne trouve pas le champ "I1" auquel il est fait reference dans votre expression.

Je ne suis pas sûr que ton code pointe vers le sous-formulaire.

[marot_r]

Bonjour.

Essaye :

Code :

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

rs.FindFirst "[Reference_client] = """ & Str(Nz(Me![Zone_recherche], 0)) & """"

quand le champ chercher est

• de type texte, il faut utiliser comme délimiteur le guillemet (") ou l'apostrophe. Personnellement je préfère le guillemet car il y en a rarement dans les textes en français.
• de type date, il faut utiliser comme délimiteur le dièse (#) et il est conseillé de fomater la date au format mm/jj/aaaa ou aaaaa/mm/jj (mon préféré)
• d'autre type, il ne faut pas de délimiteur

A+

[lucas-18]

Merci Marot_r mais toujours le meme message sur cette ligne :

Code :

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

rs.FindFirst "[Reference_client] = """ & Str(Nz(Me![Zone_recherche], 0)) & """"

[marot_r]

Désolé je ne vois pas.

Mets un point d'arrêt (clique dans la marge à gauche, cela va afficher un rond marron) sur la ligne rs.FindFirst "[Reference_client] = """ & Str(Nz(Me![Zone_recherche], 0)) & """".

Une fois l'exécution arrêté, passe dans la fenêtre d'exécution immédiate en appuyant sur les touches [ctrl][g].
Ensuite tape ? Me![Zone_recherche] [Enter] et vois ce que cela affiche. Est-ce bien la valeur rechercheé ?
Après tape ? rs.fields.count [Enter] et vois ce que cela affiche. Est-ce bien le nombre de champs attendu ?
Et puis tape ? rs.fields![Reference_client] [Enter] et vois ce que cela affiche. Est-ce bien un référence client ?

A+

[lucas-18]

J'ai à chaque fois des messages d'erreur
Est-tu certain que ton code permet de pointer sur l'enregistrement de mon sous-formulaire ?
Car le formulaire ne reprend aucune source.

[marot_r]

Dans le code c'est le .[Form] qui permet de pointer sur le sous formulaire.

Pour vérifier tu peux faire (toujours avec un point d'arrêt)

? Me.[Recherche_client].[Form].Name [enter]

Cela devrait t'afficher le nom de ton sous-formulaire.

J'ai à chaque fois des messages d'erreur

Quel message, sur quelle instruction ?

A+