Renommer une base access après compactage

Version imprimable

bonjour voila un code que je suis en train de faire pour compacter des bases
dont leurs noms sont situés dans une table

tout marche bien jusquau renommage....
jarrive pas à trouver la solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub Label30_Click()
FLASH_cmdButton Me.Name, "Label30", MENU_BACK_REVERSE_COLOR, MENU_BACK_COLOR, 5, True
Dim r As DAO.Recordset
Set r = CurrentDb.OpenRecordset("SELECT * FROM [Bases] where Flag=-1")
Do Until r.EOF
    v = Compact(r![nomcompact], r![Chemin base])
r.MoveNext
Loop
End Sub
 
 
 
 
 
Public Function Compact(nombase As String, source As String) As Boolean
Compact = False
        If Right(source, 1) <> "\" Then       ''''retraitement des chemins source et destination
            source = source & "\"
        End If
Dim nombase1 As String
Dim nombase2 As String
nombase1 = source + nombase + ".mdb"
nombase2 = source + nombase + "temp" + ""
    DBEngine.CompactDatabase nombase1, nombase2
    Kill nombase1
    DoCmd.Rename nombase1, nombase2      'C'est la ou ca bloque!!!!!!
    Compact = True
End Function

Merci de votre aide

04/09/2006, 14h55
cafeine

Hello,

DoCmd.Rename marche pour des objets Access pas pour des fichiers :

http://access.developpez.com/faq/?re...nommer+fichier
04/09/2006, 14h57
VBBBA

c'est pas des fichiers que je manipule mais des bases access, donc des objets access, nom?
je vais aller voir ton lien...
04/09/2006, 15h01
cafeine

extrait de l'aide sur DoCmd.Rename :

Citation:

typeobjet Une des constantes intrinsèques suivantes :
acDataAccessPage
acDefault (valeur par défaut)
acDiagram
acForm
acMacro
acModule
acQuery
acReport
acServerView
acStoredProcedure
acTable
04/09/2006, 15h34
VBBBA

je ne vois toujours pas....
error 13 type mismatch
04/09/2006, 16h37
ActionAccess
Bonjour,

Pour renommer un fichier (base access ou autre pdf, txt...), je connais 2 méthodes :

1 : En utilisant la référence à ajouter "Microsoft Scripting Runtime" :
Code:

1 2 3 Dim fs As New Scripting.FileSystemObject Set fs = CreateObject("Scripting.FileSystemObject") fs.MoveFile "C:\Nom Du Fichier.mdb", "C:\Nom Du Fichier copie.mdb"
2 : En utilisant l'action Name comme ceci :

Code:

Name "C:\Nom Du Fichier.mdb" As "C:\Nom Du Fichier copie.mdb"

Espérant avoir répondu à la question.

Cdlt,