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 um determinado arquivo através do Access
Como abrir um determinado arquivo 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 o método FollowHyperlink, o aplicativo de origem é aberto para o carregamento do arquivo solicitado.  Veja abaixo:

'O aplicativo Word será aberto para carregar o arquivo Docx
application.FollowHyperlink "c:\SuaPasta\SeuArquivo.docx"
'O Adobe Reader será aberto para carregar o arquivo PDF
application.FollowHyperlink "c:\SuaPasta\SeuArquivo.pdf"
'O Windows Media Player será aberto para carregar o arquivo wmp
application.FollowHyperlink "c:\SuaPasta\SeuArquivo.wmp"
'O navegador padrão será aberto para carregar o site
application.FollowHyperlink "http://www.usandoaccess.com.br"

Nota: Não chame o site sem o Http:// , pois o Access exibirá uma mensagem de segurança, conforme você pode observar na imagem abaixo:

Usando Access - Aviso segurança PDF

No carregamento do site com o FollowHyperlink o navegador não abre maximizado.  Se houver a necessidade de abrir o navegador maximizado, é possível utilizar como alternativa o comando RUN do Scripting.  Veja a função abaixo:

Public Sub fncAbrirSite(strSite As String)
Dim ws As Object, x
Set ws = CreateObject("WScript.Shell")
x = ws.Run(strSite, vbMaximizedFocus, False)
Set wShell = Nothing
End Sub

Para carregar o site, basta chamar pela função

call fncAbrirSite("https://www.usandoaccess.com.br")

Bom estudo!


 

 


Não há comentário

Envie seu comentário: