... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Como abrir uma pasta através do Access

Com a API SHELL é possível abrir uma pasta ou executar um arquivo.  Basta copiar a API abaixo para um módulo global do seu projeto:

Option Explicit
'--------------------------------------------------------------------------------------
'Copie o código abaixo para um módulo global do seu projeto
'-------------------------------------------------------------------------------------
#If VBA7 Then
'versões 2010 e 2013
Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, _ 
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _ 
ByVal nShowCmd As Long) As LongPtr
#Else
'versões 2003 e 2007
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _ 
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _ 
ByVal nShowCmd As Long) As Long
#End If
'--------------------------------------------------------------------------------

Exemplo de um botão abrindo uma pasta de nome fotos, localizada no mesmo diretório do aplicativo:

Private Sub btExemplos_Click()
   Call ShellExecute(0&, "open", CurrentProject.Path & "\fotos", "", "", 1)
End Sub

A API sendo utilizada para abrir uma página Web:

Dim strSite$
strSite ="http://www.usandoaccess.com.br"
Call ShellExecute(0&, "",strSite, "", "", 3)

Abrindo o teclado virtual do Windows:

Call ShellExecute 0, vbNullString, "osk.exe", vbNullString, "C:\", 1

Bom estudo!


 

 


2 comentário(s)

Gilberlânio   06/03/2017 11:18:44

Avelino como aplicar essa função de abrir uma pasta através de um botão da ribbon?

Avelino Sampaio   06/03/2017 12:23:30

Gilberlânio,

abra essa questão lá no meu fórum, que explicarei com detalhes.

http://www.redeaccess.com.br

No aguardo


Envie seu comentário: