Discussion :

[Mr T 94]

Bonjour,
Dans un formulaire, j'ai un contrôle de recherche sur Nom et Prénom, mais si j'utilise 2 colonnes, il ne cherche que sur la première. donc j'ai créé un champs dans ma requête sou jacente (N&P) : "= [Nom]&" "&[Prénom]" sur lequel j'effectue ma recherche.
Tout cela fonctionne bien mais la présentation de ma liste déroulante (contrôle Recherche) n'est pas ergonomique ni esthétique dans l'alignement des prénoms. Je voulais remplacer mes espaces par une ou eux tabulations mais je n'y arrive pas. j'ai essayé avec le code ASCII : CHAR(9) mais ça ne fonctionne pas.

[chrtophe]

Essayes vbTab ou sinon chr(9)

[Mr T 94]

Salut, j'ai déjà essayé les 2, ça ne marche pas non plus, en fait, CHR ne fait rien du tout et VbTab, comme CHAR me renvoient fonction non définie.

[Invité]

Bonjour

Peux-tu expliquer comment se fait ta recherche à partir de ce qu'il y a dans la liste déroulante.

En effet, il est tout à fait possible de prendre les deux membres de la liste pour effectuer une recherche, mais il faut que tu expliques comment tu procèdes.

Philippe

[Mr T 94]

Salut,
En fait, j'ai juste mis sur ma liste déroulante, Apres mise à jour :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Recherche_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N & P] = '" & Me![Recherche] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Mais comme je ne suis pas expert en VBA, je me suis contenté d'adapter à partir d'un code que j'avais fait il y a longtemps pour une autre base.

cela dit, je ne comprend pas pourquoi CHAR(9) ne fonctionne pas.
J'ai trouvé une astuce pour faire la même chose visuellement, c'est de mettre 2 colonnes avec N&P et Prénom en adaptant la taille des colonnes de façon à ne pas voir le prénom dans la colonne N&P (avec plein d'espaces entre Nom et Prénom de N&P) mais si ça marche bien, c'est peu élégant comme méthode et je préfèrerais un truc moins spaghetti.

[Invité]

Re

Tu n'étais pas loin, voici ce que j'ai essayé :

Une table avec deux champs str_Nom et str_Prenom.

Cette table est la source d'un formulaire en mode formulaire unique.

Dans la zone entête de formulaire une liste déroulante, dont la source est une requête SQL liée à cette table :

Code sql :

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

1
2
3
SELECT tbl_Individu.str_Nom, tbl_Individu.str_Prenom 
FROM tbl_Individu 
ORDER BY tbl_Individu.str_Nom, tbl_Individu.str_Prenom;

J'ai donc le nom et le prénom séparé dans deux colonnes.

Maintenant le code suivant dans la liste :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Modifiable21_AfterUpdate()
     ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "str_Nom='" & Me.Modifiable21.Column(0) & "' AND str_Prenom='" & Me.Modifiable21.Column(1) & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Et lors de la sélection dans la liste tu as la sélection sur les deux éléments.

Philippe

[Mr T 94]

Super, ça marche parfaitement.
Merci.

[ClaudeLELOUP]

Bonjour Mr T 94 et Philippe,

J’arrive peut-être comme de la moutarde après le dessert, mais si la table contient une clé unique, tu peux aussi pratiquer comme décrit dans ce tutoriel de Pierre Fauconnier : Sélection d'une donnée par l'une ou l'autre de ses propriétés.

Bonne journée.