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é 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - SysControle - Controle de Usuarios
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
|
4 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 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. 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. |