Método Application.HyperlinkPart (Access)

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

Sintaxe

expressão. HyperlinkPart (Hyperlink, Parte)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Hyperlink	Obrigatório	Variantes	Os dados armazenados em um campo do Hyperlink .
Parte	Opcional	AcHyperlinkPart	Uma constante AcHyperlinkPart que representa as informações desejadas retornadas pelo método HyperlinkPart .

Valor de retorno

Cadeia de caracteres

Comentários

Você usa o método HyperlinkPart para retornar um dos três valores de um campo do Hyperlink ou do 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 Hyperlink (displaytext, endereço, subaddress ou dica de tela), o endereço completo,subaddress deendereço# ou o valor que o Microsoft Access exibe para o hiperlink.

Observação

Se você usar o método HyperlinkPart em uma consulta, o argumento de parte será necessário e você não poderá usar as constantes listadas acima, mas deve 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 do displaytext . Quando não houver valor na parte displaytext de um campo hyperlink , o valor exibido será a parte de endereço ou subaddress do campo Hyperlink , dependendo de qual valor está presente pela primeira vez no campo.

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

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 acScreenTip: Enter Information acFullAddress: #FormCustomer

Quando você adiciona uma parte de endereço a um campo do Hyperlink 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 hyperlink , o Access adiciona os dois símbolos # que delimitam partes dos dados do hiperlink.

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

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

Exemplo

O exemplo a seguir usa todas as quatro constantes de argumento de parte para exibir informações retornadas pelo método HyperlinkPart para cada registro em uma tabela que contém um campo hyperlink . 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 seguinte instrução SQL 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.