FindFirst sur un champ Memo TexteEnrichi Indexé avec Doublons [Résolu]

[symbabeauchat]

Bonjour à tous

MA Table avec 3 champs:

Klé AutoNum
N°Classement Texte Indexé
Description Mémo TexteEnrichi Indexé avecDoublons

Voici mon code qui marche bien tant que [Description] est un champ Texte simple
ChampRecherche c'est mon champ Indépendant pour la saisie de mes critères

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub ChampRecherche_Change()
 
    Me.Requery
         Set rst = Me.Recordset
         rst.FindFirst "[Description] Like """ & Me.ChampRecherche & "*"""
 
    'Champ suiveur
     Me.ChampRecherche.SetFocus
     On Error Resume Next
     Me.ChampRecherche.SelStart = Len(Me.ChampRecherche)[/INDENT]
End Sub

Je transforme [Description] en champ Memo TexteEnrichi Indexé avec Doublons
et là j'ai erreur 3464 : type de données incompatibles dans l'expression du critère
Je croyais que 2007 permettait d'indexé un champ Memo et de ce fait faire des recherche dessus mais j'ai pas tout capté

Merci de vos réponses

[loufab]

Bonjour,

Un champ mémo indexé peut ralentir significativement les accès à une table.

Ceci dit l'absence d'index sur un champ n'empêche pas de faire des recherches dessus. Surtout que Findfirst n'exploite pas les indexes à la différence de Seek.

Au passage les noms de champs avec des mots réservés c'est pas trop conseillé.

Cordialement,

[symbabeauchat]

Bonjour à tous

Au passage merci loufab pour tes conseils : j'ai supprimer l'index sur mon champ mémo

Ma solution : j'ai rajouter le générique "*" devant Me.ChercheDescription et çà marche super.
Je pense que les balises d'enrichissement du texte devaient géner la recherche.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ChercheDescription_Change()
Me.Requery
Set rst = Me.Recordset
 
     rst.FindFirst "[Description] Like """ & "*" & Me.ChercheDescription & "*"""
 
    'Champ suiveur
     Me.ChercheDescription.SetFocus
     On Error Resume Next
     Me.ChercheDescription.SelStart = Len(Me.ChercheDescription)
 
  End Sub

Cordialement