Discussion :

[lucas-18]

Bonjour,

J'ai réussi à sélectionner un enregistrement en créant une zone de liste déroulante basée sur une requête et un bouton de commande (btn_recherche).

Voici mon code :

Code :

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

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

Par contre, j'aurai 2 questions:

1) Où placer dans le code un Msgbox en lieu et place du message d'erreur système lorsque je click sur le bouton de commande alors que ce qui est repris dans la zone de liste déroulante ne correspond pas aux données de la requête ?

2) Je souhaiterais aussi utiliser ce code sur un autre formulaire (aucune source) mais dans lequel se trouve un sous-formulaire basé sur une table.
La zone de liste déroulante et le bouton de commande se trouvent en fait dans le formulaire et j'aimerais donc qu'il effectue la sélection dans le sous-formulaire.

Merci

[Filou07]

Bonjour

Pour ta question 1, je verrais bien ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btn_recherche_Click()
 Dim rs As Object
 Set rs = Me.Recordset.Clone
 rs.FindFirst "[Reference_client] = " & Str(Nz(Me![Zone_recherche], 0))
 DoCmd.GoToControl "Nom"
 If Not rs.EOF Then 
   Me.Bookmark = rs.Bookmark
 else
   msgbox "Enregistrement non trouvé"
  end if
 rs.Close
End Sub

[lucas-18]

Pour la 1, j'ai inséré un NotInList.

Par contre, pour la 2ème question, une aide serait appréciée.

Merci