Aide sur VBA pour recherche multicriteres

reservoirfrog · 23 Avril 2012

Bonjour,
Cela fait plusieurs jours que je bloque littérallement sur des erreurs de code sur mon formulaire de recherche multicriteres (adapté de la version Caféine).
J'ai comparé, repris ligne par ligne mais il subsiste toujours des problemes que je n'arrive pas a démeler.

Je joins mon projet, si une personne pouvait m'éclairer
Merci d'avance!

Compte Supprimé 979 · 23 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Bonjour reservoirfrog

Peux-tu nous donner le lien de la version Caféine !?

Lors de l'ouverture du formulaire, j'ai une erreur OLE / Controle ActiveX ??

A+

reservoirfrog · 23 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Salut Bruno,

Voici le lien Tutoriel Access - Recherche multi-critres cafeine

Compte Supprimé 979 · 23 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Re,

Tu avais des erreurs de création dans ton formulaire, je l'ai donc complètement refait
Ensuite tu avais quelques erreurs dans le code mis à jour, j'ai rectifié

Ca devrait beaucoup mieux fonctionner

A+

reservoirfrog · 24 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Bonjour Bruno,
Merci! Je suis impressionné! Cela fonctionne super bien sauf pour le panneaux de résultats, la colonne "ID" m'est inutile, je vais réctifier selon mes besoins ;-)
Merci encore du coup de main )

reservoirfrog · 24 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Hello, j'ai une petite remarque.
Pourquoi, a l'ouverture du formulaire, le compteur de lblstats ne se met pas a jour? il faut activer un champ de recherche quelconque pour qu'il se mette a jour. Y'a t'il moyen de l'actualiser a l'ouverture?
Merci

Compte Supprimé 979 · 24 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Salut Reservoirfrog,

Normal ton étiquette n'est pas mise à jour à l'ouverture du formulaire

Si tu veux changer, il faut utiliser ce code

Code:

Private Sub Form_Load()
  Dim SQL As String, NbEnr As Long
  Dim ctl As Control


  For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
    Case "chk"
      ctl.Value = -1


    Case "lbl"
      ctl.Caption = "- * - * -"


    Case "txt"
      ctl.Visible = False
      ctl.Value = ""


    Case "cmb"
      ctl.Visible = False


    End Select
  Next ctl


  SQL = "SELECT ID, Disposition, [SDRL Item Number], [Document Number], [Document Desc] FROM Import_SDRL;"
  NbEnr = DCount("*", "Import_SDRL")
  Me.lblStats__.Caption = NbEnr & " / " & NbEnr
  Me.lstResults.RowSource = SQL
  Me.lstResults.Requery
End Sub

A+

reservoirfrog · 25 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Bonjour, merci pour les conseils!
Ce matin j'ai un autre soucis, l'ouverture du formulaire lorsqu'on dble clic sur une ligne quelconque me donne un mess "entrez la valeur du parametre" alors que normalement, cela doit ouvrir la fiche formulaire de l'enregistrement concerné.
Je joins la base, si tu peux m'éclairer sur ce probleme ;-)
Merci!

Compte Supprimé 979 · 25 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Salut,

Pour moi c'est normal, puisque dans ta commande

Code:

DoCmd.OpenForm "Detail_SDRL", acNormal, , "[ID] = " & Me.lstResults

Tu lui envoies la valeur du champ [Effectivity] au lieu de [ID]

Ce qu'il faut faire :
1) Ajouter la largeur de la 1èe colonne à 0cm
0cm;2cm;3,3cm;2,3cm;4,512cm;5cm;3,521cm;1,508cm;3,6cm
2) Définir ton champ [ID] comme étant le premier

Code:

"SELECT ID, Effectivity, [SDRL Item Number], [SDT Number], [Data Item],[Document Number], [Document Desc], Revision, Disposition FROM Import_SDRL;"

Ainsi ta commande d'ouverture du formulaire "Detail_SDRL" fonctionnera correctement

Voir fichier joint

A+

reservoirfrog · 25 Avril 2012

Re : Aide sur VBA pour recherche multicriteres

Bonsoir,

Erreurs d'étourderie...a force d'avoir le nez dessus, je ne vois meme plus ce genre d'erreur!
Merci et bonne soirée!

reservoirfrog · 15 Mai 2012

Re : Aide sur VBA pour recherche multicriteres

Bonjour,

J'ai une question: est il possible de trier la liste des résultats sur la ligne d'en-tête des résultats du formulaire a la maniere d'Excel?

merci d'avance

Compte Supprimé 979 · 15 Mai 2012

Re : Aide sur VBA pour recherche multicriteres

Salut Reservoirfrog,

Tu peux trier tes données
Il faut ajouter ORDER BY NomChamp dans ta requête

a+

reservoirfrog · 13 Juin 2012

Re : Aide sur VBA pour recherche multicriteres

Bonjour,

Je reviens sur ce topic pour une question d'adaptation.
En effet, j'ai adapté ce formulaire a une base existante mais les résultats que je veux faire apparaitres sont stockés dans 3 tables différentes.
Question 1: est il possible de le faire fonctionner depuis cette configuration?
Si trop fastidieux:
Question 2: est il possible de copier (par un moyen ou un autre), les entrées des 3 tables sur une seule sur laquelle je pourrais adapter le formulaire traité dans ce sujet?

Pour vos réponses: merci!

Compte Supprimé 979 · 13 Juin 2012

Re : Aide sur VBA pour recherche multicriteres

Bonjour reservoirfrog

reservoirfrog à dit:
En effet, j'ai adapté ce formulaire a une base existante mais les résultats que je veux faire apparaitres sont stockés dans 3 tables différentes.
Question 1: est il possible de le faire fonctionner depuis cette configuration?

Tout à fait, il suffit de passer par une requête en liant les tables ensembles

Ton FROM doit faire alors appel à cette requête

A+

reservoirfrog · 15 Juin 2012

Re : Aide sur VBA pour recherche multicriteres

Bonjour,

Effectivement, j'ai fait une requete "union" qui m'a permis de faire ce que je voulais ;-)

Aide sur VBA pour recherche multicriteres

reservoirfrog

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

reservoirfrog

XLDnaute Occasionnel

Compte Supprimé 979

Guest

Pièces jointes

reservoirfrog

XLDnaute Occasionnel

reservoirfrog

XLDnaute Occasionnel

Compte Supprimé 979

Guest

reservoirfrog

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Pièces jointes

reservoirfrog

XLDnaute Occasionnel

reservoirfrog

XLDnaute Occasionnel

Compte Supprimé 979

Guest

reservoirfrog

XLDnaute Occasionnel

Compte Supprimé 979

Guest

reservoirfrog

XLDnaute Occasionnel

Discussions similaires