Discussion :

[Tortille]

Bonjour,

La roulette de la souris se désactive dans cette situation :

J'ouvre le formulaire Form1 en mode dialogue. la roulette de la souris fonctionne.
Depuis ce formulaire, j'ouvre le formulaire Form2 qui modifie ou pas un enregistrement du Form1.
Si je ne modifie pas l'enregistrement et que je ferme Form2, je retourne sur Form1 et la roulette de la souris s'est désactivée,
je dois faire un click dans le form1 pour qu'elle se réactive.

J'aimerais ne pas avoir à faire ce click.

j'ai essayé sans succès :

Code :

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

1
2
3
4
'Dans Form2
DoCmd.Close acForm, Me.name ' Ferme le formulaire
Forms!Form1.setFocus
Exit Sub

ou

Code :

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

1
2
3
4
5
6
7
8
9
'Dans Form2
DoCmd.Close acForm, Me.name ' Ferme le formulaire
Forms!Form1.affecteFocus
Exit Sub
 
'Dans Form1
Sub affecteFocus()
    Me.SetFocus
End Sub

Et bien d'autres combinaisons de code ...

Merci d'avance pour vos suggestions.
Bien cordialement

[Tortille]

Alors comme je n'arrive toujours pas à rendre le focus au formulaire Form1, j'ai cherché à lui simuler un click, ce qui comme je vous le disais réactive la roulette de la souris.

Je n'ai pas trouvé comment simuler un click, mais j'ai trouvé que si j'envoie une touche ça marche aussi.
j'ai choisi la touche "Tab"

Code :

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

1
2
3
4
5
6
7
8
9
'Dans Form2
DoCmd.Close acForm, Me.name ' Ferme le formulaire
Forms!Form1.affecteFocus
Exit Sub
 
'Dans Form1
Sub affecteFocus()
    SendKeys "{TAB}"
End Sub

Le problème est résolu puisque ça fonctionne, mais peut-être quelqu'un a uns solution plus adaptée à ce problème.
Dans l'attente de mieux,
Merci aux lecteurs.

[titi95]

Bonsoir

Et en mettant le focus sur un contrôle ? (pas essayé, car je ne sais pas reproduire ta situation : désactivation de la roulette)

Par contre, l'utilisation de SendKeys peut avoir des effets inattendus (déverrouillage du pavé numérique du clavier, ...). A utiliser avec modération.

[Tortille]

Bonjour,
Titi95 j'ai déjà essayé

Et en mettant le focus sur un contrôle ?

sans succès, et ça aussi :

Code :

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

1
2
3
4
5
'Dans Form2
DoCmd.Close acForm, Me.name ' Ferme le formulaire
Forms!Form1.setFocus
Forms!Form1.form!NavWeb.setFocus
Exit Sub

Par contre, l'utilisation de SendKeys peut avoir des effets inattendus

c'est pourquoi ma solution ne me satisfait pas pleinement et du coup je l'abandonne.

J'ai donc chercher encore à mettre le focus sur le contrôle comme tu me préconises.
Comme Form1 n'a pas de RecordSource et que l'unique contrôle NavWeb est l'ActiveX WebBrowser.

J'ai trouvé comme autre possibilité de me déplacer dans la page affichée par NavWeb de cette manière :

Code :

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

1
2
3
4
'Dans Form2
DoCmd.Close acForm, Me.name ' Ferme le formulaire
Forms!Form1.form!NavWeb.Navigate Application.CurrentProject.path & "\MaPage.htm#" & g_Ancre & ""
Exit Sub

Je vais conserver cette solution.

(pas essayé, car je ne sais pas reproduire ta situation : désactivation de la roulette)

Tu ne pouvais pas, et de mon côté c'était trop difficile d'extraire les 2 formulaires de ma base pour en faire une mini base portable ici.

Et encore merci.
Bien cordialement