ลองเล่นๆ การส่ง line notify ส่งข้อความ รูปภาพด้วย VBA ไปเจอบทความดีดี ที่นี่เลยเอามาลองเล่นครับ

ขอขอบคุณแหล่งที่มา :
http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.XHvsT4gzbIV

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

Code ในการ LinkTable

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
สร้างปุ่มตั้งชื่อปุ่มตามต้องการใส่
Private Sub Command0_Click()
DoCmd.RunCommand acCmdLinkedTableManager
End Subคำสั่งนี้ใช้ได้เมื่อมีการ Link Table ไว้ก่อนแล้วจากคำสั่งแรก เราจะเรียกใช้เพื่อแก้ไขตำแหน่งของ BackEnd