[Resolvido]Acessar um site clicando em um botão de comando

Olá amigos!

Alguém sabe de um código para acessar um determinado site clicando em um botão de comando de um formulário? O que eu preciso é de uma rotina que abra a minha página inicial na internet sempre que eu clicar no seu respectivo botão de comando.

Desde de já, obrigado a todos.

Abraço!

Dê uma pesquisada na ajuda do Access por FollowHyperlink.

Deixo um exemplo de como funciona, no evento "Ao clicar" do botão:

FollowHyperlink "http://www.svcsoftwarehouse.com/painel-detalhe-curso.php?codigo=0000000040"

POde faze-lo utilizando o VBA

1- Abra um módulo novo na aba módulo e de-lhe o nome de móduloemail

Cole o código

Option Compare Database
Option Explicit

Public Matriz() As Propiedad

Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal csidl As Long, ByVal fCreate As Long) As Long
Public 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

Public Const SW_SHOWNORMAL = 1

Public Type Propiedad
nombre As String
valor As String
End Type

Public Function Temporal() As String
Dim strRuta As String * 256
SHGetSpecialFolderPath 1, strRuta, &H28, 0&
Temporal = Left$(strRuta, InStr(1, strRuta, Chr$(0)) - 1) & "\Temp\"
End Function



2-no evento click do botão
'Email será o nome do campo

On Error Resume Next
Dim msg, Style, Title
msg = "Por favor preencha um email válido..."
Style = "vbInformation"
Title = "Erro"
If IsNull(Me.Email) Then
msg = MsgBox(msg, vbInformation, Title)
Else
Const SW_SHOW = 3

ShellExecute Me.hwnd, "open", "mailto:" & Email, vbNullString, vbNullString, SW_SHOW
End If

Esqueci:

Desta forma o endereço que estiver na caixa de texto email, será repassado para o gestor de correio.

Vieira, o amigo acima quer acessar uma página na net e não enviar emails. Acho que seu post era para outro tópico, não?

Tens razão criquio. Estou a precisar de férias urgente.

Já agora:

Um novo módulo e chame-me ModWeb e colar:

Option Compare Database
Public 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)

Public Function WebEmailOpen(UrlMailto As String) As Boolean
WebEmailOpen = ShellExecute(&O0, "Open", UrlMailto, vbNullString, vbNullString, 4)
End Function

No Botaõ de comando

If Not Site.Text = "" Then WebEmailOpen Site.Text

Site será o nome do campo. Está em visual Basic mas o VBA aceita perfeitamente e é muito eficaz

Vieira muito sinceramente prefiro o simples, para este tipo de duvida não necessita de tanto código, só irá baralhar as ideias;

O simples seria;

Private Sub SeuBotao_Click()
Application.FollowHyperlink Address:="http://www.google.pt"
End Sub

Amigos,

obrigado pela atenção de sempre.

Concordando com a observação do JPaulo resolvi adotar o exemplo do Criquio que foi o primeiro que testei e funcionou perfeitamente. Claro que testei os três exemplos e claro que todos atenderam a minha necessidade.

Obrigado a todos!

Mestre

Longe de mim questionar. Eu prefiro o simples também e o código que o Criquio colocou está correcto. Como o colega escreveu que o queria fazer através de um botão de comando, o código que postei (e o mestre sabe isso melhor que eu), permite ter numa ficha de fornecedores, por exemplo, acesso directo e com maior consistência que o método hyperlink que, até dá mensagens de erros em alguns casos. Basta ter uma caixa de texto com o endereço do site e pronto o botão leva-nos lá.

Afinal é também uma simples linha de código e um módulo pequeno.

As minhas desculpas

Abs

Grande Vieira obrigado pela compreenção, o que você postou está correto e é muito bom, mas para uma situação simples mais uma linha de código.

Abraço

Boa tarde,
Estou desenvolvendo uma Sistema para duas unidades de uma empresa, gostaria de colocar um botão para abrir um banco de dados de uma unidade e o outro botão abre o sistema da outra unidade (banco de dados separados ) alguém poderia me auxiliar?

Caro colega

Este tópico já se encontra fechado e, embora o assunto seja parecido, não é igual. Por favor, abra um novo tópifo ao invés de escrever neste. Aí, estaremos preparados para o ajudar. Obrigado pela compreensão.

Mestres, em uma situação como essa teria como além de abrir um site passar parâmetros para preenchimento de campos e até acionar um botão do site a ser aberto?

Não consigo ele abrir dentro do access