Newsgroup: it.comp.appl.access
Titolo: Problema con Application.FileDialog(msoFileDialogSaveAs)

Salve a tutti
 
sto utilizzando la seguente funzione per salvare un file di testo 
contenente dati di configurazione utilizzando la finestra di Win 
Salva con nome.
 
With Application.FileDialog(msoFileDialogSaveAs)
        .Title = "Esporta file configurazione."
       .InitialFileName = "SetPath_"
       If .Show = -1 Then
           .Execute
           strFile = .SelectedItems(1)
        Else
            Exit Sub
        End If
 
 
La finestra "Salva con nome" si apre normalmente, ma quando clicco 
sul pulsante salva di questa finestra mi si chiude di brutto Access e 
si riapre da solo. Inoltre mi crea una copia di Backup nella cartella 
dell'applicazione.
Come posso risolvere il problema?
 
Grazie 1K per l'help
 
-- 
Grazie 1k per l'help
 


Hai inserito una gestione errori...?
Hai verificato se il FILE si riesce a salvare...?
Che tipo di File è...?
Lo hai aperto via Automazione...?(se si usa il metodo SaveAs dell'Oggetto aperto in quanto risulta Bloccato per il S.O. ed il metodo Execute fallirà...)
 
Insomma serve avere qualche dettaglio più tecnico.
 
Prova a leggere anche questi:
http://microsoft.public.office.developer.vba.narkive.com/lwtu70q3/bug-in-filedialog-msofiledialogsaveas-execute-method
 
 
 
https://social.msdn.microsoft.com/Forums/office/en-US/b5e211c7-2cf1-411a-bd5a-795a0ca5c343/execute-method-of-the-msofiledialogsaveas-file-dialog-works-in-word-2007-does-not-work-in-word?forum=worddev
 
 
@Alex

 Grazie 1K per l'help
 
se non c'è un problema di permessi di scittura
 
aggiungo la segnalazione di questo insieme di script vbs
(mi sembra che sia anche indicata 
la compatibilità con il SO Windows dei vari oggetti)
 
http://www.robvanderwoude.com/vbstech.php#UI
 
 
Ne ho utilizzati alcuni,
proprio perchè, in pratica, basta copiare "pari pari" le routine
 
 

 @Alex
 
Scusate il ritardo.
Ho win 10 e Access 2016
 
Utilizzo la finestra Dialogo Save As per creare un file di testo che 
poi apro con:
 
K = FreeFile
Open strFile For Append As #K   'scrive il file di configurazione
Write #K, PathVal
Close #K
With rstPath
MoveNext
End With
 
Recuperando il percorso e il nome dalla finestra Save As con 
strFile = .SelectedItems(1)
 
La gestione errori l'ho inserita ma non segnala nulla.
La cosa strana è che quando do il comando salva mi chiude il database e 
mi crea una copia di backup di esso.
 
In precedenza utilizzavo (con access 2003) 
 
With CommonDialog1
    .DialogTitle = "Esportazione file di configurazione"
    .Filter = "File di configurazione (*.txt)|*.txt"
    .FilterIndex = 1
    .ShowSave
End With
strFile = CommonDialog1.FileName
 
inserendo nella form il controllo ActiveX CommonDialogs che Access 2016 
sembra non riconoscere più. 


Salve
 
Cercando su internet ho trovato questo:
 
https://support.office.com/it-it/article/propriet%C3%A0-filedialog-
 
8510b02d-e455-44a9-bf38-3787e6d5c8c1
 
Nel quale si dice che msoFileDialogSaveAs non è supportato in Access 
2016!
Quindi come si può fare per creare un file utilizzando una maschera 
simile a Salva con nome?



Il File lo salvi in altro modo... come ti ho provato a spiegare, hai provato a non usare EXECUTE per recuperare solo il NOME funziona.
 
@Alex