Discussion :

[AndréPe]

Bonjour,
J'ai du code qui fonctionne bien dans une procédure, mais qui refuse de s'exécuter dans une autre du même module.
Le code qui bloque sur

Code :

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

FindFirst "ABR=" & IndexBase

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim MaBd As Database
Set MaBd = DBEngine.Workspaces(0).Databases(0)
Dim rstI As DAO.Recordset
Set rstI = MaBd.OpenRecordset("index")
'Tester présence de ABR dans index
With rstI
  .MoveFirst
  .FindFirst "ABR=" & IndexBase
  If Not .NoMatch Then 'l'index contient dèjà des éléments de IndexBase
    msg = MsgBox("Il faut supprimer la base de l'index avant de continuer.", vbOKOnly)
    GoTo Exit_CreeIndex
  End If
 
End With

et celui qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim MaBd As Database
Set MaBd = DBEngine.Workspaces(0).Databases(0)
Dim MonJeu As DAO.Recordset
Set MonJeu = MaBd.OpenRecordset("état civil")
    MonJeu.MoveFirst
    sql = "[N° COCHEM] = " & Val(coch)
    MonJeu.FindFirst sql
    If Not MonJeu.NoMatch Then ....
 '   End If
End Sub

Le remplacement de "=" par "LIKE" dans le critère ne change rien.

Si vous avez une idée ?
Amitiés

[Jeannot45]

Hello AndréPe

est-ce que ta table est indexée auquel cas utilise plutot : SEEK

Jeannot

[Invité]

Bonjour

De quel type est le champ "ABR" ?

Starec

[AndréPe]

Merci de vos réponses.
@Jeannot45 : oui la table est indexée, je vais voir ce que donne SEEK.
Mais pourquoi çela fonctionne-t-il dans un cas et pas dans l'autre ?

@starec : le champ ABR est un champ TXT, comme IndexBase
A+

[Invité]

@starec : le champ ABR est un champ TXT, comme IndexBase
A+

Alors il faut que tu mettes des quotes, essaye

Code :

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

"ABR='" & IndexBase & "'"

Starec

[AndréPe]

@starec ça ne change rien ->

"Erreur 3251 opération non autorisée pour ce type d'objet"

@Jeannot45 : je précise, la table index est indexée mais pas sur le champ ABR, donc SEEK ne donne rien


J'ai souvent utilisé "FindFirst" et c'est la première fois que je rencontre cette erreur.

[Invité]

Re

Je t'avoue je ne l'utilise jamais, je préfére une bonne requête SQL, je ne voie pas.

Starec

[Jeannot45]

Hello,

Etant donné que dans le premier cas la procédure fonctionne bien, je reprendrai le meme principe (pour vérifier)

1) passer par une variable pour récupérer la concaténation

Code :

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

sql = "ABR = '" & Index & "'"

2) Faire gaffe aux espaces et aux Quotes puisque ton ABR est en Texte

Cela parait primaire mais bon .... peut etre que ....

Jeannot

[AndréPe]

Bonjour,
J'avais laissé ce pb de côté et je viens de m'y remettre.

Tout va bien si on ouvre les recordset en DB_OPEN_DYNASET, le FindFirst est accepté, et pas besoin de DAO.

Merci de votre implication
Amitiés