psq ha scritto:
Buon giorno
Vorrei sapere se è possibile memorizzare in una costante il percorso di un database esterno
che di solito è posizionato su una chiavetta.
vorrei richiamare la costante senza riscrivere ogni volta il codice nelle masachere
Private Sub Form_Open(Cancel As Integer)
On Error GoTo MyError
Dim db As DAO.Database
Set db = CurrentDb()
Dim DBDATI AS String
DBDATI = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "DATI.MDB"
set db = Nothing
MyError:
Exit Sub
End sub
grazie
Sì, si può, perché non dovrebbe essere possibile?
Occhio che il valore di una costante è scritto "fisso" (costante, appunto), non può essere costruito in base ad altri valori, se non di altre costanti.
Const DBDATI As String = Left(db.Name, Len(db.Name) - Len(Dir(db.Name))) & "DATI.MDB" 'NON FUNZIONA - basta fare debug
Const DBDATI As String = "C:\directory1\directory2\DATI.MDB" 'OK
oppure
Const Percorso As String = "C:\directory1\directory2\"
Const DBDATI As String = Percorso & "DATI.MDB" 'OK anche così
E' proprio questo che volevi?