Método Application.HyperlinkPart (Access)

O método HyperlinkPart retorna informações sobre dados armazenados como um tipo de dados de hiperlink.

Sintaxe

mais simples. Parte_do_Hiperlink (parte-hiperlink)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Hyperlink	Obrigatório	Variant	Os dados armazenados em um campo Hyperlink .
Parte	Opcional	AcHyperlinkPart	Uma constante AcHyperlinkPart que representa as informações que você deseja retornar pelo método HyperlinkPart .

Valor de retorno

Cadeia de caracteres

Comentários

Você usa o método ParteDoHiperlink para retornar um dos três valores de um campo Hyperlink ou o valor exibido. The value returned depends on the setting of the part argument.

The part argument is optional. If it's not used, the function returns the value Microsoft Access displays for the hyperlink (which corresponds to the acDisplayedValue setting for the part argument). Os valores retornados podem ser uma das quatro partes do campo Hiperlink (texto de exibição, endereço, subendereço ou dica de tela), o endereço completo, osubendereço de endereço# ou o valor que o Microsoft Access exibe para o hiperlink.

Observação

Se você usar o método ParteDoHiperlink em uma consulta, o argumento parcial será necessário e você não poderá usar as constantes listadas acima, mas deverá usar o valor real.

Quando um valor é fornecido na parte displaytext de um campo Hyperlink , o valor exibido pelo Microsoft Access será o mesmo que a configuração displaytext . Quando não houver nenhum valor na parte displaytext de um campo Hyperlink , o valor exibido será o endereço ou subendereço do campo Hyperlink , dependendo de qual valor está presente primeiro no campo.

A tabela a seguir mostra os valores retornados pelo método ParteDoHiperlink para dados armazenados em um campo Hiperlink .

Dados do campo de hiperlink	Valores retornados pelo método HyperlinkPart
#https://www.microsoft.com#	acDisplayedValue: https://www.microsoft.com acDisplayText: acAddress: https://www.microsoft.com acSubAddress: acScreenTip: acFullAddress: https://www.microsoft.com
Microsoft#https://www.microsoft.com#	acDisplayedValue: Microsoft acDisplayText: Microsoft acAddress: https://www.microsoft.com acSubAddress: acScreenTip: acFullAddress: https://www.microsoft.com
Customers#https://www.microsoft.com#Form Customers	acDisplayedValue: Customers acDisplayText: Customers acAddress: https://www.microsoft.com acSubAddress: Form Customers acScreenTip: acFullAddress: https://www.microsoft.com#Form Customer
##Formulário Clientes#Entrar Informação	acDisplayedValue: Form Customers acDisplayText: acAddress: acSubAddress: Form Customers acDica de tela: Enter Information acFullAddress: #FormCustomer

Quando você adiciona uma parte de endereço a um campo Hiperlink usando a caixa de diálogo Inserir Hiperlink (disponível escolhendo Hiperlink no menu Inserir ) ou digitando uma parte de endereço diretamente em um campo Hiperlink , o Access adiciona os dois símbolos # que delimitam partes dos dados do hiperlink.

Você pode adicionar ou editar a parte displaytext de um campo hiperlink clicando com o botão direito do mouse em um hiperlink em uma tabela, formulário ou relatório, apontando para Hiperlink no menu de atalho e digitando o texto de exibição na caixa Texto para exibição .

Ao adicionar dados a um campo Hyperlink diretamente, você deve incluir os dois símbolos # para delimitar as partes dos dados do hiperlink.

Exemplo

O exemplo a seguir usa todas as quatro constantes de argumento de parte para exibir as informações retornadas pelo método ParteDoHiperlink para cada registro em uma tabela que contém um campo Hiperlink . Para testar este exemplo, cole o procedimento ExibirHyperlinkParts na seção declarações de um módulo. Você pode chamar o procedimento ExibirHyperlinkParts da janela Depurar, passando-lhe o nome de uma tabela que contenham hiperlinks e o nome do campo que contém dados hiperlink. Por exemplo:

DisplayHyperlinkParts "MyHyperlinkTableName", "MyHyperlinkFieldName" 
 
Public Sub DisplayHyperlinkParts(ByVal strTable As String, _ 
 ByVal strField As String) 
 
 Dim rst As New ADODB.Recordset 
 Dim strMsg As String 
 
 
 rst.Open strTable, CurrentProject.Connection, _ 
 adOpenForwardOnly, adLockReadOnly 
 
 ' For each record in table. 
 Do Until rst.EOF 
 strMsg = "DisplayValue = " _ 
 & HyperlinkPart(rst(strField), acDisplayedValue) _ 
 & vbCrLf & "DisplayText = " _ 
 & HyperlinkPart(rst(strField), acDisplayText) _ 
 & vbCrLf & "Address = " _ 
 & HyperlinkPart(rst(strField), acAddress) _ 
 & vbCrLf & "SubAddress = " _ 
 & HyperlinkPart(rst(strField), acSubAddress) _ 
 & vbCrLf & "ScreenTip = " _ 
 & HyperlinkPart(rst(strField), acScreenTip) _ 
 & vbCrLf & "Full Address = " _ 
 & HyperlinkPart(rst(strField), acFullAddress) 
 
 ' Show parts returned by HyperlinkPart function. 
 MsgBox strMsg 
 rst.MoveNext 
 Loop 
 
End Sub

Quando você usa o método HyperlinkPart em uma consulta, o argumento part é necessário. Por exemplo, a instrução SQL a seguir usa o método HyperlinkPart para retornar informações sobre dados armazenados como um tipo de dados Hyperlink no campo URL da tabela Links:

SELECT Links.URL, HyperlinkPart([URL],0) 
 AS Display, HyperlinkPart([URL],1) 
 AS Name, HyperlinkPart([URL],2) 
 AS Addr, HyperlinkPart([URL],3) 
 AS SubAddr, HyperlinkPart([URL],4) 
 AS ScreenTip 
 FROM Links

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.