สมัครสมาชิก

แสดงกระทู้

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

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

12


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

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

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

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

14
ห้อง MS Access / MS Access ส่งข้อความเข้า line notify
« เมื่อ: 23 เม.ย. 61 , 14:27:52 »
https://notify-bot.line.me/th/ link

ทดลองส่ง ข้อความจาก ms access เข้า line

สมัคการใช้และเอา token ไปใส่ในฟอร์มด้วยนะครับ
ที่มา : http://snasui.com/viewtopic.php?t=12785 link

โค๊ด: [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
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy, สันติสุข, Su, Iamnaw Amornkanjanawat

15


พอดีได้ทำอีกครั้ง เลยเอามาแชร์สำหรับเพื่อนที่สนใจครับ

ตอนนี้มีโปรแกรมในการเชื่อมต่อที่ง่ายขึ้นด้วย MX Component ของ Mitsubishi
link ตัวอย่างการใช้งาน

แหล่งที่มา ตัวอย่าง link

และสามารถเขียนส่งข้อความเข้าโปรแกรม line ได้

http://www.silverlight.in.th/?p=380 link

ความเดิมจากกระทู้เก่าที่

https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=627&PagePosition=1


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

หน้า: [1]