Discussion :

[GarsDuCalvados]

Bonjour,
je dois faire une recherche sur un nom et faire apparaitre tout les dossiers ou ce nom et renseigné. Mais il se peut que plusieurs personne peuvent être associé à ce dossier.
ex:
n°1 - maurice dupond
n°5 - maurice dupond, bernard delaplace
etc...

Je voudrais savoir comment faire pour que lorsque l'utilisateur saisie : dupond
celà me retourne dans un champ :
1
5
// avec les numéros séparés par des retours chariot

Par exemple est ce que ceci est possible :

Code :

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

Select num_dossier from table where nom='*" & nom.value & "*';

Merci

[cafeine]

Hello,

oui c'est possible

Code SQL :

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

1
2
3
SELECT * 
FROM MaTable
WHERE MonChamp Like "*dupon[dt]*"

[GarsDuCalvados]

Ok mais comment dois je faire pour remplacé dupond par un champ saisie sur formulaire :

Code :

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

SELECT * FROM MaTable WHERE MonChamp LIKE "*nom.value[dt]*"

[cafeine]

à utiliser dans un formulaire (à cause du Me.)

Code :

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

1
2
strSQL = "SELECT * FROM MaTable WHERE MonChamp LIKE ""*" & _
        Me.Controls("UnControle") & "*"""

Ok mais comment dois je faire pour remplacé dupond par un champ saisie sur formulaire :

Code :

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

SELECT * FROM MaTable WHERE MonChamp LIKE "*nom.value[dt]*"

[GarsDuCalvados]

ça correspond à quoi ça exactement ==> ("UnControle") & "*"""

[cafeine]

Mouak !
ben le nom du controle qui contient le texte de ta recherche ...

ça correspond à quoi ça exactement ==> ("UnControle") & "*"""

[GarsDuCalvados]

Le texte de ma recherche est dans un champ saisi sur un formulaire :
nom.value

donc

where nom like ' * " + nom.value + " *'

[cafeine]

mouak mouak !

évite le + comme opérateur de concaténation, préfère le &.

si ton contrôle s'appelle "nom", alors remplace "uncontrole" par "nom", ok ?

Le texte de ma recherche est dans un champ saisi sur un formulaire :
nom.value

donc

where nom like ' * " + nom.value + " *'

[GarsDuCalvados]

Bon c'est bon la requete est bonne :
sql = "SELECT num_dossier FROM table WHERE nom LIKE ""*" & Me.nom.Value & "*"""

Le hic c'est que lorsque qu'il y a plusieurs dossier il ne m'affiche qu'un dossier dans la textbox de retour.

Comment faire pour faire affiché tout les numéros dans une textbox séparé par des retour chariot ??

[cafeine]

en parcourant le recordset des résultats de la requête ...

cf la FAQ pour l'utilisation des recordset

[GarsDuCalvados]

Ok je parcours mon enregistrement comme ça :
Do While Not rs.EOF
mais comment dois je faire pour les enregistrements dans une textbox séparé chacun par un retour chariot?

[GarsDuCalvados]

J'ai ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
      If Not rs.EOF Then
            ' On se place au premier enregistrement concerné
             rs.MoveFirst
            Do While Not rs.EOF
                    ' Récupération du résultat
                     Me!resultat.Value = Me!resultat.Value + rs.Fields(0).Value
 
               rs.MoveNext
            Loop
 
        End If

ça me recupere bien tout les enregistrement et ça me les met bien tous dans ma textbox
mais c'est ilisible il faudrait que je fasse un retour chariot

[Invité]

Bonjour

Utilise la constante vb Vbcrlf

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If Not rs.EOF Then
            ' On se place au premier enregistrement concerné
             rs.MoveFirst
            Do While Not rs.EOF
                    ' Récupération du résultat
                     Me!resultat.Value = Me!resultat.Value & Vbcrlf &  rs.Fields(0).Value
 
               rs.MoveNext
            Loop
 
        End If

Et met des & à la place des plus pour concaténer

Starec

[GarsDuCalvados]

Ok merci c'ets good ça marche.
Je vous remerci bien
@+

Code final ::

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
    ' Assignation de la requète
     sql = "SELECT num_dossier FROM dossier WHERE nom LIKE ""*" & Me.nom.Value & "*"""
     ' Exécution de la requète
     Set rs = db.OpenRecordset(sql)
 
      If Not rs.EOF Then
            ' On se place au premier enregistrement concerné
             rs.MoveFirst
            Do While Not rs.EOF
                    ' Récupération du résultat
                     Me!resultat.Value = Me!resultat.Value & vbCrLf & rs.Fields(0).Value
 
               rs.MoveNext
            Loop
 
        End If