Discussion :

[sardaucar]

Bonjour à tous !

Voici mon petit soucis :

J'ai un contrôle liste déroulante dont la source est un champ d'une requête qui a concaténé deux informations : Nom&" "&Prénom. Cette liste déroulante me permet de rechercher un enregistrement dans mon formulaire basé sur le nom que j'aurai sélectionné.

Le soucis c'est que parfois je voudrais pouvoir rechercher par prénom et non par nom. Je voulais savoir s'il existait une procédure qui permettait en cliquant sur un bouton, d'inverser Nom prénom en prénom Nom afin de pouvoir chercher simplement dans la liste,

une idée pour m'aiguiller sur la méthode ?

Cordialement,

Sardaucar

[alassanediakite]

Salut
Ton code stp.
@+

[sardaucar]

Je n'en ai pas fait pour le moment en VBA, j'ai créé la fonction de recherche de ma liste déroulante par macro pour le moment...

[alassanediakite]

Salut
Pour ma part je travaille rarement avec les macros; juste "AutoExec".
Peux-tu au moins nous indiquer les lignes du macro (en mode création).
@+

[sardaucar]

Alors voici la requête :

Code :

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

SELECT R_CandidatsValidésToutSite.[NomPrenom] FROM R_CandidatsValidésToutSite;

Voici la condition Where de l'évènement AprèsMaj :

Code :

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

="[NomPrenom] = " & "'" & [Screen].[ActiveControl] & "'"

Et une petite Sub sur la réception du focus :

Code :

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

1
2
3
4
5
6
Private Sub Modifiable55_GotFocus()
 
Me.Modifiable55.Dropdown
Me.Modifiable55 = Null
 
End Sub

En espérant que ça puisse t'aider !

[alassanediakite]

Salut
Peux-tu m'envoyer une copie de ta base avec uniquement le formulaire, les tables et requêtes concernées. Je ne te promet rien vu que je ne suis pas très à l'aise avec les macros.
@+

[sardaucar]

Essai.rar

Voici ce que je peux t'envoyer, j'ai aussi enlevé les macros et mis la fonction recherche en vba comme il suit :

Code :

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

1
2
3
4
5
If Not IsNull(Me.Modifiable133) Then
strFiltre = "[ID_personnes]=" & Me.Cbocherche
Me.Filter = strFiltre
Me.FilterOn = True
Me.Requery

merci d'avance !

[alassanediakite]

Salut
Voici une solution.
@+

[sardaucar]

Ça m'aide beaucoup . Bon l'idée est plutôt de modifier la Cbo Recherche que l'ordre du résultat mais en partant de ce que tu à fais je devrais m'en sortir. Peut-être en créant un requête nom prénom et une prénom nom et suivant le choix du cadre d'option appeler l'une ou l'autre requête ?

[sardaucar]

Bon alors j'ai essayé avec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub NP_Click()
Dim NomPrenom As String
Dim PrenomNom As String
 
Modifiable56.RowSourceType = "Table/Query"
NomPrenom = "SELECT [R_CandidatsValidésToutSite].[ID_personnes], [R_CandidatsValidésToutSite].[NomPrenom] FROM R_CandidatsValidésToutSite; "
PrenomNom = "SELECT [R_CandidatsValidésToutSite].[ID_personnes], [R_CandidatsValidésToutSite].[PrenomNom] FROM R_CandidatsValidésToutSite; "
 
If Me.NP.Caption = "N" Then Me.NP.Caption = "P" And Me.Modifiable56.RowSource = NomPrenom Else Me.NP.Caption = "N" And Me.Modifiable56.RowSource = PrenomNom
 
End Sub

Mais ça me mets une erreur d'incompatibilité de type,

Sauriez vous pourquoi ?

Cordialement,

Sardaucar

[sardaucar]

Bon finalement j'ai réussi à me dépatouiller, je mets mon bout de code pour la postérité même si je penses qu'on pouvait faire plus simple :

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
Private Sub NPA_Click()
Dim NomPrenom As String
Dim PrenomNom As String
 
 
Me.Cherche.RowSourceType = "Table/Query"
PrenomNom = "SELECT [R_CandidatsValidésToutSite].[ID_personnes],[R_CandidatsValidésToutSite].[PrenomNom] FROM R_CandidatsValidésToutSite ORDER BY [R_CandidatsValidésToutSite].[PrenomNom]"
NomPrenom = "SELECT [R_CandidatsValidésToutSite].[ID_personnes],[R_CandidatsValidésToutSite].[NomPrenom] FROM R_CandidatsValidésToutSite"
 
If Me.NPA.Caption = "Nom/Prenom" Then Me.Cherche.RowSource = NomPrenom Else Me.Cherche.RowSource = PrenomNom
If Me.NPA.Caption = "Nom/Prenom" Then Me.NPA.Caption = "Prenom/Nom" Else Me.NPA.Caption = "Nom/Prenom"
 
Me.Cherche.Requery
 
End Sub

Merci à ceux qui m'ont aidés