Private Sub Comando1_Click()
On Error GoTo Err_Comando1_Click
Application.FollowHyperlink "C:\Prova\"
Exit_Comando226_Click:
Exit Sub
Err_Comando1_Click:
MsgBox Err.Description
Resume Exit_Comando1_Click
End Sub
In questo modo, quando andiamo a cliccare sul "Comando1" ovvero il nostro pulsante posizionato sulla Form di Access, l'azione che si va a compiere è quella di andare ad aprire la cartella desiderata, ovvero "Prova", posizionata in C:\.
Allo stesso modo possiamo fare per altre cartelle posizionate in ogni angolo del nostro pc, basta andare a sostituire il percorso tra apici indicato nel codice VBA posto di sopra.
Come si vede il comando basilare per questa operazione è Application.FollowHyperlink "percorso" .
Nessun commento:
Posta un commento
Lascia la tua opinione...