Discussion :

[guillaume50]

Bonjour,
Je rencontre un petit problème avec le runtime access 2007, j'ouvre des formulaires avec l'événement double click d'un sous-formulaire, or pour certain le "openform" en VBA marche et d'autre non.Alors que les formulaire sont créer de la même façon.

[argyronet]

Bonjour,

Au même titre que la précision de ta question, je pourrais moi aussi écrire que parfois y a des choses qui marchent et puis parfois non... Mince alors !!!
D'où qu'cé t-y qu'ça vient donc ?

Bon plus sérieusement :

1. Quelle erreur est levée (enfin, si peu que tu aies mis une gestion d'erreur) ?
2. La 2501 ?
3. Quelle est la syntaxe complète que tu as employée pour la méthode OpenForm ?
4. Es-tu certain que la clause Where n'a pas de NULL si Clause Where il y a ?

Là, ce sera plus aisé de t'aider...

Argy

[guillaume50]

Re,
Non justement j'ai mis le gestionnaire d'erreur mais rien ne s'affiche.
Ma vba est simple : docmd.openform "F_REC" (Sur l'événement double clic)
Je lance le openform en double-cliquant sur un sous-formulaire de mon formulaire, il doit m'ouvrir un formulaire en modal mais rien ne se passe.

[argyronet]

Humm, as-tu vérifié qu'il n'était pas en arrière plan...

Que se passe t-il si tu écris :

Code :

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

1
2
 
DoCmd.OpenForm "F_REC", , , , , acDialog

Voir même mieux (dans la classe de ton formulaire) :

Code :

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

1
2
3
4
5
6
7
 
Option Compare Database
Option Explicit
 
Public Sub Form_Current()
    BringToFront Me
End Sub

où la procédure BringToFront se trouve dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Option Explicit
 
Const HWND_TOPMOST = -1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
 
Public Sub BringToFront(F As Form)
    SetWindowPos F.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub