Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Acces 2016 Verifica esistenza file

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Acces 2016 Verifica esistenza file

Postdi cdrturista » 08/02/19 09:35

salve
è il primo post che scrivo, solitamente mi limito a leggere per imparare, ma sono ignorante e chiedo il vs aiuto per completare questo codice, ovvero vorrei che se il file "Soci - 2018 - Assemblea.accdr" cercato non c'è si blocchi il tutto con avviso, ovviamente manca qualcosa e per questo già nella scrittura del codice da errore in "rosso" come sotto riportato
dove sbaglio ?
grazie della vostra attenzione

Private Sub Assemblee_Soci_Click()

Dim percorso As String = "\\TERA\Backup\Assemblee\"
Dim nomeFile As String = "Soci - 2018 - Assemblea.accdr"


If IO.File.Exists(percorso & nomeFile) = True Then
DoCmd.Close acForm, "AvvioSoci"
DoCmd.OpenForm "Soci", acNormal, "", "", , acNormal
Else
MsgBox "La Tabella non Esiste"
End If

End Sub
cdrturista
Newbie
 
Post: 4
Iscritto il: 03/08/10 15:54

Sponsor
 

Postdi cdrturista » 11/02/19 13:09

grazie della vs attenzione ……
e di una indicazione per risolvere la mia ignoranza
cdrturista
Newbie
 
Post: 4
Iscritto il: 03/08/10 15:54

Postdi Anthony47 » 12/02/19 23:47

If IO.File.Exists...

Non conosco Access, quindi non so se nel suo vba esiste un oggetto "IO" e se la struttura "FileExists" e altre dichiarative siano regolari
Nel vba di altri programmi Office io avrei scritto:

Codice: Seleziona tutto
Private Sub Assemblee_Soci_Click()
Dim fSo as Object, percorso As String, nomeFile As String
'
percorso = "\\TERA\Backup\Assemblee\"
nomeFile = "Soci - 2018 - Assemblea.accdr"
Set fSo = CreateObject("Scripting.FileSystemObject")
If fSo.FileExists(percorso & nomeFile)  Then
    DoCmd.Close acForm, "AvvioSoci"
    DoCmd.OpenForm "Soci", acNormal, "", "", , acNormal
Else
    MsgBox "La Tabella non Esiste"
End If
Set fSo = Nothing
End Sub

Spero ci sia qualche utile spunto...

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 16134
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Acces 2016 Verifica esistenza file

Postdi cdrturista » 13/02/19 17:38

prima di tutto, grazie
provo il suggerimento ..... e poi comunico l'esito
cdrturista
Newbie
 
Post: 4
Iscritto il: 03/08/10 15:54

Re: Acces 2016 Verifica esistenza file

Postdi cdrturista » 17/02/19 08:53

grazie a Anthony47
adattato a mie esigenze,
tutto ok
:D
cdrturista
Newbie
 
Post: 4
Iscritto il: 03/08/10 15:54


Torna a Applicazioni Office Windows


Topic correlati a "Acces 2016 Verifica esistenza file":


Chi c’è in linea

Visitano il forum: Anthony47 e 33 ospiti