แสดงกระทู้

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
ใส่ .BodyPart.Charset = "utf-8"   
ตามนี้ได้เลยครับ

https://stackoverflow.com/questions/43927471/send-up-arrow-%E2%86%91-character-to-iphone-with-sms-using-vba-and-a-cdo-mail-object link

ผมลองแล้วใช้ได้



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

2
อ้างถึง Textbox ในฟอร์มหลัก แบบนี้ครับ   = [Forms]![ชื่อฟอร์มหลัก]![ชื่อTextbox]

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

3
[Date] นี่ชื่อฟิลด์หรือเปล่าครับ
หรือ Date() เรียกวันที่จากระบบ
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

4
สำหรับ Gmail ใช้อันนี้ได้ครับ
https://wellsr.com/vba/2020/excel/vba-send-email-with-gmail/ link
แล้วก็เปิด App password gmail นำพาสที่ได้มาใช้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข, Tatchawin, Max

5
ห้อง MS Access / : การใช้งาน SQL Server กับ MS Access
« เมื่อ: 23 ก.ย. 63 , 16:07:05 »
1.ดึงมาใช้ได้นะครับ
2.อันนี้ผมไม่เคยส่วนมากที่ใช้จะเขียนใหม่เลยครับแต่คิดว่าคงได้บางอย่างครับ

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

6
งานที่ทำเป็นการ Link Table MS SQL server มาหรือเปล่าครับ ถ้าใช่ลองสร้าง Query ใส่เงื่อนไขที่Field  [Dates] = = =Forms!frmSearchCertificate!txtApplyDate  แล้ว view ดูข้อมูลได้ไหมครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR, mtaccess

7
ห้อง MS Access / : สอบถามเรื่องDCount ค่ะ
« เมื่อ: 10 ก.ย. 63 , 20:46:55 »
proReq_start_date--> ชื่อฟิลด์ก็บราคา === ชื่อฟิลด์วันที่เปล่าครับ ถ้าใช่ก็ใช้ #field# กับวันที่
com_price = DCount("[Pro_pro]", "[qry_Assess with details]", "[Pro_pro]= " & Pro_pro & " And [proReq_start_date]=#" & Me.proReq_start_date & "#")
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข, Jiw Jewel

8
แบบนี้หรือเปล่าครับ


ที่มา : https://stackoverflow.com/questions/11275356/vba-procedure-to-import-csv-file-into-access link
โพสต์นี้ได้รับคำขอบคุณจาก: mtaccess

9
ลองเปิด csv ด้วย notepad > Save UTF-8 ดูก่อน นำเข้าดูครับ


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

10
ทำ Query Distinct แบบนี้ได้ไหม
SELECT DISTINCT Quater, SuppliersQTarget, ...
FROM Q_0KADAIQ1;
โพสต์นี้ได้รับคำขอบคุณจาก: เก่ง

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

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





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

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

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

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

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

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

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

หน้า: [1] 2