ผมได้ตัวอย่างในบอร์ดมาครับ จะทำคำนวณเงินต้นและดอกเบี้ย แต่งวดสุดท้ายถ้า Sum รวมกันแล้วมันเกินเงินต้นอยากให้งวดสุดท้าย รวมเศษที่เหลือทั้งหมดรวมกับค่างวดในงวดสุดท้ายนั้นด้วยครับ
ผมมีตาราง Table1 เก็บข้อมูลตาม Code ครับ

มีคำถาม 2 ข้อครับ
1. มีดิวกำหนดชำระทุกวันที่5 ถ้าบวก 30 วันที่จะไม่ตรง แต่อยากให้วันที่เป็นวันที่ 5 (หรือวันที่กำหนด) ทุกเดือน
2. อยากให้เอาเศษที่เหลือรวมงวดสุดท้าย เมื่อเอาเงินต้นมาหารงวด เศษที่เหลือเท่าไหร่เอารวมในงวดสุดท้ายครับ

ขอบคุณครับ

    Dim rs As DAO.Recordset
    Dim i As Integer
    Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
    '---------------เพิ่มเรคคอร์ดใหม่--------------
    For i = 1 To 36 ' ใส่จำนวนเรคคอร์ดที่ต้องการ
        rs.AddNew
    'ใส่ชื่อฟิลด์ที่ต้องการ และใส่ค่า โดยกำหนด Data Type ให้ถูกต้อง ถ้าเป็น Text ต้องมี "" คล่อม ถ้าเป็นตัวเลขไม่ต้องมี
        rs!รหัส = "001"
        rs!ชื่อสินค้า = "งวดที่ " & i
        rs!วันครบกำหนด = Date + (30 * i)
        rs!จำนวน = (55000) / 36
        rs!ดอกเบี้ย = (((55000 * 15) / 100) / 12)
        rs.Update
    Next i
    '-----------------------------------------
    rs.Close: Set rs = Nothing


รบกวนสอบถามครับ ผมมีพนักงาน 5 คน  มีลูกค้าจำนวน 100 คน แต่ละคนจะมอบหมายงานให้ดูแลลูกค้าจำนวนไม่เท่ากัน โดย กำหนดจำนวน ตามรูปภาพ
ผมจะทำเป็นปุ่ม เมื่อกดแล้ว ให้ชื่อพนักงานเข้าไป update กับฟิวส์ Employee_Assign ข้อมูลเดิม ตามจำนวนของพนักงานที่ได้กำหนดไว้ซึ่งแต่ละคนจะไม่เท่ากัน โดยมีเงื่อนไขว่า จะต้องเรียงลำดับจากตารางลำดับที่1-100 (ตารางผมทำเป็น Qry เรียงลำดับไว้แล้ว)ชื่อพนักงาจะเข้าไปวนจนครบจำนวนของแต่ละพนักงานแต่ละคน ถ้าพนักงานคนใดเมื่อครบแล้วให้หยุดเท่ากับจำนวนที่ได้กำหนดไว้ ส่วนพนักงานที่ยังไม่ครบ ไล่ลำดับต่อไปเรื่อยๆ ตามจำนวนของแต่ละคน (โดยไม่ให้ชื่อพนักงานถูกเรียงต่อกัน ยกเว้นลำดับท้ายๆ ที่อาจจะมีพนักงานคนใดคนนึงได้รับจำนวนมากกว่าคนอื่น)  ขอบคุณล่วงหน้าครับ

รบกวนสอบถามการ add record จากฟอร์ม (ไม่ได้ link table เป็นฟอร์มสำหรับรับข้อมูลเข้าตาราง)  ครับ ผมทำปุ่มไว้ และ ใส่ code ด้านล่างนี้ไว้ ใช้ฐานข้อมูลเป็น sql server 2014 ฟิวส์อื่นสามารถเพิ่ม record เข้าตาราง sql ที่ link เข้ามาได้ ยกเว้นฟิวส์ ตรง now() เพื่อนำเข้าวันที่ แบบ "01/12/2020  11:11:11" และ ที่เป็นรูปแบบ วันที่ และ จำนวนเงิน  DATEPTP และ PTPAMT เข้าไม่ได้ครับ

เท่าที่สังเกตุดูจะเข้าได้ ในรูปแบบ TYPE ที่เป็น text (nvarchar) ครับ

ตัวอย่าง Code ครับ

Private Sub Command124_Click()
If IsNull([ACTIVITY]) Then
MsgBox "โปรดบันทึกข้อมูลก่อน save", , "ห้ามข้อมูลว่าง"
Else

CurrentDb.Execute " INSERT INTO tblactivity(CONTRACT_NO, USER_COLL_NOTE, USER_EXE_NOTE, DATECONTACT,DATEPTP,PTPAMT,ACTION_COLL,RESULT_COLL,RECALL_COLL,ACTIVITY)" & _
                            " VALUES (" & contract_NO & " ,'" & txtthisuser & "','" & USER_EXE_NOTE & "','" & Now() & "','" & DATEPTP & "','" & PTPAMT & "','" & ACTION_COLL & "','" & RESULT_COLL & "','" & RECALL_COLL & "','" & ACTIVITY & "')"

End If
End sub

ขอบคุณครับ

สอบถามครับ โดยแยกเป็นคำถามดังนี้ครับ หลังการ เพิ่ม record ใหม่แบบ(Append) หลังจากนำเข้าข้อมูลเรียบร้อยแล้ว อยากให้มีข้อความแจ้งจำนวนที่นำเข้าไปครับ และ คำถามที่ 2 เป็นการ update เช่นกันครับ อยากให้แจ้งจำนวน record ที่ได้มีการ update เข้าไป  เช่น  นำเข้าทั้งหมด xxx Record เรียบร้อยแล้ว ,  ปรับปรุงข้อมูลจำนวน xxx Record เรียบร้อยแล้ว  ประมาณนี้ครับ   ขอบคุณครับ

 รบกวนครับ  ผมต้องการสร้าง Query กรองข้อมูลล่าสุดเพียง 1 รายการ จากตาราง โดยใช้เลขที่สัญญา กับ วันที่ และเวลา ครั้งล่าสุดครับ