Faire une recherche dans table

**ia.jenny** · 31/10/2010, 09h36

Bonjour,
J'ai réalisé un petit programme simple pour faire une recherche de film :

Dans la table : Genre, Année de production et Titre.
Dans le formulaire : on rentre l'information Genre / Année de production

Quand, je clique sur "Recherche", je souhaite afficher les titres des filmes qui ont cette caractéristiques.

Merci beaucoup

@+

**Dolphy35** · 31/10/2010, 10h49

Bonjour,

Vous trouverez tout ce qu'il faut dans la page des tutoriels

http://access.developpez.com/cours/?...#formrecherche

@+

**LedZeppII** · 31/10/2010, 11h10

Bonjour,

Ouvre ton formulaire principal en mode création.
Clique sur le bouton Rechercher et affiche ses propriétés.
Va dans l'onglet «Evénement».
Sur la ligne «Sur clic» sélectionne [Procédure événementielle]
Clique sur le petit bouton avec trois petits points.
Tu obtiens une procédure vide

Code :

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

1
2
3
Private Sub Recherche_Click()
 
End Sub

Entre la premère ligne (Private Sub ...) et la dernière ligne (End Sub), insère ce code :

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
17
18
19
20
21
22
23
24
25
26
27
28
Dim strFiltre As String
Dim strCritGenre As String, strCritAnnee As String
 
' Lire la valeur du critère Genre
strCritGenre = Nz(Me.Texte0, "")
' Lire la valeur du critère Année de production
strCritAnnee = Nz(Me.Texte2, "")
 
' Si critère Genre n'est pas vide
If Len(strCritGenre) > 0 Then
   strFiltre = "((Genre)='" & strCritGenre & "')"
End If
 
' Si critère Année de production n'est pas vide
If Len(strCritAnnee) > 0 Then
   If Len(strFiltre) > 0 Then strFiltre = strFiltre & " AND "
   strFiltre = strFiltre & "(([Année de production])=" & strCritAnnee & ")"
End If
 
' Si filtre n'est pas vide, l'appliquer au sous-formulaire
If Len(strFiltre) > 0 Then
   Me.Table1_sous_formulaire.Form.Filter = strFiltre
   Me.Table1_sous_formulaire.Form.FilterOn = True
' Sinon enlever le filtre
Else
   Me.Table1_sous_formulaire.Form.FilterOn = False
   Me.Table1_sous_formulaire.Form.Filter = ""
End If

A+

**rjamin** · 31/10/2010, 11h24

Bonjour,

Ma modeste contribution.

J'ai mis une liste déroulante pour le genre dans le formulaire et je fais afficher tout les films du même genre sans distinction d'année.

Je sais que celamodifie la demande mais j'ai trouvé cela plus pratique sans l'année.

**ia.jenny** · 31/10/2010, 11h29

Merci tout le monde pour vos messages!
Je vais étudier tout ça

**ia.jenny** · 31/10/2010, 13h12

J'ai essayé la méthode LedZeppII
Je ne sais pas pourquoi ça ne fonctionne pas.
Certainement un problème de variable.

Quand, je clique sur "Recherche", il se passe rien.

**LedZeppII** · 31/10/2010, 13h43

Envoyé par ia.jenny

J'ai essayé la méthode LedZeppII
Je ne sais pas pourquoi ça ne fonctionne pas.
Certainement un problème de variable.

Quand, je clique sur "Recherche", il se passe rien.

Tu as changé le nom du champ «Année de production» en «Annee».
Cela a un impact sur ce bout de code :

Code :

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

1
2
3
4
5
' Si critère Année de production n'est pas vide
If Len(strCritAnnee) > 0 Then
   If Len(strFiltre) > 0 Then strFiltre = strFiltre & " AND "
   strFiltre = strFiltre & "(([Année de production])=" & strCritAnnee & ")"
End If

Remplace Année de production par Annee

Code :

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

1
2
3
4
5
' Si critère Année de production n'est pas vide
If Len(strCritAnnee) > 0 Then
   If Len(strFiltre) > 0 Then strFiltre = strFiltre & " AND "
   strFiltre = strFiltre & "(([Annee])=" & strCritAnnee & ")"
End If

A+

**ia.jenny** · 31/10/2010, 13h54

