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

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 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: