Non passa il focus sulla cartella

di
tatixtatix6
il
1 risposte
T
tatixtatix6
Utente Attivo
Iscritto da
ott, 2021
Messaggi:
77

Non passa il focus sulla cartella

Ciao a tutti e buona Pasqua,

ho un pulsante per aprire la cartella e il codice che ho scritto e il seguente:

Private Sub Comando21_Click()

Dim strFile As String
Dim strFolder As String

strFolder = Forms![Property_query_02]![Cartella].Value
strFile = "explorer " & strFolder
Shell strFile

End Sub

Il tutto funziona ma alla cartella non viene passato il focus. Devo andare su esplora risorse cliccarci sopra per aprirla. Vorrei che attivando il pulsante si aprisse completamente la cartella.

Grazie per l'aiuto

1 Risposte

  • T
    tatixtatix6
    Utente Attivo
    Iscritto da
    ott, 2021
    Messaggi:
    77

    Re: Non passa il focus sulla cartella

    Grazie,

    ho risolto in questo modo:

    Private Sub Comando21_Click()

    Dim strFile As String
    Dim strFolder As String


    strFile = Forms![Property_query_02]![Cartella].Value

    Shell "explorer.exe " + strFile, vbNormalFocus

    End Sub

Devi accedere o registrarti per scrivere nel forum
1 risposte