สมัครสมาชิก

แสดงกระทู้

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
มันคือ Arrays หรือเปล่าครับหรือ
https://docs.microsoft.com/en-us/office/vba/language/concepts/getting-started/using-arrays link
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข, bgfc

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





โพสต์นี้ได้รับคำขอบคุณจาก: MartSirawit

3
ลองทำ Query และใช้ DateAdd ก็จะได้วันที่ถัดไปครับ โดย DateAdd สามารถระบุได้ต้องการเป็น วัน เดือน ปี ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MartSirawit, nawahovvp

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

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

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

โพสต์นี้ได้รับคำขอบคุณจาก: ปิ่นณรงค์, laemthong

6
วิเคราะห์เหตุการณ์โจรไซเบอร์ปล้นเงิน 10 ล้านบาทด้วยมัลแวร์

https://www.catcyfence.com/it-security/article/analysis-of-cyber-crooks-use-malware-robbing-10-mb/?fbclid=IwAR3ykbcbvMGVDz73pVAARPoOdvGwO5X7yzAFEBN_EzrR8bZm6HE6tXvyNEI link
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy, สันติสุข, ปิ่นณรงค์

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



โพสต์นี้ได้รับคำขอบคุณจาก: Un

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

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

9
ผมลองโหลดตัวอย่างที่ให้มาลองดูนับ Column ได้ 17 (op1) เหลือสองอันท้ายไม่มีข้อมูล
โพสต์นี้ได้รับคำขอบคุณจาก: Un

10
 :cool: :cool: :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

11
ลองดูไหมครับผมว่าของใหม่ก็ดีกว่าของเก่านะ  :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

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
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

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
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

14
ลองเช็คแบบนี้ยังครับ

http://firstblogofvarun.blogspot.com/2010/02/microsoft-access-was-unable-to-create.html link
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

15


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

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

16
เป็นตัวอย่างของอ.สุภาพ เขียนไว้ โปรแกรม MS Access  เสียงเรียกคิว

https://drive.google.com/file/d/1HQuSBEj0aaePrM-jpw-f64rqXSctLwTf/view?usp=sharing
link
โพสต์นี้ได้รับคำขอบคุณจาก: thaiaccboard, pirin, สันติสุข, kitisak

หน้า: [1] 2