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

[petitbison]

Bonjour fgiambelluco,

J'ai testé et ça marche.
Je vous remercie de haute voix.

Est ce qu'i existe un petit tuto pour ces double et simple qote ??.

[fgiambelluco]

Bonjour
Je ne sais pas si il existe un tuto sur l'utilisation des quotes et double quote, mais ce que l'on peut en dire :
-les doubles quotes sont utilisées pour les critères de type texte (en autre)
-lorsque qu'une chaine de texte contient des doubles quotes, il convient de les doubler
ex. :

Code :

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

"[NomSociete]=""" & VarSociete & """"

il est admis pour la lisibilité que les simples quotes remplacent les doubles quotes
donc :

Code :

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

 "[NomSociete]='" & VarSociete & "'"

Attention toutefois qu'il n'y ait pas d'apostrophe dans votre chaine de texte, en quel cas il ne reste plus qu'à doubler les doubles quotes.

Une exception pour les champs numériques et dates, on utilise les doubles quotes avec le caractère *.
ex. :

Code :

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

 "[NumCommande] like '" & varDebutNumCmde & "*'"

(tous le N° de commande qui commencent par 10)

J'espére avoir répondu à votre question

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