Print Page | Close Window

[RISOLTO] Errore kill file VBA

Printed From: IALweb
Category: Programmazione
Forum Name: VB
Forum Discription: Il mondo di VisualBasic
URL: https://forum.ialweb.it/forum_posts.asp?TID=16467522
Printed Date: 20/Feb/2019 at 01:40
Software Version: Web Wiz Forums 10.17 - http://www.webwizforums.com


Topic: [RISOLTO] Errore kill file VBA
Posted By: Platform
Subject: [RISOLTO] Errore kill file VBA
Date 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?



Replies:
Posted By: Platform
Date 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?



Posted By: Platform
Date 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.



Print Page | Close Window

Forum Software by Web Wiz Forums® version 10.17 - http://www.webwizforums.com
Copyright ©2001-2013 Web Wiz Ltd. - http://www.webwiz.co.uk