Rispondo un pò in generale a ognuno.
La gestione degli errori, per quanto possibile, la inserisco. Nel senso, se durante il funzionamente mi viene segnalato un errore, implemento la gestione. Se non mi viene segnalato niente (che sia in fase di “progettazione” o successivamente), sinceramente non sono capace di prevedere cosa non può funzionare, e quindi non la implemento.
Durante il “malfunzionamento” rilevato non mi viene restituito nessun messaggio di errore (diversamente, come detto sopra, avrei implementato). L'unica cosa che succede è il messaggino “(Non risponde)” in alto sulla barra del titolo. E nessun altro segno di vita. Unica soluzione CTRL+ALT+CANC.
Se provavo (oggi funziona di nuovo tutto) ad aprire una cartella sul NAS > rotellina fissa.
Le funzioni tipo: niente di trascendentale, il 99 % sono di quetso tipo:
On Error GoTo GestisciErrori
'Verifica se il file è già in uso
Dim Percorso01 As String
Percorso01 = DLookup("Assegnazioni", "tblSistema")
Percorso01 = Replace(Percorso01, "accdb", "laccdb")
If Len(Dir(Percorso01)) > 1 Then
Forms!frmMenuPrincipale!cmdAssegnazioni.ForeColor = RGB(255, 0, 0)
Else
Forms!frmMenuPrincipale!cmdAssegnazioni.ForeColor = RGB(11, 183, 43)
End If
GestisciErrori:
If Err.Number = 52 Then Resume Next
Ossia controllo se altri DB di uso comune sono già in uso o se sono disponibili
Poi ne ho un paio che importano una tabella ciascuno.