รบกวนสอบถามนะคะ มือใหม่มากๆ ต้องการ การ run number โดยไม่ใช้ autonumber จุดประสงค์เพื่อให้ข้อมูลซ้ำกันได้ แต่ต้องการให้แสดงค่าเริ่มต้นเมื่อเพิ่มระเบียนใหม่ ต้องการให้ไปเอาค่า number ในระเบียนสุดท้ายมา + 1 ตรง sub on click ต้องกำหนดอย่างไรคะ หรือมีวิธีอื่นแบบไหน รบกวนผู้รู้ด้วยนะคะ เพิ่งหัดทำครั้งแรกค่ะ ความรู้งูๆปลาๆมากๆ

ฟอร์มที่จะสร้างเป็นแบบไหนครับ
อันนี้เป็นตัวอย่าง การสร้าง Running Number แทน AutoID นะครับ
ใช้การค้นหาค่าส่าสุดจากตารางเป้าหมายแล้วนำมา+1 เมื่อกดเปลี่ยนระเบียนใหม่

คำสั่งบน Module
Function getDigits(s As String) As String
    Dim retval As String
    Dim i As Integer
    retval = ""
    For i = 1 To Len(s)
        If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then
            retval = retval + Mid(s, i, 1)
        End If
    Next
    getDigits = retval
End Function


คำสั่งที่ปุ่ม CommandBotton ที่ใช้กดเพื่อขึ้นระเบียนใหม่

Private Sub AddNewRecord_Click()
DoCmd.GoToRecord , , acNewRec
If Me.NewRecord = True Then
    Dim strOldID As String
    Dim lngCurrentNumber As Long
    Dim lngNextNumber As Long
   
    If IsNull(DLast("[NO]", "tblDATA")) Then
    Me.No = "1"
    Else
    strOldID = DLast("[NO]", "tblDATA")
    Debug.Print strOldID
   
    lngCurrentNumber = getDigits(strOldID)
    Debug.Print lngCurrentNumber
    lngNextNumber = lngCurrentNumber + 1
    Debug.Print lngNextNumber
 
    Me.No = lngNextNumber
   
End If
      End If
     
End Sub

หมายเหตุ
tblDATA คือตารางที่ Bound กับฟอร์ม

DLast("[NO]", "tblDATA ส่วน NO นี้คือชื่อ Field ในตารางที่จะหาค่าล่าสุดเพื่อมา Running Number

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

ลองตั้งค่า เปิดใช้ Macro VBA ตามนี้ดูครับว่าได้ไหม
https://www.ugetproject.com/wp/ms-office-access/ตั้งค่าให้vbaทำงาน.html

อีกอย่างคือ ผมสร้างโปรแกรมตัวนี้ ด้วยการตั้งค่า Location เป็นไทย ถ้าท่านตั้งเป็นที่อื่นต้องแก้เป็นไทยให้เหมือนกัน
วิธีแก้กดที่ RUN > intl.cpl > administrative > language for non-Unicode programs > change system locale

ลองอธิบายอีกนิดครับอยากได้แบบไหน เช่น
1.คุณต้องการคำนวนว่าพนักงานลาไปแล้วกี่วัน หรือ เกินจากเกณฑ์ ที่ให้ไว้ 10 วันไปกี่วัน อยากได้แบบไหนครับ
2.ที่ว่าจะมีการหักแต้ม คำนวนการหักอย่างไรครับ
3.คุณอยากให้แสดง ไว้ตรงไหนของรายงานครับ

ตัวอย่างใหม่ครับ แก้ไขเลือกวันที่ล่าสุดและ ถ้าวันที่ล่าสุดซ้ำกันก็จะเอาจาก 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;

ขอรบกวนอาจารย์ด้วยครับ คือผมต้องการโค้ดที่สามารถ Export Data To Excel

โดยสามารถกำหนดชื่อไฟล์อัตโนมัติเป็นวันที่ปัจจุบัน และที่เก็บโดยไม่ต้องมี popup ของโปรแกรมถามครับ

ขอบคุณครับ

ลองดูตัวอย่างนี้นะครับ ผมสมมุติกำหนด CommandBotton ชื่อ ExportExcel นะครับ

Private Sub ExportExcel_Click()
Dim outputFileName As String
outputFileName = CurrentProject.Path & "\DataName" & " - " & Format(Date, "DDMMYYYY") & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "targetName", outputFileName, True
End Sub

หมายเหตุ DataName คือชื่อของไฟล์ ที่เราจะกำหนด ต่อท้ายด้วยวันที่ล่าสุด
            Format(Date, "DDMMYYYY")  คือการกำหนดให้มีวันที่ในรูปแบบที่เรากำหนดเองได้ Y คือปี M คือเดือน D คือวัน
            targetName  คือชื่อ Table หรือ Query ที่ต้องการจะ Export

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

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

เวลา เอามารันบน access 2016 นั้น มันไม่สามารถใช้งานได้ ใช่เปล่า มันต้องเปลี่ยนเป็นคำสั่ง vba code ใช่มั้ยครับ ผมอยากรู้ว่า  sendkey f9 นั้น ใช้ทำงานอะไรครับ ถ้าผมจะเอามาเขียนเป็น vba code นั้น ต้องเขียนว่า อะไรครับ

Send Key F9 คือการใส่ให้ Requery  หรือ  recalc ครับ คือการให้ฟอร์มแสดงผลลัพท์ล่าสุด
ถ้าเป็นฟอร์ม ให้ลบคำสั่งนั้นทิ้ง ใส่ว่า Form.requery แทน เป็น combobox ก็ใส่ me.combobox.requery  แทนครับ

ผมสร้างคิวรี่ค้นหาค่าซ้ำ เมื่อได้ค่าซ้ำมาแล้วต้องการแก้ไขค่า
ตัวอย่าง
Id   Name   Date   Old
7    A         21/6    Yes
10  A         21/6    Yes
ต้องการให้เป็น
Id   Name   Date   Old
7    A         21/6    No
10  A         21/6    Yes

สอบถามเพิ่มเติม ถ้า A ในตาราง ซ้ำกันมากกว่า สองละครับ เป็น No หมดไหม

ยกตัวอย่างเช่น           --------->   อยากให้เป็นแบบนี้ครับ   
ครั้ง      ออม                                      ครั้ง      ออม                                         
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