Discussion :

[ThieBEN]

bonjour à tous,
J'ai créé un fonction pour fermer un Etat et ça ne marche pas, Access me renvoi un msg d'erreur "fonction introuvable"
mon code :

Code :

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

1
2
3
Function FermerEdition()
DoCmd.Close acReport, "EtatResultat"
End Function

Si quelqu'un à un conseil merci.

[Domi2]

Bonjour,

Comment appelles-tu le code ?

Si je me réfères à tes dernières discussion, depuis un bouton d'une barre de menu personnalisée.

Dans ce cas, tu dois placer cette fonction dans un module standard de ton application, et non dans le module de l'état.

Ca fonctionne ?

Domi2

[ThieBEN]

Bonjour,
Ca fonctionne ?
Domi2

OUI, en revanche j'ai le même problème que pour le frm testeur (qui lui est résolu) quand l'état se ferme il ouvre le frmEpi sur le 1er enregistrement.
MERCI

[Domi2]

Re,

Tu pourrais donner un peu plus de détails, stp...

Dans quel contexte ouvres-tu cet état ?

Peux-tu également poster les codes utilisés?

Domi2

[ThieBEN]

L'Etat est ouvert à partir de la commandBAR "Bouton Edition"
CODE:

Code :

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

1
2
3
4
5
Case "Edition"
 
    stDocName = "EtatResultat"
    DoCmd.OpenReport stDocName, acPreview, , "[EpiId]=" & Me![EpiId]
    DoCmd.Close acForm, "frmEpi"

C'est plus clair

[Domi2]

Re,

C'est plus clair

Oui, un peu. Donc, tu as un formulaire ouvert sur un enregistrement et tu ouvres un état basé sur cet enregistrement.

1) Pourquoi fermer le formulaire ?

2) Tu peux éventuellement le rendre non visible le temps de l'opération

3) Si vraiment tu dois le fermer (je ne vois pas pourquoi, mais pourquoi faire simple quand on peut faire compliqué ), tu peux utiliser le code de ta discussion précédente (avec une ou deux adaptations minimes sans doute).

Domi2

[ThieBEN]

Re,
1) Pourquoi fermer le formulaire ?
2) Tu peux éventuellement le rendre non visible le temps de l'opération
Domi2

1) sinon j'ai la commandbar et la barre de menu perso de l'etat.
j'ai essayé le code de la discussion précédente ça marche pas.

le rendre invisible n'enlèvera pas la commandbar
ThieBEN

[ThieBEN]

Domi 2
Ca y est ça marche avec le code de la discussion précédente.
L'Etat se ferme et ouvre le frmEpi sur le bon enregistrement.
code:

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
Private Sub Report_Close()
lngEpiId = Me.EpiId.value
 
'Ouverture du formulaire frmEpi (filtré)
DoCmd.OpenForm "frmEpi", , , "EpiId =" & lngEpiId
 
'DoCmd.Echo False
 
'Affichage de tous les enregistrements. On se retrouve sur le premier
DoCmd.ShowAllRecords
 
'On se repostionne su l'enregistrement (non filtré)
With Forms!frmEpi.RecordsetClone
    .FindFirst "[EpiId]=" & lngEpiId
    If .NoMatch = False Then Forms!frmEpi.Bookmark = .Bookmark
       .Close
End With
 
Set rst = Nothing
 
'DoCmd.Echo FalseEnd Sub
End Sub

Résolu merci domi 2

[Domi2]

Re,

Ca y est ça marche avec le code de la discussion précédente.

Je me disais aussi... Super alors...

Domi2