Discussion :

[dante591]

Bonjour, j'ai suivi ce tutoriel ==>http://claudeleloup.developpez.com/t...che-pere-fils/ et pas moyen d'avoir le résultat escompté.

Lorsque je lance une recherche, une boite de dialogue m'annonce qu'il y a une erreur dans SubActu.

Autre chose, lorsque j'utilise le bouton, cela m'annonce que le code ctl.Name n'est pas valide.
Ai je fait quelque chose de mal ?

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
Public Sub Actu()
  On Error GoTo GestionErreurs
  Dim ctl As Control
  Me(sConteneur).LinkMasterFields = ""
  Me(sConteneur).LinkChildFields = ""
  For Each ctl In Me.Controls
     If Left(ctl.Name, 6) = "filtre" And Not IsNull(Me(ctl.Name)) Then
         Me(sConteneur).LinkChildFields = Me.Table_contacts_Logways1.LinkChildFields _
             & "[" & Right(ctl.Name, Len(ctl.Name) - 6) & "];"
         Me(sConteneur).LinkMasterFields = Me.Table_contacts_Logways1.LinkMasterFields _
             & "[" & ctl.Name & "];"
     End If
  Next ctl
  Exit Sub
GestionErreurs:
  Select Case Err.Number
    Case 2335  'survient à partir de la 2e affectation d'un champ fils (sans conséquence)
      Resume Next
    Case Else
      MsgBox "Erreur dans Sub Actu : " & Err.Number & " " & Err.Description
  End Select
End Sub

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,

Ai je fait quelque chose de mal ?

Pose le zip de ta BdB en format compatible Access2000, j'y jetterai un œil. Et si tu as fait quelque chose de mal, ça restera entre nous !

[dante591]

Voila

Merci pour ta réponse !!
J'ai de la chance de tomber sur toi

[ClaudeLELOUP]

Bonjour,

J'ai de la chance de tomber sur toi

Pas sûr : j'utilise Access2000 et je ne peux lire ton fichier.

Pose le zip de ta BdB en format compatible Access2000, j'y jetterai un œil...

Désolé !

[madefemere]

Bonjour,

Vous avez laissé trainer un nom d'étiquette non conforme dans votre formulaire :
L'étiquette du code postal porte le nom de "Filtre", mot-clé réservé pour toute la procédure. Ce qui provoque une erreur.

De plus, je vous conseille de prendre de bonnes habitudes dans le nom de vos objets : pas d'espace, pas de caractères accentués et de caractères spécifiques. Ca cause des dégâts imprévisibles dans un code VBA.

Claude, je te salue au passage

Bonne continuation.

[dante591]

Oh mon dieu comment ai je pu être si inattentif? :O

Merci bien en tout cas !!!
Par contre mes listes de choix pour la recherche ne sont pas affichées mais bon je regarderai plus tard.

Et merci pour les conseils, vous êtes super.

[ClaudeLELOUP]

Claude, je te salue au passage

Content de te croiser Mandresy !

Bien à toi,

Claude

[dante591]

Est il également possible de faire en sorte que la recherche se fasse par un filtre de texte "contient..."
Ce que je veux dire c'est qu'avec ce système je reçois les réponses exactes de ma recherche.

Si je tape "Michel" dans la recherche, tous les enregistrement contenant "Michel" vont apparaitre.
Mais comment faire pour que les "Michel" apparaissent en ne tapant dans la barre de recherche que "mich" par exemple ?
Quelque chose à changer dans le code ?

[ClaudeLELOUP]

Non, pas avec cette méthode.

Par contre, tu peux t'inspirer de ce tutoriel : http://claudeleloup.developpez.com/t...-multicritere/ pour le cas que tu évoques.

Et rien ne t'empêche de mixer les deux méthodes...