[AC-2010] Besoin de comprendre - Formulaire Recherche [Résolu]

[baryn]

Bonjour,

J'essaye actuellement de créer une petite base de données pour mon boulot, qui me simplifierait bien la tâche. Pour l'instant je tatonne, et après quelques fondations, j'essaye d'implanté un formulaire de recherche tout simple, de nom et prénom.

Alors pour info, impossible d'ouvrir l'assistant recherche, je ne sais pas trop pourquoi ("unable to find a version of the runtime to run this application"winking smiley. (Framework 4.0 installé pourtant)

Mais bref.

Ma démarche, était de créer la fonction recherche à l'aide de macro, et cela m'aiderait beaucoup si vous pouviez m'expliquer à quel moment ma démarche, et ma réflexion, est fausse.

Donc pour résumer, je crée 2 textbox, nommée TXT_RechercheNom et TXT_RecherchePrenom, un bouton recherche (BT_Recherche) et une listbox pour afficher les résultats (LST_ResultatsRecherche)

Ma démarche a donc été de créer un évènement sur clic du BT_Recherche, une macro, qui dit :

Code Macro Access :

1
2
3
4
5
6
7
8
9
Si [TXT_RechercheNom]=""
Alors DéfinirVarTemp
Nom : RechercheNom
expression = "*"
 
Sinon DéfinirVarTemp
Nom : RechercheNom
expression = [TXT_RechercheNom]
Fin si

Idem pour le prénom.

Ensuite j'ai mis "Actualiser [LST_ResultatsRecherche]


Et dans l'évènement de la LST_ResultatsRecherche, après MAJ,

Code Macro Access :

1
2
3
4
5
6
OuvrirRequête
Nom : Recherche
Affichage : Feuille de données
Mode de données : lecture seule
 
Actualiser LST_ResultatsRecherche

Avec la requête Recherche qui contient :

Code SQL :

1
2
3
4
SELECT [Nom], [Prenom], [DateDeNaissance]
FROM Patients
WHERE [Nom]=[VarTemp]![RechercheNom] AND [Prenom]=[VarTemp]!RecherchePrenom]
ORDER BY Patients.Nom, Patients.Prenom;

Voila. quand je clic, il ne se passe rien, je ne sais pas vraiment ce qui ne colle pas, j'espère que vous pourrez m'éclairer sur le sujet smiling smiley

[Jeannot45]

Il y a pas mal de tutos sur le sujet des formulaires de recherches. Je te recommande fortement d'y plonger sans modération

1) Recherche multicritères avec ou sans code
2) Recherche multicritères
3) Formulaire de recherche prêt à l'emploi

Entre autres ...

Bonne lecture

[baryn]

Merci pour ta réponse.

Oui, je m'y plonge actuellement je pense du coup transformer tout ca en code VBA.

Mais, je souhaiterais quand même, pour mieux apprendre, comprendre pourquoi ma solution ne fonctionne pas... Si quelqu'un peut m'éclairer ??

[Jeannot45]

Je ne manipule pas trop les macros mais il me semble qu'il ne se passe rien parce qu'il faudrait faire une réactualisation de la liste LST_ResultatsRecherche (en quelque sorte une relecture de la requête source de la liste)

Bonne continuation

[baryn]

Donc dans la macro de LST_ResultatsRecherche, l'étape finale "Actualiser" ne suffit pas ?

Peut-être que je devrais le faire en sous formulaire ?

[Jeannot45]

Tu n'es pas obligé de passé par un sous formulaire voici ci-dessous un exemple de code que tu peux placer sur l'évènement "Sur Clic" du bouton de recherche :

Code VBA :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub btnRecherche_Click()
    Dim l_strSql As String
 
    l_strSql = "SELECT [T_Auteur].[CodeAuteur], [T_Auteur].[NomAuteur], [T_Auteur].[PrenomAuteur] " _
                 & "FROM [T_Auteur] " _
                 & "WHERE NomAuteur = '" & Me.txtNom & "' AND PrenomAuteur = '" & Me.txtPrenom & "'"
 
    ' Mise à jour de la liste
    Me.lstRecherche.RowSourceType = "Table/Query"
    Me.lstRecherche.RowSource = l_strSql
 
End Sub

A adapter avec tes noms de champs et de tables bien sur

Bonne continuation

[baryn]

Ok, je vais donc me lancer en VBA je pensais pouvoir ruser et y échapper mais à priori ça n'est pas la solution

Un grand merci pour tes conseils en tout cas