Bonjour, je me sens tout petit à devoir poser cet question, mais j'ai un problème avec un sort, voilà le code :
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.
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
quand je ne mets pas la ligne rs.Sort = "Compteur DESC", ça va, mets si je le mets, j'ai:
Que puis-je faire ?Erreur d'éxécution '3251'
Opération non autorisée pour ce type d'objet
Partager