สอบถามนิดนึงค่ะว่า ตรง หน้าต่างใส่โค้ด VBA อ่ะค่ะ มันไม่อ่านภาษาไทย ต้องแก้ตรงไหนหรอคะ

ที่หน้าต่างใส่โค้ด ไปที  Tool > Option > Editor Format
ที่ Font กำหนดเป็น Tahoma Bold (Thai)  หรือ ฟ้อนอื่นๆ ที่มีคำว่า(thai) ต่อท้ายอยู่ครับ

มันขึ้น

ผมทักข้อความไปนะครับ แอด line มาเดี่ยวผมแก้ให้ 

ถามเพิ่ม เติม นิดนึงนะครับ   ถ้า เรา จะ ให้มี ตัวอักขระ นำหน้า  เช่น  NC-61070201    หรือ  ตามหลัง เช่น  61070201NC
ต้องตั้งค่าอย่างไรครับ

ถ้าต่อหลังแบบ 61070201NC กำหนดดังนี้

Private Sub ID_DblClick(Cancel As Integer)
Dim strDate As String
Dim intNum As Integer, intMax As Variant
Dim strSuffix As String
Dim strID As String
strID = "NC"
strDate = Format(Date, "yymmdd")
intMax = DMax("Val(Mid([ID],7))", "table1", "Left([ID],6) = '" & strDate & " '")

If Me.ID = "" Or IsNull(Me.ID) Then
        If IsNull(intMax) Then
            intMax = 0
            'Debug.Print "1"
        Else
            intMax = intMax + 1
            If intMax > 99 Then intMax = 0
            'Debug.Print "1"
        End If
        Me.ID = strDate & Format(intMax, "00") & strID
End If
End Sub


ถ้าทำแบบต่อด้านหน้า แบบ NC-61070201 กำหนดดังนี้

Private Sub ID_DblClick(Cancel As Integer)
Dim strDate As String
Dim intNum As Integer, intMax As Variant
Dim strSuffix As String
Dim strID As String
strID = "NC-"
strDate = strID & Format(Date, "yymmdd")
intMax = DMax("Val(Mid([ID],10))", "table1", "Left([ID],9) = '" & strDate & " '")

If Me.ID = "" Or IsNull(Me.ID) Then
        If IsNull(intMax) Then
            intMax = 0
            'Debug.Print "1"
        Else
            intMax = intMax + 1
            If intMax > 99 Then intMax = 0
            'Debug.Print "1"
        End If
        Me.ID = strDate & Format(intMax, "00")
End If
End Sub

ขอเรียนสอบถามนะคะ

ในตารางเดิม หนูเก็บข้อมูลวันที่เอาไว้ เป็นแบบ วัน/เดือน/ปี
ที่นี้ หนูอยากให้แสดงผลใน Query โดยให้แสดงปีก่อน เป็นดังนี้ค่ะ ปี/เดือน/วัน

ไม่ทราบว่าสามารถทำใน Query ได้หรือไม่
ในฟอร์ม หนูสามารถทำได้โดยอ้างอิง Text1 ดังนี้ =Format(CDate(Forms![Frm_Date]!Text1)," yyyymmdd")
ได้ผลตาที่ต้องการ
แต่พอจะทำใน Query ไม่ทราบว่าจะอ้างอิงจากอะไร อย่างไรคะ พยายามทำยังไม่สำเร็จค่ะ

สมมุติ Field ในตารางชื่อ DateIn เก็บข้อมูลวันที่
เดิมเป็น 25/01/2018
ใส่ Date:Format([DateIn],"YYYY/MM/DD")  ผลลัพท์ 2018/01/25
หรือ Date:Format([DateIn],"YYYYMMDD")  ผลลัพท์ 20180125


ตัวอย่างด้านล่าง

เอางี้ดีกว่าครับง่ายดี
เปิดรายงานขึ่นมาแล้วกดปุ้ม Export เพื่อให้ Export รายงานให้เราเลย

ที่ Code ให้สังเกตุว่ามีการอ้างถึงชื่อของรายงาน ถ้า รายงานท่านชื่ออื่นก็เอาซื้อมาใส่ให้ตรงกับที่ผม วงไว้