Oui, j'ai remplacé "Année de production" par "Annee" pour simplifier.
Exacte, j'ai oublié de le remplacer dans "Film_version2.zip"

Je m'en suis aperçu après aussi, mais ça ne fonctionne toujours pas.

**LedZeppII** · 31/10/2010, 15h10

Est-ce que as un avertissement de sécurité disant que le contenu de la base est désactivé ?

**ia.jenny** · 31/10/2010, 15h17

Pas pour le moment.
sinon oui, j'ai déjà rencontré un avertissement de sécurité disant que le contenu de la base est désactivé.

**LedZeppII** · 31/10/2010, 15h36

Pour vérifier si le code s'exécute :

Ouvre ton formulaire principal en mode création.
Clique sur le bouton Rechercher et affiche ses propriétés.
Va dans l'onglet «Evénement».
Sur la ligne «Sur clic» sélectionne [Procédure événementielle]
Clique sur le petit bouton avec trois petits points.
Tu te retrouves dans la procédure Recherche_Click()

Juste avant la ligne

Code :

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

' Lire la valeur du critère Genre

insère la ligne

Code :

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

MsgBox "Début exécution", , "Recherche_Click()"

Quand tu cliques sur le bouton Rechercher, ça doit afficher le message "Début exécution"

S'il ne s'affiche pas c'est que la base de données n'est pas dans un emplacement approuvé.

1) Est-ce que le message s'affiche ?
2) As-tu déjà défini des emplacement approuvé ?

A+

**ia.jenny** · 31/10/2010, 15h43

1) Est-ce que le message s'affiche ?

j'ai rien

As-tu déjà défini des emplacement approuvé ?

heu... non, c'est quoi

**LedZeppII** · 31/10/2010, 16h29

Un emplacement de confiance c'est juste un dossier.
On peut en ajouter autant que l'on veut.
Le contenu (code VBA notamment) des bases de données se trouvant dans un emplacement de confiance est activé.
A contrario, le contenu d'une base de données ne se trouvant pas dans un emplacement de confiance, est désactivé.

Dans Access, clique sur le bouton Office (gros bouton dans le coin supérieur gauche).
Cliques sur le bouton «Options Access» (en bas à droite de la fenêtre qui vient de s'ouvrir).
Une fenêtre «Options Access» s'ouvre.
Dans le panneau latéral gauche clique sur «Centre de gestion de la confidentialité».
Clique sur le bouton «Paramètres du Centre de gestion de la confidentialité».
Ça ouvre une nouvelle fenêtre «Centre de gestion de la confidentialité».

Centre de gestion de la confidentialité.
- Emplacements approuvés.
  Dans le panneau latéral gauche de cette nouvelle fenêtre, clique sur «Emplacements approuvés».
  Clique sur le bouton «Ajouter un nouvel emplacement...».
  Une nouvelle fenêtre intitulée «Emplacement de Microsoft Office approuvé» s'ouvre.
  Clique sur le bouton «Parcourir».
  Ça ouvre une boîte de dialogue d'ouverture de dossier.
  Sélectionne y ton dossier, puis clique sur «OK».
  De retour dans la fenêtre «Emplacement de Microsoft Office approuvé», tu as la possibilité de cocher l'option «Les sous-dossiers de cet emplacement sont également approuvés».
  Si tu le fais, tous les sous-dossier seront eux aussi des emplacements approuvés.
  Fais ton choix, puis clique sur «OK».
- Paramètres des macros.
  Dans le panneau latéral gauche, clique sur «Paramètres des macros».
  Si ce n'est pas déjà fait, choisi l'option «Désactiver toutes les macros avec notification».
- Barre de messages.
  Dans le panneau latéral gauche, clique sur «Barre de messages».
  Si ce n'est pas déjà fait, choisi l'option «Afficher la barre des messages dans toutes les applications lorsque le contenu est bloqué».
Clique sur «OK» pour fermer la fenêtre «Centre de gestion de la confidentialité».

Enfin, clique sur «OK» pour fermer la fenêtre «Options Access».

Maintenant, assure toi que ta base de données est dans un emplacement approuvé, et réouvre la.

A+

**ia.jenny** · 31/10/2010, 16h46

ha voila...
ça fonctionne,
Merci 1000 fois

Faire une recherche dans table [AC-2007]

Access

Discussions similaires

Partager

Partager