Discussion :

[Xbluxblu]

Bonsoir

Désespérant de mes recherches (peut être mal faites, même si cela fait 3,4 heures que j'y suis), je viens solliciter la communauté.

Je souhaiterais obtenir les enregistrements contenant une partie des valeurs.
Exemple : je tape dans ma zone de texte "exe", et, en cliquant sur un bouton, j'obtiens dans mon sous-formulaire la liste de tous les enregistrement contenant "Exe" dans le champ NumAffaire, comme "exemple" ou "pré-exemple".

En recherchant, j'ai deux pistes et j'y suis presque je pense. La première :

Code :

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

1
2
3
4
5
6
 
Private Sub btn_RechercheAffaire_Click()
sql = "SELECT * FROM ListeAffaires_Loc WHERE NumAffaire Like ""*" & Me.txt_RechercheAffaire & " *"";"
Me.SF_ListeAffaires_Loc.Form.Filter = "cstr(NumAffaire) = sql"
Me.SF_ListeAffaires_Loc.Form.FilterOn = True
End Sub

Elle me permet de filtrer directement le résultat grâce aux deux dernières lignes, mais je crois que c'est sur la première, ou entre la première et la deuxième que ça ne fonctionne pas : on me demande la valeur du paramètre de sql.

La seconde :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub btn_RechercheAffaire_Click()
Set rs = Me.SF_ListeAffaires_Loc.Form.Recordset
criteres = "NumAffaire =  """ & Me.txt_RechercheAffaire & """"
Call rs.FindNext(criteres)
Me.SF_ListeAffaires_Loc.SetFocus
Set rs = Nothing
End Sub

Elle fonctionne uniquement si je rentre un numéro d'affaire écrit correctement, mais ne filtre pas dessus, elle me l'indique.

Je ne suis pas une pointe en VBA ouais...
Merci d'avance

[marot_r]

Bonjour.

La syntaxe est probablement :

Code :

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

1
2
Me.SF_ListeAffaires_Loc.Form.Filter = "NumAffaire Like ""*" & Me.txt_RechercheAffaire & " *"""
Me.SF_ListeAffaires_Loc.Form.FilterOn = True

Par contre es-tu sur que le champ dans sur lequel tu veux faire ta sélection est NumAffaire (ça évoque un nombre pas un texte).

A+

[tee_grandbois]

bonsoir,
la première solution me semble la plus appropriée, après correction:

Code :

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

1
2
3
4
5
Private Sub btn_RechercheAffaire_Click()
Dim sql as string
sql = "SELECT * FROM ListeAffaires_Loc WHERE NumAffaire Like ""*" & Me.txt_RechercheAffaire & " *"";"
Me.SF_ListeAffaires_Loc.Form.RecordSource = sql
End Sub

[Jeannot45]

Un petit exemple qui répond à ta problématique
Bonne continuation

[Xbluxblu]

Super !

Je teste tout ça et je reviens vers vous en début d'après-midi pour vous faire un récap' ;-)

Et pour répondre à Marot r, il s'agit d'une combinaison alphanumérique donc pas uniquement des nombres.

[Xbluxblu]

Re tous!

Bonjour.

La syntaxe est probablement :

Code :

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

1
2
Me.SF_ListeAffaires_Loc.Form.Filter = "NumAffaire Like ""*" & Me.txt_RechercheAffaire & " *"""
Me.SF_ListeAffaires_Loc.Form.FilterOn = True

Par contre es-tu sur que le champ dans sur lequel tu veux faire ta sélection est NumAffaire (ça évoque un nombre pas un texte).

A+

--> C'est peut être ce qui se rapproche de ce que je souhaite : le filtre fonctionne, mais ne m'affiche que la dernière ligne vide de mon sous-form, comme s'il ne prenait pas en compte mon souhaite de conserver les valeurs de NumAffaire (X0Y1, par exemple) contenant le texte inscris.

bonsoir,
la première solution me semble la plus appropriée, après correction:

Code :

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

1
2
3
4
5
Private Sub btn_RechercheAffaire_Click()
Dim sql as string
sql = "SELECT * FROM ListeAffaires_Loc WHERE NumAffaire Like ""*" & Me.txt_RechercheAffaire & " *"";"
Me.SF_ListeAffaires_Loc.Form.RecordSource = sql
End Sub

--> Même résultat qu'avec la solution de marot_r

Un petit exemple qui répond à ta problématique
Bonne continuation

--> C'est ce qui marche , mais ce n'est pas pleinement satisfaisant. Effectivement, j'aimerais appliquer cela à mon sous-formulaire...

[marot_r]

Bonjour.

Désolé il y a un espace en trop à la fin du critère du like.

Il faudrait que ce soit :

Code :

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

Me.SF_ListeAffaires_Loc.Form.Filter = "NumAffaire Like ""*" & Me.txt_RechercheAffaire & "*"""

A+

[tee_grandbois]

bonsoir Xbluxblu,

Désolé il y a un espace en trop à la fin du critère du like.

du coup, pareil pour moi, vu que nous sommes tous 2 partis de ton code d'origine

[Xbluxblu]

Merci à vous 😉
Effectivement j'ai testé bêtement brut en blanc.

Je testerais ça dès lundi malheureusement...

Bon weekend à vous

[Xbluxblu]

Re! Sorry du retard

Ben merci, mais malheureusement cela ne fonctionne guère... avec l'une ou l'autre méthode.
Avec la méthode de tee_grandbois, ça bouge mon sous-form mais me mets des #NOM? sur tous mes autres champs (de ce sous-form). Et avec celle de Marot_r, et bien il me mets un message d'erreur comme quoi la source d’enregistrement " NumAffaire Like "**" " spécifiée dans ce form n'existe pas.

Je vais conserver celle de Jeannot45 même si elle n'est pas complétement conforme à ce que j'avais comme idée : ça fera l'affaire.

Merci de vos investissements respectifs

[tee_grandbois]

Bonsoir,

Avec la méthode de tee_grandbois, ça bouge mon sous-form mais me mets des #NOM? sur tous mes autres champs (de ce sous-form).

cette erreur survient lorsque que le formulaire ne reconnait pas les champs de la requête source: cela veut dire que ListeAffaires_Loc n'est pas la source de données de ton sous-formulaire, je suis pourtant parti d'un des codes que tu as fourni dans ton premier post.
Essaie ce code qui prend bien le Recordsource du sous-formulaire mais applique la sélection:

Code :

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

1
2
3
4
5
Private Sub btn_RechercheAffaire_Click()
Dim sql As String
sql = "select * from(" & Replace(Me.SF_ListeAffaires_Loc.Form.RecordSource, ";", "") & ") WHERE NumAffaire Like ""*" & Me.txt_RechercheAffaire & "*"";"
Me.SF_ListeAffaires_Loc.Form.RecordSource = sql
End Sub