Problema con Application.FileDialog(msoFileDialogSaveAs)

[Mouseraider]

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

[@Alex]

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

[GiorgioDaPrato]

> Come posso risolvere il problema?
>
> 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

[Mouseraider]

>
> 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

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ù.

[Mouseraider]

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?

[@Alex]

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