Online Reference

Home

Microsoft Reference
Knowledge Developer Database Internet Resource Forum
Access
Database Function
ดาวน์โหลดคู่มือ

HyperlinkPart Function

Access Function, ส่งออกสารสนเทศเกี่ยวกับการเก็บประเภทข้อมูล Hyperlink โดยข้อมูลในฟิลด์ Hyperlink สามารถเก็บค่าเป็น 3 ส่วน

displaytext#address#subaddress

ไวยากรณ์

object.HyperlinkPart(hyperlink As Variant [, part As Integer] )

อากิวเมนต์ของฟังก์ชัน HyperlinkPart มีรายละเอียด คือ

ส่วน รายละเอียด
object ไม่บังคับ, เป็นอ๊อบเจคของการประยุกต์
hyperlink บังคับ, เป็นข้อมูลประเภท Variant, ที่แสดงข้อมูลที่เก็บในฟิลด์ Hyperlink
part

ไม่บังคับ, ค่าของอากิวเมนต์ part เป็นค่าคงที่แสดงสารสนเทศที่ต้องการส่งออกมาด้วยเมธอด HyperlinkPart

ค่าคงที่ ค่า รายละเอียด
acDisplayedValue 0 (ค่าเริ่มต้น) ขีดเส้นใต้ข้อความที่แสดงเป็น hyperlink
acDisplayText 1 ส่วนข้อความที่แสดงของฟิลด์ Hyperlink
acAddress 2 ส่วน address ของฟิลด์ Hyperlink
acSubAddress 3 ส่วน subaddress ของฟิลด์ Hyperlink
acScreenTip 4 ส่วน tooltip ของฟิลด์ Hyperlink
acFullAddress 5 ส่วน address และ subaddress ของฟิลด์ Hyperlink แยกด้วยตัวอักษร "#"

ลักษณะการประยุกต์

ฟังก์ชัน HyperlinkPart ส่งออกค่าหนึ่งในสามค่าจากฟิลด์ Hyperlink หรือแสดงค่า โดยค่าที่ส่งออกขึ้นกับการตั้งค่าอากิวเมนต์ part ซึ่งเป็นอากิวเมนต์ที่ไม่บังคับ ถ้าไม่กำหนด ฟังก์ชันจะส่งออกค่า Microsoft Access สำหรับ Hyperlink (ที่ตรงกับการตั้งค่าอากิวเมนต์ part เป็น acDisplayedValue) ค่าที่ส่งออกมาสามารถเป็นหนึ่งในสี่ส่วนของฟิลด์ Hyperlink (displaytext, address, subaddress, or screentip), address แบบเต็ม, address#subaddress, หรือแสดงค่าของ Microsoft Access สำหรับ Hyperlink

เมื่อค่าที่ให้มาในส่วน displaytext ของฟิลด์ Hyperlink การแสดงค่าโดย Microsoft Access จะเหมือนกับการตั้งค่าของ displaytext ถ้าไม่มีค่าในส่วน displaytext ของฟิลด์ Hyperlink การแสดงค่าจะเป็นส่วน addresss หรือ subaddress ของฟิลด์ Hyperlink ขึ้นค่าใดเป็นค่าแรกของฟิลด์

ตารางต่อไปแสดงค่าที่ส่งออกโดยฟังก์ชัน HyperlinkPart สำหรับข้อมูลที่เก็บในฟิลด์ Hyperlink

ฟิลด์ Hyperlink ค่าที่ส่งออกโดยเมธอด HyperlinkPart
#http://www.microsoft.com# acDisplayedValue: http://www.microsoft.com
acDisplayText:
acAddress: http://www.microsoft.com
acSubAddress:
acScreenTip:
acFullAddress: http://www.microsoft.com
Microsoft#http://www.microsoft.com# acDisplayedValue: Microsoft
acDisplayText: Microsoft
acAddress: http://www.microsoft.com
acSubAddress:
acScreenTip:
acFullAddress: http://www.microsoft.com
Customers#http://www.microsoft.com#Form Customers acDisplayedValue: Customers
acDisplayText: Customers
acAddress: http://www.microsoft.com
acSubAddress: Form Customers
acScreenTip:
acFullAddress: http://www.microsoft.com#Form Customer
##Form Customers#Enter Information acDisplayedValue: Form Customers
acDisplayText:
acAddress:
acSubAddress: Form Customers
acScreenTip: Enter Information
acFullAddress: #FormCustomer

เมื่อมีการเพิ่มส่วน address ของฟิลด์ Hyperlink field โดยใช้การแทรกด้วย dialog box ของ Hyperlink (มีให้โดยการคลิกที่ Hyperlink ในเมนู Insert) หรือพิมพ์ส่วน address โดยตรงกับฟิลด์ Hyperlink ซึ่ง Microsoft Access จะเพิ่มสัญลักษณ์ # 2 ตัวเพื่อแบ่งส่วนข้อมูล

การเพิ่มหรือแก้ไขส่วน displaytext ฟิลด์ hyperlink โดยการคลิกเมาส์ขวาที่ hyperlink ใน Table, ฟอร์ม, หรือรายงาน แล้วเลือก Hyperlink บนเมนูทางลัด และพิมพ์ข้อความที่ใช้เป็น displaytext

เมื่อมีการเพิ่มข้อมูลในฟิลด์ Hyperlink โดยตรงต้องเพิ่มสัญลักษณ์ # 2 ตัวเพื่อแบ่งส่วนข้อมูล

ดูเพิ่มเติม

คุณสมบัติ DataType, เมธอด FollowHyperlink, คุณสมบัติ Hyperlink, คุณสมบัติ HyperlinkAddress, คุณสมบัติ HyperlinkSubAddress

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน HyperlinkPart โดยใช้ทั้ง 4 ส่วนของอากิวเมนต์ในการแสดงสารสนเทศที่ส่งออกโดยฟังก์ชัน HyperlinkPart ของแต่ละเรคคอร์ดใน Table ที่เก็บฟิลด์ Hyperlink

DisplayHyperlinkParts "MyHyperlinkTableName", "MyHyperlinkFieldName"

Sub DisplayHyperlinkParts(strTable As String, strField As String)

  Dim rst As New ADODB.Recordset
  Dim strMsg As String

  rst.Open(strTable,currentproject.connection,_
  adOpenForwardOnly, adLockReadOnly)

  ' แต่ละเรคคอร์ดใน Table  
  While Not 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)

    'แสดงส่วนที่ส่งออกโดยฟังก์ชัน HyperlinkPart
    MsgBox strMsg
    rst.MoveNext

  Loop

End Sub

การประยุกต์ฟังก์ชันใน HyperlinkPart ในคิวรี่ ต้องใช้อากิวเมนต์ part

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;