Discussion :

[triistaan]

Bonjour, je fais encore une fois appel à votre communauté afin de résoudre un petit problème. J'ai un formulaire client dans lequel j'ai une liste déroulante qui me permet de selectionner un client. Jusque la pas de problème. Mais dans ce formulaire, j'ai un sous formulaire devis, je souhaiterais créer aussi une liste déroulante permettant d'atteindre un devis. J'ai donc fait un "copier coller" du code présent dans le formulaire clients mais ça ne marche pas, le voici :

Code :

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

1
2
3
4
5
6
7
Private Sub Modifiable97_AfterUpdate()
 If Me.Modifiable97 = Null Then Exit Sub
 Dim Rs As Object
 Set Rs = Me.Recordset.Clone
 Rs.FindFirst Forms![F_Clients]![S/F_Devis]![N°Devis] = """ & Me.[Modifiable97] & """""
 Me.Bookmark = Rs.Bookmark
 End Sub

Est-ce qu'il y a une solution a ce problème, si oui, que faire ?

Merci pour votre aide.

[madefemere]

Bonsoir,

Essaies :

Code :

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

1
2
3
4
5
6
 
Private Sub Modifiable97_AfterUpdate()
 If Me.Modifiable97 = Null Then Exit Sub
 Me.RecordsetClone.FindFirst "[N°Devis] = " & Me.[Modifiable97]
 Me.Bookmark = Rs.Bookmark
 End Sub

Bonne continuation

[triistaan]

Tout d'abord, merci pour ta réponse.

J'ai une erreur : '424' : objet requis et lorsque j'ouvre le debogueur, la ligne "Me.Bookmark = Rs.Bookmark" se met en jaune.

[madefemere]

Ouais, nous n'avons pas défini Rs.
Ca devrait être plutôt :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Modifiable97_AfterUpdate()
    With Me
        If Len(.[Modifiable97]) > 0 Then
            .RecordsetClone.FindFirst "[N°Devis]=" & .[Modifiable97]
            .Bookmark = .RecordsetClone.Bookmark
        End If
    End With
End Sub

Bonne continuation

[triistaan]

Encore merci pour ta réponse, cette fois, il n'y a plus d'erreurs. Mais ça ne marche toujours pas, en fait j'arrive à sélectionner le devis que je souhaite mais cela ne change rien.

J'espère que tu pourras m'aider.

[madefemere]

Bonjour,

Je ne sais pas si ça a un rapport (mais moi, je viens de constater le même souci), mais donnes un nom significatif à ta zone de liste déroulante.
CboDevis par exemple en lieu et place de Modifiable97.

Bonne continuation

[triistaan]

J'ai fait cela mais toujours le même problème...

[madefemere]

Là, je suis , vu que ça marche chez moi.
Est-ce que tu peux mettre ta base (ton formulaire, sous-formulaire et les tables correspondantes) à disposition sur le forum (sans les données sensibles) parce qu'il doit y avoir autre chose.

@+

[Melchiorjl]

Bonjour,
Ce sujet correspondait à mon problème, mais comme la discussion est notée résolue sans donner la solution, je ne parviens pas à régler mon problème !
Pouvez-vous m'aider?

Mon problème:
Je cherche à ouvrir un sous formulaire "commande" qui se trouve dans un formulaire "client", je voudrai ouvrir le tout sur le n° de facture qui se trouve dans le formulaire "commande"
Ma liste déroulante se trouve dans un autre formulaire.
Merci à vous.

[madefemere]

Bonjour,

Pour une réponse claire, peux-tu poster ta base compactée et zippée avec des données anonymes parce que ton sujet est similaire, mais n'est pas le même qu'initial, ou du moins les formulaires et tables en jeu pour ton souci.

Cordialement,