สมัครสมาชิก
 

อยากได้ code link table



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

08 พ.ย. 61 , 20:16:57
อ่าน 192 ครั้ง

Thanayu

  • สมาชิกไท.Access
  • กระทู้: 3

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

อยากได้ code link table
« เมื่อ: 08 พ.ย. 61 , 20:16:57 »
อยากทราบโค็ดลิ้งเทเบิล โดยฝังไว้ที่ปุ่มคำสั่งครับท่านใดพอมีบ้างครับ

 

09 พ.ย. 61 , 08:38:47
ตอบกลับ #1

ปิ่นณรงค์

: อยากได้ code link table
« ตอบกลับ #1 เมื่อ: 09 พ.ย. 61 , 08:38:47 »
อยากทราบโค็ดลิ้งเทเบิล โดยฝังไว้ที่ปุ่มคำสั่งครับท่านใดพอมีบ้างครับ

Code ในการ LinkTable

โค๊ด: [Select]
Private Sub Command2_Click()
Dim StrPath As String
If IsNull(Me.Path) Then
MsgBox "กรุณาใส่ Path Back End ก่อน!!!", vbInformation, "Status"
Else
StrPath = Me.Path  '<<<Me.Path คือชื่อ textbox ที่ไว้กรอกตำแหน่งของ BackEnd ถ้าคุณจะระบุตำแหน่งในนี้เองเลยก็ได้เหมือนกัน
DoCmd.TransferDatabase TransferType:=acLink, DatabaseType:="Microsoft Access", DatabaseName:=StrPath, ObjectType:=acTable, Source:="Table1", Destination:="Table1"
End If
End Sub
ตรง Source table1 คือชื่อตารางของ BackEnd ส่วน Destination Table1 คือการตั้งชื่อตารางที่ Link เข้ามา

ถ้าต้องการ Link หลายๆ Table ในครั้งเดียวก็แค่ไปเพิ่ม ตรงคำสั่งตัวอย่าง
Private Sub Command2_Click()
Dim StrPath As String
If IsNull(Me.Path) Then
MsgBox "กรุณาใส่ Path Back End ก่อน!!!", vbInformation, "Status"
Else
StrPath = Me.Path   '<<<Me.Path คือชื่อ textbox ที่ไว้กรอกตำแหน่งของ BackEnd ถ้าคุณจะระบุตำแหน่งในนี้เองเลยก็ได้เหมือนกัน
DoCmd.TransferDatabase TransferType:=acLink, DatabaseType:="Microsoft Access", DatabaseName:=StrPath, ObjectType:=acTable, Source:="Table1", Destination:="Table1"
DoCmd.TransferDatabase TransferType:=acLink, DatabaseType:="Microsoft Access", DatabaseName:=StrPath, ObjectType:=acTable, Source:="Table2", Destination:="Table2"
DoCmd.TransferDatabase TransferType:=acLink, DatabaseType:="Microsoft Access", DatabaseName:=StrPath, ObjectType:=acTable, Source:="Table3", Destination:="Table3"
End If
End Sub

Code ในการ เรียก LinkedTableManager
สร้างปุ่มตั้งชื่อปุ่มตามต้องการใส่
โค๊ด: [Select]
Private Sub Command0_Click()
DoCmd.RunCommand acCmdLinkedTableManager
End Sub
คำสั่งนี้ใช้ได้เมื่อมีการ Link Table ไว้ก่อนแล้วจากคำสั่งแรก เราจะเรียกใช้เพื่อแก้ไขตำแหน่งของ BackEnd
« แก้ไขครั้งสุดท้าย: 09 พ.ย. 61 , 10:09:02 โดย ปิ่นณรงค์ »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: Thanayu

09 พ.ย. 61 , 12:03:34
ตอบกลับ #2

nonc31

: อยากได้ code link table
« ตอบกลับ #2 เมื่อ: 09 พ.ย. 61 , 12:03:34 »
ตัวอย่างลิงค์ทั้งฐานฯ

 

20 พ.ย. 61 , 06:18:57
ตอบกลับ #3

Thanayu

  • สมาชิกไท.Access
  • กระทู้: 3

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: อยากได้ code link table
« ตอบกลับ #3 เมื่อ: 20 พ.ย. 61 , 06:18:57 »
ขอบคุณมากๆเลยครับ เดวผมจะลองทำดูครับ นึกว่าไม่มีใครสนใจกระทู้นี้  ซ่ะแล้ว ขอบคุณจริงๆน่ะครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย