bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Como abrir uma pasta através do Access

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Como abrir uma pasta através do Access

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: