IALweb Homepage
Forum Home Forum Home > Programmazione > Programmazione > VB
  New Posts New Posts RSS Feed - [RISOLTO] Errore kill file VBA
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

[RISOLTO] Errore kill file VBA

 Post Reply Post Reply
Author
Message
Platform View Drop Down
Veterano
Veterano
Avatar

Joined: 20/Set/2017
Status: Offline
Points: 1020
Post Options Post Options   Thanks (0) Thanks(0)   Quote Platform Quote  Post ReplyReply Direct Link To This Post Topic: [RISOLTO] Errore kill file VBA
    Posted: 14/Dic/2018 at 08:59
Ciao a tutti, ho il seguente problema ovvero l'istruzione kill funziona praticamente il 99% delle volte e mi elimina il file nella sua rispettiva cartella.
Kill m_Path & m_File & ".xml"
Il problema nasce quando attraverso access compilo un file word, ovvero il file word viene aperto e tramite access compilo i segnalibri, una volta chiuso il file word se provo a cliccare sul pulsante per eliminare il file xml tale comando è disabilitato ovvero durante il debug ho rilevato:
"Nonostante il percorso fosse giusto e il comando scritto correttamente arrivati all'istruzione:
Kill m_Path & m_File & ".xml"
la lettura del codice viene terminata e non viene nemmeno segnalato l'errore."

Quando chiudo il programma access e torno ad eliminare il file l'istruzione detta in precedenza funziona ma se ricompilo il file word non funziona più.

Quale può essere  la causa?


Edited by Platform - 14/Dic/2018 at 10:25
Back to Top
Sponsored Links


Back to Top
Platform View Drop Down
Veterano
Veterano
Avatar

Joined: 20/Set/2017
Status: Offline
Points: 1020
Post Options Post Options   Thanks (0) Thanks(0)   Quote Platform Quote  Post ReplyReply Direct Link To This Post Posted: 14/Dic/2018 at 09:34
Ho fatto un'ulteriore gestione dell'errore:
Function EliminaFile(ByVal m_Path As String, ByVal m_Id As Integer, ByVal m_File As String)
    If Len(Dir(m_Path & m_File & ".xml", vbDirectory)) <> 0 Then
        Dim YesNo As Integer
        YesNo = MsgBox("Eliminare il File?", vbYesNo)
        If YesNo = vbYes Then
q:
            If err.Number <> 0 Then
                MsgBox ("Runtime error " + CStr(err.Number) + ": Permission denied")
                Exit Function
            Else
                On Error GoTo q
                Kill m_Path & m_File & ".xml"
            End If
            LoadEXMLBool = True
            rib_Fattura.AggiornaLoadXML
            rib_Fattura.AggiornaFiltroXML
            rib_Fattura.AggiornaFattura
            m_Valore = 0
        Else
            Exit Function
        End If
    End If
end function
Come messaggio restituisce l'errore 70, praticamente una volta compilato il file word attraverso access mi viene negato l'accesso al percorso.
Come risolvo questo problema?



Edited by Platform - 14/Dic/2018 at 09:49
Back to Top
Platform View Drop Down
Veterano
Veterano
Avatar

Joined: 20/Set/2017
Status: Offline
Points: 1020
Post Options Post Options   Thanks (0) Thanks(0)   Quote Platform Quote  Post ReplyReply Direct Link To This Post Posted: 14/Dic/2018 at 10:25
Alla fine sono arrivato alla soluzione del problema:
Sub modObject_FatturaEmessa()
'If newValue = 1 Then
    #If EarlyBinding = 1 Then
        Dim objWordNewFatturaEmessa As Word.Application
        Dim objDocumentNewFatturaEmessa As Word.Document
        Dim bmk As Bookmark
    #Else
        Dim objWordNewFatturaEmessa As Object
        Dim objDocumentNewFatturaEmessa As Object
        Dim bmk As Object
    #End If
    Set p_DocumentoFatturaEmessa = New CDFattura
    Set p_Documento = p_DocumentoFatturaEmessa
    p_Documento.inzializzazione objWordNewFatturaEmessa, objDocumentNewFatturaEmessa, bmk, "FatturaTipo_SRL"
    On Error Resume Next
    p_Documento.CompilaSegnalibri bmk
    Set p_DocumentoFatturaEmessa = Nothing
    Set p_Documento = Nothing
End Sub
Ovvero ho impostato i due oggetti che vanno a utilizzare Word a nothing.
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,078 seconds.