OVH Cloud OVH Cloud

Actualiser

1 réponse
Avatar
Patrice
Bonjour,

Dans une barre de menu, j'ai une liste déroulante ds laquelle je sélectionne
un nom.

Après sélection, je déclanche la fonction suivante:

Public Function action_bouton()

Set CBBouton = Application.CommandBars.ActionControl
v_icn = Right(CBBouton.Text, 8)

Dim stDocName As String
stDocName = "Situation_une_personne"

Je teste si mon état est déjà ouvert.
If Not CurrentProject.AllReports(stDocName).IsLoaded Then
DoCmd.OpenReport stDocName, acPreview
Else
'Ici je voudrais actualiser mon état
End If
end function

J'utilise la varaible v_icn pour paramétrer mon état

Si mon état est déjà ouvert, je voudrais l'actualiser pour tenir compte
d'une nouvelle sélection.
Quelle est la commande ?
Merci

1 réponse

Avatar
Jessy Sempere [MVP]
Bonjour

Tu dois appliquer à ton état un filtre s'il est déjà ouvert, genre :

Reports(stDocName).Filter = "[TonChamp]='" & v_icn & "'"
Reports(stDocName).FilterOn = True


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
en cours de migration vers : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------

"Patrice" a écrit dans le message de
news:
Bonjour,

Dans une barre de menu, j'ai une liste déroulante ds laquelle je
sélectionne
un nom.

Après sélection, je déclanche la fonction suivante:

Public Function action_bouton()

Set CBBouton = Application.CommandBars.ActionControl
v_icn = Right(CBBouton.Text, 8)

Dim stDocName As String
stDocName = "Situation_une_personne"

Je teste si mon état est déjà ouvert.
If Not CurrentProject.AllReports(stDocName).IsLoaded Then
DoCmd.OpenReport stDocName, acPreview
Else
'Ici je voudrais actualiser mon état
End If
end function

J'utilise la varaible v_icn pour paramétrer mon état

Si mon état est déjà ouvert, je voudrais l'actualiser pour tenir compte
d'une nouvelle sélection.
Quelle est la commande ?
Merci