Discussion :

[frankinu]

Bonjour,
J'ai lu avec grand intérêt la documentation disponible sur le sujet, mais ça fait quelques heures que je tourne en rond avec une erreur Code 2450.

J'ai un formulaire Frm_GestionVerif_doublon qui doit me permettre de vérifier qu'un client n'est déjà pas encodé dans la base de données. Ce formulaire contient un sous-formulaire basé sur une requête qui filtre sur un champ indépendant Nom_txt.
Tout fonctionne correctement.

Dans le résultat qui s'affiche, j'ai créé un bouton en face de chaque ligne qui doit permettre à l'utilisateur d'être renvoyé directement sur la fiche client qui existe déjà -> frm_GestionClient. Ce formulaire est construit sur un champ modifiable0 (liste déroulante des clients sur base de la tables clients). Le champ qui doit me permettre de lier le tout est bien présent et se nome N_clt (numéro de client)

J'ai suivi vos conseils, mais cela ne marche pas:

Code :

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

1
2
3
Private Sub Commande19_Click()
DoCmd.OpenForm "Frm_gestionClient", , , "[Modifiable0] =" & Forms![Frm_GesionVerif_doublon]![N_clt]
End Sub

Merci pour votre aide.

[Arkham46]

Bonjour,

Je vois Modifialbe0 dans le code : erreur de saisie ?

[frankinu]

Bonjour,

Je vois Modifialbe0 dans le code : erreur de saisie ?

merci, effectivement j'ai modifié, mais malgré cette correction cela ne fonctionne toujours pas .

[tee_grandbois]

bonjour,
en général, une liste déroulante n'a pas de valeur chargée à l'ouverture d'un formulaire, c'est l'évènement Click ou AfterUpdate qui la charge.
Il faut donc utiliser le paramètre OpenArgs

Code :

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

1
2
3
4
5
Private Sub Commande19_Click()
DoCmd.OpenForm "Frm_gestionClient", OpenArgs:= Forms![Frm_GesionVerif_doublon]![N_clt]
' ou
'DoCmd.OpenForm "Frm_gestionClient", , , , , , Forms![Frm_GesionVerif_doublon]![N_clt] 
End Sub

et dans le formulaire Frm_GesionVerif_doublon tester la valeur d'OpenArgs et exécuter le code associé de Modifiable0

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
    Me.Modifiable0 = Me.OpenArgs
    Call Modifiable0_Click ' ou Call Modifiable0_AfterUpdate
End If
End Sub

[frankinu]

Grand merci à toi ! Pour ton information, j'ai du ajouter à ton premier code le sous formulaire dans lequel se trouvait [N_Clt] :

Code :

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

1
2
3
Private Sub Commande19_Click()
DoCmd.OpenForm "Frm_gestionClient", OpenArgs:=Forms![Frm_GestionVerif_doublon]![Frm_verification_doublon_clt]![N_clt]
End Sub

Ensuite sur l'autre formulaire j'ai adapté comme suit (après quelques tests)

Code :

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

1
2
3
4
5
6
Private Sub Form_Load()
DoCmd.Maximize
If Not IsNull(Me.OpenArgs) Then
    Me.Modifiable0 = Me.OpenArgs
 End If
End Sub

Encore merci et bonne soirée.