Acces 2016 Verifica esistenza file

[cdrturista]

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]

grazie della vs attenzione ……
e di una indicazione per risolvere la mia ignoranza

[Anthony47]

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

[cdrturista]

prima di tutto, grazie
provo il suggerimento ..... e poi comunico l'esito

[cdrturista]

grazie a Anthony47
adattato a mie esigenze,
tutto ok