... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Como abrir um determinado arquivo através do Access

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("http://www.usandoaccess.com.br")

Bom estudo!


 

 


Não há comentário

Envie seu comentário: