Aide sur VBA pour recherche multicriteres

[reservoirfrog]

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]

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]

Re : Aide sur VBA pour recherche multicriteres

Salut Bruno,

Voici le lien Tutoriel Access - Recherche multi-critres cafeine

 

[Compte Supprimé 979]

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]

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]

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]

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

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]

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]

Re : Aide sur VBA pour recherche multicriteres

Salut,

Pour moi c'est normal, puisque dans ta commande

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

"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]

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]

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]

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]

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]

Re : Aide sur VBA pour recherche multicriteres

Bonjour reservoirfrog 😉

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]

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 ;-)