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
Como abrir uma pasta através do Access

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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!


 

 


4 comentário(s)

Celso   27/01/2019 05:34:31

Olá Avelino,usei esse código num BD que funciona em rede, está rodando em 5 máquinas, só uma delas não abre a foto que fica na pasta "Fotos" da máquina onde se encontra o beckend.Qual seria o problema?
Obs: o formulário carrega a foto do produto normalmente
e tbem cadastra o produto salvando a foto, só não funciona o botão que deveria abrir a foto do referido produto.
No aguardo.

Celso   27/01/2019 05:34:11

Olá Avelino,usei esse código num BD que funciona em rede, está rodando em 5 máquinas, só uma delas não abre a foto que fica na pasta "Fotos" da máquina onde se encontra o beckend.Qual seria o problema?
Obs: o formulário carrega a foto do produto normalmente
e tbem cadastra o produto salvando a foto, só não funciona o botão que deveria abrir a foto do referido produto.
No aguardo.

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

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?


Envie seu comentário: