[Toutes versions] Toujours la fameuse simulation d'un clic de souris, est-ce que ce code existe vraiment est-ce un mythe?

[toumack]

Bonsoir à tous,

Lorsque je change un employé via le champ "cboCurrentEmployee", je retrouve ses commandes et je choisis une des commandes affichées en cliquant sur celle que je veux et tout fonctionne normalement.

Cependant, je voudrais ne pas avoir à cliquer à chaque fois donc je cherche le moyen de simuler un clic de souris sur le champ [Order ID] qui se trouve dans le sous-formulaire [sbfActiveOrders].

Le code sans clic est le suivant:

Code :

1
2
3
4
5
6
7
Private Sub cboCurrentEmployee_Change()
Dim I As Integer
For I = 1 To 30
Me![sbfOrderDetails].Visible = False
Me.Controls("D1PRD" & I).Visible = False
Next
End Sub

Ci-dessus, j'obtiens ce que j'ai besoin en attendant de trouver une solution pour une simulation d'un clic de souris.

J'ai donc ajouté cette ligne en espérant que cela fonctionne mais sans trop me faire d'illusions.

Code :

1
2
3
4
5
6
7
8
Private Sub cboCurrentEmployee_Change()
Dim I As Integer
For I = 1 To 30
Me![sbfOrderDetails].Visible = False
Me.Controls("D1PRD" & I).Visible = False
Next
Forms![Détails commande1].[sbfActiveOrders].Form.[Order ID].Click = True
End Sub

La ligne que j'ai rajouté en gras, me donne cette erreur:
Erreur d'exécution 438 Propriété ou méthode non gérée par cet objet.

Je sais que c'est normal mais ce serait une façon simple de régler cette simulation une fois pour toutes.

Merci de votre intérêt
Claude du Québec

[loufab]

Bonjour,

Pour faire l'équivalent d'une sélection par clic c'est

Code :

forms.....controle.Setfocus

Pour déclencher un événément il suffit de l'appeler.

Code :

forms.....cboCurrentEmployee_Change

Cordialement,