Ciao a tutti, vi posto questo codice che ho inserito in un bottone di una maschera di Access........
Il pulsante mi permette di copiare delle righe presenti su un fogilio di excel in una tabella di access,ma cliccando 2 volte sul bottone l'applicazione mi si blocca,controllando il task manager mi accorgo che rimane attivo un processo EXCEL.exe e questo non viene chiuso finchè nn chiudo access,come mai?Ho dimenticato di chiudere qualcosa?a me sembra di no,eppure!!!!!!!!Ringrazio tutti coloro mi vorranno dare una mano,ciao e grazie ancora!
Private Sub Comando0_Click()
Dim DBCOrrente As DAO.Database
Dim Tabella As DAO.Recordset
Dim I As Long
Dim Cella
Dim Percorso
'Apri File Excels
Percorso = Excel.Application.GetOpenFilename("File Excels(*.xls),*.xls", , "Apri", , False)
Workbooks.Open Filename:=Percorso
'Apro Tabella1
Set DBCOrrente = CurrentDb
Set Tabella = DBCOrrente.OpenRecordset("CONTROLLO")
'Copio le righe del CONTROLLO nella tabella
I = 21
Cella = Worksheets("CONTROLLO").Range("A" & I)
Do While Cella <> ""
On Error GoTo Errori
Tabella.AddNew
Tabella.Fields("Cod_lavoro") = Worksheets("CONTROLLO").Range("A" & I)
Tabella.Fields("Descrizione") = Worksheets("CONTROLLO").Range("B" & I)
Tabella.Update
I = I + 1
Cella = Worksheets("CONTROLLO").Range("A" & I)
Errori: 'Routine per gestione errori
Select Case Err.Number 'Controlla il numero dell'errore
Case 3022
End Select
Resume Next 'Riprende dalla riga successiva
Loop
'Chiudo Tabella
Tabella.Close
DBCOrrente.Close
'Chiude File Excels
Workbooks("COMMESSA PROTOTIPO.xls").Close
End Sub
Ciccio
>>Domandare è lecito,rispondere è cortesia