1
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.
หน้า: [1]
2
ห้อง MS Access / : The data has been changed
« เมื่อ: 17 พ.ย. 64 , 16:54:32 »
ต้องส่งไฟล์มาให้ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Winisa
3
ห้อง MS Access / : เราสามารถ Hide ฟิลด์จากตารางที่เป็นแบบนี้ได้ไหมคะ
« เมื่อ: 17 พ.ย. 64 , 11:08:55 »4
ห้อง MS Access / : เพิ่ม Logo มุมขวาบนใน Form popup
« เมื่อ: 17 พ.ย. 64 , 09:58:39 »
File - Option - Current Database - Application Icon ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Winisa
5
ห้อง MS Access / MS Access ส่งข้อความเข้า line notify
« เมื่อ: 23 เม.ย. 61 , 14:27:52 »
https://notify-bot.line.me/th/
ทดลองส่ง ข้อความจาก ms access เข้า line
สมัคการใช้และเอา token ไปใส่ในฟอร์มด้วยนะครับ
ที่มา : http://snasui.com/viewtopic.php?t=12785
ทดลองส่ง ข้อความจาก ms access เข้า line
สมัคการใช้และเอา token ไปใส่ในฟอร์มด้วยนะครับ
ที่มา : http://snasui.com/viewtopic.php?t=12785
โค๊ด: [Select]
Option Compare Database
Sub SendMessageToLineNotify()
Dim oXML As Object
Dim strToken As String
Dim strMessage As String
Dim strDate As String
Dim URL As String
'Line Notify Token
strToken = "ใส่ Token line ตรงนี้ " 'สมัคได้ที่ https://notify-api.line.me/
URL = "https://notify-api.line.me/api/notify"
strDate = Format(Now, "DD/MM/YYYY - HH:MM:SS")
'Line Message
strMessage = "message=MS Access "
'Ajax
Set oXML = CreateObject("Microsoft.XMLHTTP")
With oXML
'Line Post
.Open "POST", URL, 0
'Header
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.SetRequestHeader "Authorization", "Bearer " & strToken
'Ajax
.send (strMessage)
'Line Check Print
Debug.Print oXML.responseText
End With
'Line
Set oXML = Nothing
End Sub
Private Sub Command0_Click()
Call SendMessageToLineNotify
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Winisa
หน้า: [1]