Discussion :

[alexbrabo]

Bonsoir à tous,

Je continue à développer une appli de gestion de projets et je bloque un peu sur un petit problème d'ergonomie.

En deux mots :
J'ai une liste de projets en cours. En double cliquant sur cette liste, j'ouvre un formulaire qui affiche les détails du projet en question :

Code :

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

   DoCmd.OpenForm "frmEditProjets", acNormal, , "[noautoprojet]=" & Me![noautoprojet], acFormEdit, acDialog

Facile !
Mais je voudrais aller au delà en permettant à l'utilisateur de naviguer (directement depuis la fenêtre détaillée) dans la liste des projets avec des boutons flèches. Cela serait 100x plus ergonomique (plutôt que de devoir quitter la fenêtre à chaque fois ...).
J'ai fouillé un peu sur le net et j'ai cru comprendre qu'il fallait faire appel à Findrecord ... mais je ne vois pas du tout comment l'utiliser. Quelqu'un à déjà mis en place un truc du genre ?

D'avance merci !!

[ClaudeLELOUP]

Bonjour,

Procède plutôt comme ceci :

- ouvre le formulaire cible en lui passant noautoprojet comme argument :

Code :

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

DoCmd.OpenForm "LeFormulaireCible", , , , , ,Me.LeControleQuiContient_noautoprojet

- dans l’événement Sur ouverture du formulaire cible, tu testes qu’un argument est présent. Si oui, tu positionnes le formulaire sur l’enregistrement concerné (d'abord activer le contrôle susceptible de contenir l'argument) :

Code :

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

1
2
3
4
5
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.OpenArgs) Then Exit Sub
DoCmd.GoToControl "LeControleQuiContient noautoprojet"
DoCmd.FindRecord Me.OpenArgs
End Sub

- si besoin de naviguer, l’utilisateur se sert des boutons standard de navigation.


Reviens-moi si tu as besoin d’un coup de main pour placer le code.

[alexbrabo]

Bonjour Claude !

Merci pour ta solution !
Ça fonctionne mais pas tout le temps ! Au premier clic ça ouvre exactement le formulaire comme je veux et au bon enregistrement !

Une fois que j'ai fermé la fenêtre et que je souhaite de nouveau l'ouvrir en cliquant sur une autre ligne ... il me met erreur 2162 : une macro définie sur une des propriétés du champ actif a échoué à cause d'une erreur dans l’argument de l'action TrouverEnregistrement.

La ligne du formulaire qui doit s'ouvrir bug :

Code :

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

DoCmd.FindRecord Me.OpenArgs

Nota : une fois que je relance complètement access, je peux de nouveau ouvrir une seule fois la fenêtre avant de voir l'erreur apparaître ...

Est-ce que cela peut venir du fait que mon champ en question est un texte et pas un nombre ? Je ne comprends pas d'où vient le problème ...

[ClaudeLELOUP]

Je ne connais pas le contexte de ton application, c'est un peu difficile de t'aider avec précision.

D'après ce que tu indiques, ça pourrait venir du fait qu'à la deuxième tentative, le formulaire cible est déjà ouvert.

Essaie ceci :

avant d'ouvrir le formulaire cible, demande s'il est déjà ouvert et si c'est le cas, tu le fermes avant de l'ouvrir à nouveau.

Ton code pour ouvrir la cible devient donc :

Code :

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

1
2
3
4
5
  If CurrentProject.AllForms("LeFormulaireCible").IsLoaded = True Then
    DoCmd.Close acForm, "LeFormulaireCible"  's'il est ouvert, on le ferme
  End If
  'et on l'ouvre pour un nouveau tour de carrousel
  DoCmd.OpenForm "LeFormulaireCible", , , , , , Me.LeControleQuiContient_noautoprojet

[alexbrabo]

J'ai fini par trouver ! Le problème semble venir du GoToControl.... qui ne fonctionne pas tout seul.
En fait j'ai testé une autre fonction pour sélectionner le contrôle : Setfocus.

Il faut d'abord sélectionner le formulaire qui s'ouvre, puis le contrôle et enfin faire un Findrecord comme tu me l'a indiqué !

Code :

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

1
2
3
Me.SetFocus
DoCmd.GoToControl ("noprojet")
DoCmd.FindRecord Me.OpenArgs

Ca marche nikel !
Merci Claude !