Newsgroup: it.comp.appl.access
Titolo: [2007] errore in modulo di gestione (?)

>>>>  
http://www.bb2002.it
 :)  <<<<<
........... [ al lavoro ] ...........

 
 
dimenticavo: 
 
la procedura è stand-alone, il db non è condiviso con altri utenti, è un 
passaggio intermedio di una serie di calcoli, si limita a prendere tutti i 
file excel di una cartella e a convertirli in tabelle access (all'interno 
del db stesso)
 
il pc è monoutente
 
le altre installazioni (funzionanti su altri pc) prendono gli stessi file 
excel (dal server) e li elaborano senza problemi
 
il programma, dovrebbe fermarsi a una maschera con il pulsante di conferma 
dell'operazione, non effettua nessun tipo di operazione sui file/tabelle 
prima di cliccare OK
 
cose che mi vengono in mente:
- sostituire la versione 2007 con il runtime 2010 o 2013
- cancellare tutte le tabelle del file access prima di reimportarle dai 
file excel (ma non mi convince)


 
 
    Dim MyName, TableName, MyDir As String
    MyDir = SourceFilePath
 
    MyName = Dir(MyDir + "*.xlsx")
    Do While MyName <> ""
        With ctl
            TableName = Left(MyName, Len(MyName) - 9)
                ' Manage some particular cases
                If TableName = "BUDGET" Then TableName = "BUDGET1"
                If TableName = "COMPANY" Then TableName = "COMPANY1"
                ' end of particular cases
            DoEvents
            SysCmd acSysCmdSetStatus, "Importing : " & TableName
            On Error Resume Next
            CurrentDb.TableDefs.Delete (TableName)
            DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, 
TableName, MyDir + MyName, True
        End With
        MyName = Dir
    Loop
SysCmd acSysCmdSetStatus, "Done : click Exit to close"


 
 
problema riscontrato anche su un altro pc, nuovo di pacca, con w10 e access 
runtime 2013; sul pc c'è installato anche office 2016 (senza access)


 
 
sul web si trova di tutto, per adesso ho provato, senza successo:
 
- aprire il fiel tenendo premuto shift, per poterlo compattare e 
ripristinare: fallito, il messaggio di errore si presenta comunque
 
- creare un file nuovo e importare tutto: fallito, il messaggio di errore 
si presenta subito dopo aver confermato l'operazione
 
Vado a provare JetComp... :(


 
 
https://support.microsoft.com/it-it/kb/182867
 
 
ho aperto il file dove si poteva ancora farlo, ho cancellato tutte le 
tabelle create dalla procedura (quelle che in origine erano file excel), 
compattato e chiuso
 
lo ho copiato sui due pc problematici, entrambi sono partiti 
tranquillamente e hanno fatto il loro dovere
 
Aggiungo un promemoria per le TrustedLocations in caso di Access Runtime
 
http://stackoverflow.com/questions/31509299/adding-trusted-location-to-
 
access-run-time
 
Access 2007:
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted 
Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted 
Locations\Location(n)]
 
Access 2010:
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted 
Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Access\Security\Trusted 
Locations\Location(n)]
 
Access 2013:
[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security\Trusted 
Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Access\Security\Trusted 
Locations\Location(n)]
 
Access 2016:
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted 
Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Access\Security\Trusted 
Locations\Location(n)]
 
Example of how it will look
"Path"="C:\PathToDB\"
"AllowSubfolders"=dword:00000001
"Description"="The description"
"Date"="01.01.2007 12:00"
