ACCESS VBA - Parametri

Question

Ciao a tutti,

sono nuova con access, nel mio progetto ho creato un VBA che crea e apre una cartella su C:\test\ID_Cliente (C:\test = parte fissa scritta nel codice VBA ID_Cliente = parte variabile ricavata dalle tabella) - Funziona

Ora vorrei avere la possibilità di poter editare C:\test senza dover aprire tutte le volte  l’editor VBA, pensavo di creare una tabella (per poterla utilizzare anche per altri parametri) con questi campi Codice e Parametro (Codice = è il nome dalla variabile  mentre Parametro = C:\test), questo è quello che ho letto in internet ma non riesco impostare la VBA

Grazie

Answer 1

Crea una tabella chiamata "T_Opzioni" con un campo di tipo testo denominato "Percorso" nel quale inserisci il path della tua cartella, all'ID=1 corrisponderà "**c:\test**", all'ID= 2 un altro percorso, etc... e prova a modificare così:

'Const strParent = "c:\test"

Dim strParent As String

Dim strClienteID As String

Dim strFolder As String

Dim fso As Object

strParent = DLookup("Percorso", "T_Opzioni", "ID = 1")

' Get Cliente ID from control

strClienteID = Me.T_ANAC_ID

' Full path

strFolder = strParent & strClienteID

' Create FileSystemObject

Set fso = CreateObject("Scripting.FileSystemObject")

' Check whether folder exists

If fso.FolderExists(strFolder) = False Then

    ' If not, create it

    fso.CreateFolder strFolder

End If

' Open it

Shell "explorer.exe " & strFolder, vbNormalFocus

Ciao

Answer 2

Perfetto! Funziona 

Grazie 1000!

Bacio

Answer 3

Ciao Massimo,

ho provato inserire la funzione ma mi da errore

la VBA che utilizzo (funziona) per creare al cartella è 

    Const strParent = "c:\test"

    Dim strClienteID As String

    Dim strFolder As String

    Dim fso As Object

    ' Get Cliente ID from control

    strClienteID = Me.T_ANAC_ID

    ' Full path

    strFolder = strParent & strClienteID

    ' Create FileSystemObject

    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Check whether folder exists

    If fso.FolderExists(strFolder) = False Then

        ' If not, create it

        fso.CreateFolder strFolder

    End If

    ' Open it

    Shell "explorer.exe " & strFolder, vbNormalFocus

Answer 4

Puoi utilizzare la funzione DLookup per leggere dei valori in tabella, esempio:

Dim Cartella as String

Cartella = DLookup("Parametro", "TabellaOpzioni", "ID = 1")

Ciao