แสดงกระทู้

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] 5
55
ผมนำไปใช้กับการแจ้งเตือนอุณหภูมิห้อง server และปัญหาเครืองจักรใน line ผลิตครับ




56
การแจ้เตือนนี่แจ้งแบบไหนครับ คลิกแล้วส่งเมล์ ส่ง Line หรือเปิดโปรแกรมมาแล้วส่ง
ที่ผมเคยใช้ก็จะคลิกปุ่มแล้วรายงานออกมาเท่านี้ครับ






57
ลองทำ Query และใช้ DateAdd ก็จะได้วันที่ถัดไปครับ โดย DateAdd สามารถระบุได้ต้องการเป็น วัน เดือน ปี ครับ

58
ไม่มีเลยครับ

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

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

60
ขอร่วมตอบครับอ.อ.ปิ่นณรงค์ 
โค๊ด: [Select]
Public Function MakeTableWithConvertToRow2(ByVal sMainTable As String, ByVal sTempTable As String)
'On Error Resume Next
    Dim RS_IN As DAO.Recordset
    Dim RS_OUT As DAO.Recordset
    Dim ColName As Integer
    Set RS_IN = CurrentDb.OpenRecordset("Select" & "* from " & sMainTable & "")
    'Set RS_OUT = CurrentDb.OpenRecordset("Select" & "* from " & sTempTable & "")
    Set RS_OUT = CurrentDb.OpenRecordset(sTempTable, dbOpenTable)
    Do While Not RS_IN.EOF
        RS_OUT.Index = "PrimaryKey"
        RS_OUT.Seek "=", RS_IN(0).Value
             For ColName = 0 To RS_OUT.Fields.Count - 1
             If RS_OUT.NoMatch Then
                    RS_OUT.AddNew
            Else
                    RS_OUT.Edit
            End If
                    If RS_IN(1).Value = RS_OUT(ColName).Name Then
                            RS_OUT(0).Value = RS_IN(0).Value
                            RS_OUT(RS_OUT(ColName).Name).Value = RS_IN(2).Value
                            RS_OUT.Update
                    End If
                 Next
                RS_IN.MoveNext
    Loop
    RS_IN.Close
    RS_OUT.Close
    Set RS_IN = Nothing
    Set RS_OUT = Nothing
End Function


61
ตอนนี้ผมเขียนใช้แบบนี้เรื่องปัญหาการผลิต
ทำข้อมูลหลักแล้วก็ลงย่อยไปจนถึงปัญหา


บันทึกข้อมูลปัญหาและการแก้ไขใส่ตามที่แก้ไปเรื่อย ๆ


รายงานก็ออกแบบไปเรื่อยตามหน้างานต้องการ






63
ลองทำข้อมูลใส่ MS Access มาสัก ตารางครับ เดี๋ยวลองช่วยทำ


64
แล้วการตั้งค่าของ Region / format /location /Administative เป็นอะไรอยู่ครับ




65
ผมลองโหลดตัวอย่างที่ให้มาลองดูนับ Column ได้ 17 (op1) เหลือสองอันท้ายไม่มีข้อมูล
ไม่มีข้อมูลแต่มี | ขั้นไว้ครับ ครบ 19 column
เมื่อส่งออกไปแล้ว ลองมาดูตารางที่ส่งออก มันก็ออกครบ 19
แต่ลองนำเข้ากลับมา มันเป็นแบบ รูปที่แสดงครับ

ไม่รู้ผมเข้าใจอะไรผิดไหมจากการเทสตัวอย่างผมกลับไปดู DispensedItem ได้ 17 column = (OP1) และว่างอีกสอง นะครับ :confused:

66
ผมลองโหลดตัวอย่างที่ให้มาลองดูนับ Column ได้ 17 (op1) เหลือสองอันท้ายไม่มีข้อมูล

67
ห้อง MS Access / : ป้องกันการ save ไฟล์, Copy
« เมื่อ: 04 ม.ค. 62 , 13:55:40 »
ใช้ PDF Pro ป้องกันการแก้ไข copy print ได้หมดครับ ทำใน PDF Pro

69
ลองดูไหมครับผมว่าของใหม่ก็ดีกว่าของเก่านะ  :cool:

70
 :smile: ผมเคยเจอเหมือนกันครับ ใช้ ms Office ไม่ได้บาง option ต้อง Uninstall Office365 ออก และอีกจุดที่ผมเอาออกตาม link ครับ

https://support.office.com/en-us/article/outlook-freezes-clicking-the-signature-button-c70b36c2-66ca-401c-ab45-f29a46495d02

71
 :sweat:
ลองอีกสักสักอย่างไหมครับ หรือลองแล้ว...

File > Access Options > Trust Center > Trust Center Settings > Trusted Locations > Add New Location
you may have to add a check to Allow Trusted Locations on my network

หน้า: 1 2 3 [4] 5