Chargement d'une valeur dans un controle Zone de texte d'un état

Le
ElXav
Bonjour la Communauté,

Dans une application Access XP, j'ai dans un état, un controle de type
"Zone de texte", dont la "Source contrôle" est <=États!
ett_histo_dechets.getFiltre> (sans les < >).

getFiltre est une fonction enregistrée dans le module de l'état, qui
permet de récupérer une valeur.

Voici le code dans l'état

Dim filtreTest As String

Public Function getFiltre() As String
getFiltre = filtreTest
End Function

Private Sub Report_Open(Cancel As Integer)
Dim strArgs() As String

If Me.OpenArgs <> -1 Then
'OpenArgs :
' 0. Clause ORDER BY (sans la chaine "ORDER BY")
' 1. chaine strFiltre permettant d'afficher les filtre
présents.
strArgs = Split(Me.OpenArgs, "|")
Me.OrderBy = strArgs(0)
Me.OrderByOn = True
filtreTest = strArgs(1)

End If
End Sub

Lors de l'ouverture de l'état, on récupère une partie de l'argument
passé lors de l'OpenReport, pour la placer dans la variable
filtreTest.
Le contenu de cette variable lu par la fonction getFiltre.

Sous XP, ca fonctionne.

Sous 2007, le controle "Zone de texte" affiche "#Nom?" lors de
l'apercçu de l'état.

Y-a-t'il un paramétrage/astuce pour faire en sorte que l'appel à la
fonction intégrée dans l'état fonctionne depuis la propriété "Sou=
rce
contrôle" de ma zone de texte?

Merci pour vos suggestions.

Cordialement.
Xav.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #22232141
Salut,

ElXav wrote:
Bonjour la Communauté,

Dans une application Access XP, j'ai dans un état, un controle de type
"Zone de texte", dont la "Source contrôle" est <=États!
ett_histo_dechets.getFiltre> (sans les < >).

getFiltre est une fonction enregistrée dans le module de l'état, qui
permet de récupérer une valeur.

Voici le code dans l'état

Dim filtreTest As String

Public Function getFiltre() As String
getFiltre = filtreTest
End Function

Private Sub Report_Open(Cancel As Integer)
Dim strArgs() As String

If Me.OpenArgs <> -1 Then
'OpenArgs :
' 0. Clause ORDER BY (sans la chaine "ORDER BY")
' 1. chaine strFiltre permettant d'afficher les filtre
présents.
strArgs = Split(Me.OpenArgs, "|")
Me.OrderBy = strArgs(0)
Me.OrderByOn = True
filtreTest = strArgs(1)

End If
End Sub

Lors de l'ouverture de l'état, on récupère une partie de l'argument
passé lors de l'OpenReport, pour la placer dans la variable
filtreTest.
Le contenu de cette variable lu par la fonction getFiltre.

Sous XP, ca fonctionne.

Sous 2007, le controle "Zone de texte" affiche "#Nom?" lors de
l'apercçu de l'état.




Utilise des crochets "[ ]" pour entourer tous les noms d'objets
qui contiennent des espaces ou des caractères accentués ou
barbares.

Ton test sur OpenArgs n'est pas correct non plus!
Car OpenArgs retourne un string et non un bolean...

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Publicité
Poster une réponse
Anonyme