Discussion :

[petitbison]

bonjour,

je veux simplement filtrer le recodsource d'un formulaire sans passer par les recordset. si non, cela m'obligerait à reprendre un bon bout de mon code.
est ce possible ?
voici l'abominable 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
 
Dim iCode As integer
Dim strFilter As string
 
'Me == Formulaie
' [Age] == c'est un champ numérique
 
iCode =20 'Filtre les personnes qui ont 20 ans
strFilter = CStr([Age]) & " like " & iCode & "*" 
 
Me.Filter = strFilter ' Non erreur
 
Me.Filter = "Cstr([Age]) like " & iCode & "*"  ' Non erreur
 
 
Me.FilterOn = True

[loufab]

Bonjour,

Je ne comprend pas pourquoi tu veux transformer du numérique en texte pour faire ton filtre.
Tu dis que Age est numérique donc il contient au mieux 1 nombre. ICode est également numérique.

Code :

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

1
2
me.filter = "[Age]=" & iCode
me.filterOn = true

Le Like n'est utile que dans le cas ou tu souhaites filtrer sur une partie d'une chaine plus ou moins connue.

Cordialement,

[petitbison]

Bonjour,
Je vous remercie de votre réponse.
En fait, age c'est seulement pour l'exemple, il s'agit de familles numériques (Huit numéros) dont chaque paire a une signification précise.

J'utilise une fonction générique pour traitement avant filtre. et je souhaite ne pas modifier cette fonction. "like" est la moins compliquée pour ce cas.


Au fait, est ce possible en VBA d'utiliser un type de paramètre générique (tantôt texte et tantôt numérique) ?

[fgiambelluco]

Bonjour
Pour traiter les champs Texte dans les critères, on rajoute des '.
Ce qui donnerai:

Code :

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

"Cstr([Age]) like " & iCode & "'*"

--------------
Frédéric
http://www.access-developpement.com

[petitbison]

Bonjour fgiambelluco,

j'ai testé votre proposition. Lorsque le système arrive à la ligne 6, il retourne le message suivant :
"Impossible d'attribuer une valeur à cet objet."

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
 
'//////////////////////////////////////////////////////////////////////////
' [MonCodePerso] est un champ numérique             
'C'est un champ composé de 8 chiffres dont chaque paire a une signification  précise
 ' le bout de code suivant devrait me retourner tous les codes començant par 22 sans recourir à >= ou >=
'///////////////////////////////////////////////////////////////////////////////////
 
Dim strCondition as string                'Ligne 1
Dim   iCode = as long                      'Ligne 2
iCode=22                                      'Ligne 3
 
strCondition = "Cstr([MonCodePerso]) like " & iCode & "'*"  'Ligne 4  
Debug.Print strCondition                                           'Ligne 5
 Me.Filter = strCondition                                           'Ligne 6
Me.FilterOn = True                                                  'Ligne 7

Je vous remercie de votre aide.

[fgiambelluco]

Après essai sur un champ numérique, voila un code qui fonctionne :

Code :

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

strCondition = "[MonCodePerso] like '" & iCode & "*'"

--------------
Frédéric
http://www.access-developpement.com