อยากได้ code link table

[Thanayu]

อยากทราบโค็ดลิ้งเทเบิล โดยฝังไว้ที่ปุ่มคำสั่งครับท่านใดพอมีบ้างครับ

[ปิ่นณรงค์]

อยากทราบโค็ดลิ้งเทเบิล โดยฝังไว้ที่ปุ่มคำสั่งครับท่านใดพอมีบ้างครับ

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

[nonc31]

ตัวอย่างลิงค์ทั้งฐานฯ

[Thanayu]

ขอบคุณมากๆเลยครับ เดวผมจะลองทำดูครับ นึกว่าไม่มีใครสนใจกระทู้นี้  ซ่ะแล้ว ขอบคุณจริงๆน่ะครับ