Afficher autrement un formulaire déjà affiché.

**Godzestla** · 26/05/2008, 16h40

Bonjour,

j'ai un formulaire maitre, EVENT, qui donne la liste des formations possibles.

ce formulaire présente également une barre d'outils via laquelle je peux accéder à la liste de mes élévès, formulaire STUDENT, toutes formation confondues.

En bas du formulaire STUDENT, j'ai un sous-formulaire qui affiche la liste des inscriptions aux EVENTS pour cet élève.

Je voudrais via le double clic sur le nom d'une formation dans mon sous-formulaire, rebasculer sur le formulaire EVENT à la page relative à cette formation, mais en conservant la possibilite de balayage des formations en avant et en arrière ?

Est-ce possible ? je dispose bien sur dans mon subform de la clé du record souhaité des EVENT ? (EVentid)

Merci.

__________________

**ClaudeLELOUP** · 26/05/2008, 19h28

code du dlclk:

Code :

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

docmd.OpenForm "Events",acNormal,,,,,"L'argumentDeRecherche"

Tu vas provoquer l'ouverture de Event avec un argument que l'on va exploiter
dans l'évènement sur ouverture de Events

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
If Me.OpenArgs Then
DoCmd.GoToControl "Celui qui contient L'argumentDeRecherche"
DoCmd.FindRecord Me.OpenArgs
End If
End Sub

**Godzestla** · 27/05/2008, 14h40

Merci Claude,

ca marche plutot bien. Seule contrainte : je dois fermer et rouvrir mon formulaire Event, mais cela marche bien.

**ClaudeLELOUP** · 27/05/2008, 15h16

A la relecture de ton post, je constate que le double clic intervient à un moment où Event est déjà ouvert.
le code devrait donc plutôt être :

Code :

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

1
2
DoCmd.GoToControl "Celui qui contient L'argumentDeRecherche"
DoCmd.FindRecord "L'argument"

**Godzestla** · 27/05/2008, 15h38

Merci,

ou-dois je placer ce code pour qu'il marche ?

J'ai essayé de le mettre quelquepart dans un Sub Public de mon form EVENT et de l'exécuter depuis mon Form Attendees, mais rien ne se passe alors qu'en Debug les données sont valables (argument de recherche bien initialisé).

j'ai aussi essayé .requery après, mais rien n'y fait.

Encore merci pour ton aide.

**ClaudeLELOUP** · 27/05/2008, 15h52

double clic sur le nom d'une formation dans mon sous-formulaire

le code associé au double clic :

Code :

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

1
2
DoCmd.GoToControl "Celui qui contient L'argumentDeRecherche"
DoCmd.FindRecord "L'argument"

**Godzestla** · 27/05/2008, 16h42

Merci.

je n'arrive pas à faire fonctionner ton système.

Voci mon code, dans le subform Attendees_Subform (ou je fais double-clic)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub EventName_DblClick(Cancel As Integer)
    ViewEvent
End Sub
Private Sub ViewEvent()
On Error GoTo Err_ViewEvent
    Dim ctl As Control
    Dim Arg As Long
    Arg = Me![EventID]
    Set ctl = Forms!Events!EventID
    DoCmd.GoToControl ctl.Name
    DoCmd.FindRecord Arg
 
    'DoCmd.Close acForm, "Events", acSaveYes
    'DoCmd.OpenForm "Events", acNormal, , , , , Me.EventID
 
 
 
Exit_ViewEvent:
    Exit Sub
 
Err_ViewEvent:
    MsgBox err.Description
    Resume Exit_ViewEvent
End Sub

**ClaudeLELOUP** · 27/05/2008, 16h52

subform Attendees_Subform

1° est-ce un sub form de Event ?

**Godzestla** · 27/05/2008, 17h01

Claude,

c'est un subform de Attendees dans lequel je trouve le detail des Events pour cet Attendee.

D'ou mon souhait de rebasculer sur le Formulaire Event sur le record sélectionné dans Attendees_Subform.

**ClaudeLELOUP** · 27/05/2008, 17h22

Dans Attendees

Code :

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

1
2
3
4
5
6
Private Sub EventName_DblClick(Cancel As Integer)
'd'abord fermer Event s'il est ouvert
If CurrentProject.AllForms("Event").IsLoaded Then DoCmd.Close acForm, "Event"
'ouvrir Event avec un paramètre (l'élément à rechercher)
DoCmd.OpenForm "Events", acNormal, , , , , Me.EventName
End Sub

Dans EVENT

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
If Me.OpenArgs Then
DoCmd.GoToControl "Celui qui contient L'argumentDeRecherche"
DoCmd.FindRecord Me.OpenArgs
End If
End Sub

Et cela devrait marcher ! (je croise les doigts)