แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Thanayu

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

ขอขอบคุณแหล่งที่มา :
http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.XHvsT4gzbIV link
โพสต์นี้ได้รับคำขอบคุณจาก: Thanayu

2


นาฬิการแบบเข็มจาก MS Access ครับ

ต้องขออภัยผู้จัดทำผมโหลดมานานจำไม่ได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Thanayu

3
ห้อง MS Access / : อยากได้ code link table
« เมื่อ: 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
โพสต์นี้ได้รับคำขอบคุณจาก: Thanayu

หน้า: [1]