Alex grazie ancora per il supporto. Per la gestione errori ho creato una funzione da richiamare che può sempre essere utile per diverse form mentre, per il codice mi da errore proprio nella dichiarazione della function, problema di riferimenti?
Option Compare Database
Option Explicit
Public dbExt As DAO.Database
Public rsDummy As DAO.Recordset
Public Function DummyConnection(Optional Close As Boolean) As Boolean <----- problema qui
On Error GoTo LblErr
Dim strPercorso As String
strPercorso = CurrentProject.Path & "\"
LinkBE = strPercorso & "GestioneDati.accdb"
If NotClose Then
If dbExt Is Nothing Then
Set dbExt = OpenDatabase(LinkBE)
End If
If rsDummy Is Nothing Then
Set rsDummy = dbExt.OpenRecordset("tblAzienda", dbOpenSnapshot, dbReadOnly)
End If
Else
If Not dbExt Is Nothing Then
dbExt.Close
Set dbExt = Nothing
End If
If Not rsDummy Is Nothing Then
rsDummy.Close
Set rsDummy = Nothing
End If
End If
LblErr:
getGestioneErrori
End Function
Inoltre basta quindi richiamarla all'apertura e richiamarla alla chiusura, giusto? Poichè se aperta si chiude
EDIT: ho rieditato inserendo la dichiarazione della variabile LinkBE altrimenti non avrebbe girato comunque..
RE-EDIT: lanciando la compilazione, mi segnala, evidenziandomi il Close, Errore di compilazione - Previsto:identificatore