Discussion :

[sebing]

Bonjour,

Aprés le remplissage d'un formulaire, je souhaite qu'un etat s'ouvre.
Mais le filtre que je mets lors de l'ouvertre de celui-ci ne fonctionne pas, , mais si je passe en mode page ça marche, si je me mets en mode creation je vois bien apparaitre mon filtre.
Pourquoi alors lors de l'ouverture ça ne marche pas?
voici le code vba ecris sur le bouton du formulaire:

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
 
Private Sub Commande1_Click()
'Valide l'enregistrement
stLinkCriteria = "[id_pv]=" & Me![id_PV]
num_pv = DMax("N_pv", "PV4", "year([date_visite]) = '" & Year(Me.date_visite) & "'")
    If IsNull(num_pv) Then
        N_pv = "1"
 
        DoCmd.OpenReport "Modele_PV_4", acViewPreview, , stLinkCriteria, acHidden
        DoCmd.Close acForm, "F_pv4"
    Else
        N_pv = num_pv + 1
        DoCmd.OpenReport "Modele_PV_4", acViewPreview, , stLinkCriteria, acIcon
        DoCmd.Close acForm, "F_pv4"
    End If
   ' End If
End Sub

Merci de me venir en aide.
bonne journee
Seb

[marot_r]

À priori ton code est correct.

Ajoute le champ N_pv aux champs affichés dans ton rapportet voit ce que cela retourne, cela te donnera peut-être une piste.

A+

[sebing]

Merci de votre aide, mais rien ne se passe
Mon formulaire renseigne une table, et mon état se renseigne via une requete.
Apres l'ouverture de l'état si j'actualise, ca fonctionne, mais pas si je mets sur l 'etat

Code :

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

1
2
3
4
 
Private Sub Report_Load()
' DoCmd.Requery
End Sub

J'ai l'impression que c'est une histoire de rafraichissement de ma requete.

Merci encore

Seb

[Mr.Mof]

Bonjour,

Si c'est une requête extérieure qui est la source de ton état (requête crée par le générateur de requête) essaye de l'exécuter en faisant:

Code :

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

docmd.openquery ("MaRequête")

Avant d'actualiser ton état.

Cordialement.

[sebing]

Merci de vos aides

C'était bien un probleme de rafraichissement de ma requete, donc je l'ouvre avant d'ouvrir mon etat, puis je la ferme

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Commande1_Click()
'Valide l'enregistrement
stLinkCriteria = "[id_pv]=" & Me![id_PV]
        DoCmd.Close acForm, "F_pv4"
        DoCmd.OpenQuery ("rqt_etat_pv4")
        DoCmd.OpenReport "Modele_PV_4", acViewReport, , stLinkCriteria
        DoCmd.Close acQuery, "rqt_etat_pv4"
   End Sub

Merci encore

Bonne soirée

Seb