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!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Vídeo - Aprenda sobre filtragens
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Adquira o kit UsandoAccess e aprenda em alta velocidade
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
|
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? |