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

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).



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: