[AC-2003] Ouverture de formulaire au bon enregistrement

[Me.Leti]

Bonjour,

Je suis en train de finaliser une base CRM, et je voudrais ouvrir mon formulaire Clients selon la société sélectionnée par l'utilisateur dans une liste déroulante d'un formulaire "Rechercher". Le problème c'est que lorsque j'appuie sur le bouton OK, le formulaire clients s'ouvre mais il est vide et n'a que son entête de visible. Voici le code que j'ai fais (de façon automatique via VBA et je l'ai un peu modifié pour les problèmes d'apostrophes) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub OK_Click()
On Error GoTo Err_OK_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim nomSociete As String
    nomSociete = Me![Société_list]
    nomSociete = Replace(nomSociete, "'", "''")
 
    stDocName = "Clients"
    stLinkCriteria = "[Clients.Société]=" & "'" & nomSociete & "'"
    DoCmd.OpenForm stDocName, , acNewRec, stLinkCriteria
DoCmd.Close acForm, "Rechercher"
Exit_ok_Click:
    Exit Sub
 
Err_ok_Click:
    MsgBox Err.Description
    Resume Exit_ok_Click
 
End Sub

Merci d'avance pour le temps que vous consacrerez à mon problème.

[GAYOT]

Bonjour
C'est normal, tel que tu as écrit ton code il s'ouvre sur un nouvel enregistrement:

Code :

DoCmd.OpenForm stDocName, , , stLinkCriteria

[Me.Leti]

Ah mais oui, je sais pas comment j'ai pu raté ça! Merci

Malheureusement ça ne marche toujours pas quand j'enlève le acNewRec, ça donne le même formulaire en mode nouvel enregistrement et avec le détail non visible...

[SeaWolf601]

Si tu as supprimé le "acNewRec", ton code semble bon.

Le formulaire qui s'ouvre n'est pas configuré sur "entré de données" par hasard ?

[dok flint]

Bonjour,
Pourquoi ne pas utiliser une petite macro avec condition Where qui va s'exécuter avec le bouton ouvrir.
Si non tu peux mettre la valeur de ton champ directement comme critère dans la source de données du formulaire d'affichage des informations clients.
A+