แสดงกระทู้

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 - sjs

หน้า: [1] 2 3 4 ... 6
2
Sub SendMessageToLineNotify()
On Error Resume Next  '<-------ใส่ตรงนี้เพิ่มครับ
Dim oXML As Object
Dim strToken As String
Dim strMessage As String
Dim strDate As String
Dim url As String


'Line Notify Token

5
ใช้ Access อ่านแล้วยิง Hearder ไปแบบโปรแกรมในภาพได้ไหมนะ อันนี้คือลองคิดนะครับ เดี๋ยวจะลองเล่นดูก่อนครับ

7
Windows อะไรครับ Office Version ไหน
ของผมเทสกับ Windows 10 , Office 2016 ก็ได้นะ ของผมสร้างไว้ที่นี่ครับ


9
ลองแบบนี้
DMax("norec","QueryName", "date >= " & Trim(Str(Year(strDate))) & "/1/1" & " and date <= " & Trim(Str(Year(strDate))) & "/12/31" & "")

10
ลองเป็น ปี/เดือน/วัน หรือยังครับ

12
ใช้  Datediff ช่วยเช็คได้ไหมครับ




13
https://ddc.moph.go.th/covid19-dashboard/?fbclid=IwAR2bte6_n8K-9rtynOiLsyRlb9nb-SKzANssssxR7yp_Rc_SHUsLeX0C-EY link

ไปเห็นมาที่นี่ก็ใช้นะครับ เชื่อมต่อได้หลากหลายดาต้า
ส่วนผมใช้แสดงข้อมูล speed downtime , temp , on/off เครื่องจักร์ดึงดาต้าจาก ms sql server ที่ถูกส่งมาแบบ real time โดยทำที่  Tableau Desktop + Database ได้รายงานแล้ว Upload ขึ้น Server Tableau ดูผ่าน Web ได้เลย

14
อ่านแล้วผมนึกถึงตอนเขียน VB ใช้ Application.Doevents() ใน VBA Access ใช้เหมือนกันหรือเปล่าผมยังไม่เคยใช้
ในตอนที่เราสั่งทำงานอะไรสักอย่างนาน ๆ ก็จะใช้ progress bar เพื่อแสดงสถานะที่ทำถึงไหนแล้วก็ใส่ Application.Doevents() ไว้ในการทำงานมันทำให้สามารถเลื่อนขยับทำอย่างอื่นได้ด้วย


15
ลองดูไฟล์นี้ครับผมลองทำตามที่แจ้งไป

16
ดูที่เงื่อนไขครับ จาก query Dsum เห็นเขียนใส่เงื่อนไข Goods_id = qry_เข้า/อกก.จำนวน ตรงนี้ผิด 1 จุด 
จุดที่สอง ค่า goods_id ใน query เป็น string ให้ลองเปลี่ยนเป็น = '" & qry_เข้า.goos_id & "'" column ออก ด้วยนะครับ

หน้า: [1] 2 3 4 ... 6