Newsgroup: it.comp.appl.access
Titolo: rinominare un file mdb comprensivo di data, ora, minuti e secondi

Buongiorno a tutti.
Avrei bisogno di un aiutino per risolvere il seguente problema.
Ho creato un comando con il quale creo una copia di sicurezza, un file mdb 
contenente soltanto le tabelle che mi interessa salvare, denominato 
"CopieSicurezza.mdb".
Come ultima istruzione desidero rinominare file "CopieSicurezza.mdb" in 
"CopieSicurezza_yyyy-mm-dd hh:mm:ss.mdb" così da ottenereil nome del file 
composto da data, ora, minuto e secondo.
Il codice da me scritto è il seguente ma riesco ad ottenere solo un 
risultato privo però dell'ora, minuto e secondo.
Per cortesia, qualcuno può venirmi in soccorso ?
Grazie
Saluti
Lucky
====================================================================================================
Private Sub Comando78_Click()
On Error GoTo Err_Comando78_Click
 
'---------------------------------------------------------------------------------------------------
'Procedura per la creazione del database 
C:\GestioneStudioProf\CopieSicurezza.mdb
'---------------------------------------------------------------------------------------------------
    Dim wrkPredefinita As Workspace
    Dim dbsNuovo As Database
 
    ' Ottenere l'area di lavoro predefinita.
    Set wrkPredefinita = DBEngine.Workspaces(0)
 
    ' Assicurarsi che non esista già un file con lo stesso nome del 
database.
    If Dir("C:\GestioneStudioProf\CopieSicurezza.mdb") <> "" Then Kill 
"C:\GestioneStudioProf\CopieSicurezza.mdb"
 
    ' Creare il nuovo database
    Set dbsNuovo = 
wrkPredefinita.CreateDatabase("C:\GestioneStudioProf\CopieSicurezza.mdb", 
dbLangGeneral)
 
    dbsNuovo.Close
'---------------------------------------------------------------------------------------------------
'Fine Procedura creazione del database 
C:\GestioneStudioProf\CopieSicurezza.mdb
'---------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------
'Inizio Proedura Copia di tutte le Tabelle del database
'---------------------------------------------------------------------------------------------------
    Dim StrgSQL As String
'---------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------
'Copia della Tabella <<Anagrafica Professionista>> (struttura e dati)
'dall'attuale db, dal quale viene eseguito il presente comando, al db 
esterno situato
'in C:\GestioneStudioProf\CopieSicurezza.mdb.
StrgSQL = "SELECT * INTO [Anagrafica Professionista] IN 
'C:\GestioneStudioProf\CopieSicurezza.mdb' FROM [Anagrafica 
Professionista];"
'Execute the Query...
CurrentDb.Execute StrgSQL, dbFailOnError
'---------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------
'Copia della Tabella <<CLIENTI>> (struttura e dati)
'dall'attuale db, dal quale viene eseguito il presente comando, al db 
esterno situato
'in C:\GestioneStudioProf\CopieSicurezza.mdb.
StrgSQL = "SELECT * INTO [CLIENTI] IN 
'C:\GestioneStudioProf\CopieSicurezza.mdb' FROM [CLIENTI];"
'Execute the Query...
CurrentDb.Execute StrgSQL, dbFailOnError
'---------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------
    If Dir("C:\GestioneStudioProf\CopieSicurezza" & Format(Date, 
"_yyyy-mm-dd-HH:mm:ss") & ".mdb") <> "" Then Kill 
"C:\GestioneStudioProf\CopieSicurezza" & Format(Date, 
"_yyyy-mm-dd-HH:mm:ss") & ".mdb"
 
Name "C:\GestioneStudioProf\CopieSicurezza.mdb" As 
"C:\GestioneStudioProf\CopieSicurezza" & Format(Date, 
"_yyyy-mm-dd-HH:mm:ss") & ".mdb"
 
Exit_Comando78_Click:
    Exit Sub
 
Err_Comando78_Click:
    MsgBox Err.Description
    Resume Exit_Comando78_Click
 
End Sub
 
==================================================================================================== 
 
 

 ...
 
La funzione Date() solo ritorna la data senza il tempo.
Prova di sostituirla con: Now()
 
-- 
Ciao
Karl
*********
Access FAQ:  
http://www.donkarl.com/it
 
 
 

 ha scritto nel messaggio 
news:ajh08t...@mid.individual.net...


 "C:\GestioneStudioProf\CopieSicurezza" & Format(Now()) & ".mdb"
 
No, ma p.e.
 
Name "C:\GestioneStudioProf\CopieSicurezza.mdb" _
  As "C:\GestioneStudioProf\CopieSicurezza" & _
  Format(Now(), "_yyyy_mm_dd__HH_mm_ss") & ".mdb"
 
Il ":" invece e altri segni speciali possono dare problemi
in un nome di un file.


> il codice da scrivere � questo ?