ตัวอย่างด้านล่าง

ลองดูตัวอย่างนี้นะครับ

เวลาจะกด Export คุณอาจจะนำ คำสั่งนี้ต่อท้ายไปตอนกดเปิดรายงานนะครับ

วิธีใช้คือ ที่ปุ่มกดเปิดรายงาน
ใส่ Call ExportExcel()


ตัวอย่างคำสั่งครับ

Sub ExportExcel()
Dim strReportName As String
Dim strPathOUT As String
Dim OpenTarget As Object
Set OpenTarget = CreateObject("Shell.Application")

strReportName = "ReportName"
strPathOUT = CurrentProject.Path & "\ " & strReportName & ".xls"


DoCmd.OutputTo acOutputReport, strReportName, acFormatXLS, strPathOUT

OpenTarget.Open (strPathOUT)
End Sub


หมายเหตุ ReportName คือชื่อของ Report ที่เราจะ Export ออกไปเป็น Excel นะครับ

ตัวอย่างใหม่ครับ แก้ไขเลือกวันที่ล่าสุดและ ถ้าวันที่ล่าสุดซ้ำกันก็จะเอาจาก ID มากสุด เป็น True


Query แรก ชื่อ FindDuplicate
SELECT i1.*
FROM table1 AS i1 LEFT JOIN table1 AS i2 ON (i1.DDate < i2.DDate) AND (i1.NNAME = i2.NNAME)
WHERE i2.DDate IS NULL;


Query2 FindDuplicate2
SELECT Max(FindDuplicate.ID) AS ID, FindDuplicate.NNAME, FindDuplicate.DDATE, True AS OLD
FROM FindDuplicate, FindDuplicate AS t
GROUP BY FindDuplicate.NNAME, FindDuplicate.DDATE, True;

คิวรี่สุดท้าย ชื่อ Result
SELECT TABLE1.ID, TABLE1.NNAME, TABLE1.DDATE, IIf(Not IsNull([OLD]),True,False) AS CheckOLD
FROM TABLE1 LEFT JOIN FindDuplicate2 ON TABLE1.ID = FindDuplicate2.ID;

Macro เดิมติดตั้งไว้ที่ Event ไหนครับ ของ Form หรือ Control 

ที่ Event Afterupdate
ลองใส่ Call itemsalesMacro()
ดูครับได้ไหม

ยกตัวอย่างเช่น           --------->   อยากให้เป็นแบบนี้ครับ   
ครั้ง      ออม                                      ครั้ง      ออม                                         
1          5                                         1         5
2          7                                         2         7
3          1                                         3         1
4          2                                         4         2
5         12                                        5        12
6           2                                        6         2
7           2                                        9         0                                     
8           2                                        10       2
9           0
10         2


ขอรบกวนท่านผู้รู้ด้วยนะครับ

ตัวอย่างวางบน Module นะครับ

Public Function DeleteIFDuplicate
Dim db As DAO.Database
Dim recIn As DAO.Recordset
Dim strSaving As String
Dim lngRecordsDeleted As Long
lngRecordsDeleted = 0
Set db = CurrentDb()
Set recIn = db.OpenRecordset("Query1")
If recIn.EOF Then
    MsgBox ("No Input Records")
    recIn.Close
    Set recIn = Nothing
    Set db = Nothing
    Exit Function
End If
Do
If recIn!saving = strSaving Then
   recIn.Delete
   lngRecordsDeleted = lngRecordsDeleted + 1
Else
    strSaving = recIn!saving
   
End If
recIn.MoveNext
Loop Until recIn.EOF
recIn.Close
Set recIn = Nothing
Set db = Nothing
MsgBox ("You Deleted " & lngRecordsDeleted & " Records")
End Function




หมายเหตุ Field Saving คือ Field ที่ชื่อ ออม นะครับ
Query1 คือชื่อ Query ที่เราต้องการ ที่ผมกำหนดจากคิวรี่ เพราะต้องการเรียง Round จากน้อยไปหามากก่อน
การใช้งาน สร้างปุ่ม Command Botton มีอันนึง ที่ Event Onclick ใส่ไปว่า
Private Sub Command1_Click()
Call DeleteIFDuplicate
End Sub