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 contrle" est <=tats!
ett_histo_dechets.getFiltre> (sans les < >).

getFiltre est une fonction enregistre dans le module de l'tat, qui
permet de rcuprer 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
prsents.
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 rcupre 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'apercu de l'tat.

Y-a-t'il un paramtrage/astuce pour faire en sorte que l'appel la
fonction intgre dans l'tat fonctionne depuis la proprit "Sou=
rce
contrle" de ma zone de texte?

Merci pour vos suggestions.

Cordialement.
Xav.
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