Discussion :

[jaffael]

Bonjour, je me sens tout petit à devoir poser cet question, mais j'ai un problème avec un sort, voilà le code :

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
23
  Dim db As Database
  Dim rs As Recordset
  Dim tmp As String, file As String
  Dim fs As Object
  Dim i As Long
 
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set db = DBEngine.Workspaces(0).OpenDatabase(dbName)
  Set rs = db.OpenRecordset(tableName)
 
 rs.Sort = "Compteur DESC" '<-- le problème est là
 
 rs.MoveFirst
  While Not rs.EOF
    If (rs!Ext) Then
      If (fs.FileExists(rs!chemin)) Then
        tmp = GenerateName(prefix, rs!Compteur)
        If (rs!chemin <> tmp) Then fs.MoveFile rs!chemin, tmp
      End If
    End If
 
    rs.MoveNext
  Wend

je mets le sort parce que j'ai besoin d'être sûr pour la vérification et la génération des noms que le numéro soit décroissant.

quand je ne mets pas la ligne rs.Sort = "Compteur DESC", ça va, mets si je le mets, j'ai:

Erreur d'éxécution '3251'
Opération non autorisée pour ce type d'objet

Que puis-je faire ?

[Tofalu]

Vous pouvez utiliser la propriété Sort avec des objets Recordset de type instantané ou feuille de réponse dynamique.

En ouvrant le curseur en opendynaset ça devrait passer. Là par défaut, il doit être en table.

Code :

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

Set rs = db.OpenRecordset(tableName,dbOpenDynaset)

Code :

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

Set db = DBEngine.Workspaces(0).OpenDatabase(dbName)

Set Db=currentdb() c'est pas plus zoli ?

[jaffael]

effectivement le fait d'ajouter "dbOpenDynaset" en argument et c'est IMPEC, merci beacoup !!

Set Db=currentdb() c'est pas plus zoli ?

ben c'est pas possible, dbName c'est des vieilles données à part de mon appli.

[Tofalu]

ben c'est pas possible, dbName c'est des vieilles données à part de mon appli.

J'avais pas vu le dbname

Pour info, y a aussi les methodes FindX qui demande aussi à etre en dynaset