สมัครสมาชิก

แสดงกระทู้

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
1
ลองเล่นๆ การส่ง line notify ส่งข้อความ รูปภาพด้วย VBA ไปเจอบทความดีดี ที่นี่เลยเอามาลองเล่นครับ

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

2
ขอร่วมตอบครับอ.อ.ปิ่นณรงค์ 
โค๊ด: [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


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


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


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






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


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




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

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

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

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

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

12
 :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
link

13
 :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

15
ขอเสริมนิดหนึงครับ ต่อจากโพสที่ตอบไว้ https://www.thai-access.com/index.php?topic=555.msg2436#msg2436

ผมก็เจอปัญหาเปลี่ยน windows ทำให้โปรแกรม error code vba ที่เขียนไว้พอมาแก้ตรงนี้เป็น thai โปรแกรมที่เขียนคำสั่ง vba ไว้ก็ทำงานได้ปกติ


16
ลองเช็ค Region ดูไหมครับ ตั้งค่าเป็นอะไรอยู่

หน้า: [1] 2