กำลังทำตามครับ ลบหลายคิวรี่แล้ว ยังไม่โชว์ชื่อครบ ทั้ง value row column ลองๆสลับกันดู ยังไม่สำเร็จ ออกชื่อครูที่ปรึกษาไม่ครบ

ส่งฐานข้อมูลที่มี student และ ตารางที่มี adviser มาครับ
ผมทำให้ดู

เพิ่มให้เรียบร้อยครับ ทั้ง 2 อย่างที่ต้องการ

โอว! วินโดว์

  XP ครับ รุ่นเก่าๆขี้เกียจเปลี่ยน โปรแกรมที่ใช้งานก็เสถียรดี ครับ ใช้กับ Homc และโปรแกรมเก่าๆซะส่วนใหญ่
อีกอย่าง เห็น Windows OS แล้ว ถ้าเห็นสเปคเครื่องแล้ว จะ โอวววว!!! กว่านี้ 

มีในโทรศัพย์ ครับ จะแสดงตอนกดจะตอบคำถาม และด้านล่างของหน้าเว็บ Chromeโทรศัพย์ ส่วนในคอม ไม่แสดง

รบกวนสอบถามการแปลงวันที่ใดๆก็ตามให้เป็นวันแรกของเดือนครับ เท่าที่หาเจอแต่ของ Excel จะได้สูตรประมาณนี้
=DATE(YEAR(A1),MONTH(A1),1)
ก็จะได้ว่า 12-2-2020 กลายเป็น 1-2-2020 คือเป็นวันแรกของเดือน
ต้องการผลลัพทธ์แบบนี้กับ access ใครทราบวิธีการรบกวนชี้แนะครับ

สมมุติฟิลล์วันที่ชื่อ Dates นะครับ

FirstDate: DateSerial(Year([Dates]),Month([Dates]),1)

1.อยากให้แสดง รหัสอาหาร,ชื่ออาหาร ทีไม่มีการสั่งซื้อ

ที่คิวรี่กดมุมมอง Sql เอาโค้ดนี้ไปวาง
SELECT รายการอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ
FROM รายการอาหาร
WHERE (((รายการอาหาร.รหัสอาหาร) Not In (select [รหัสอาหาร] from [การสั่งอาหาร])));


2.อยากให้แสดง รหัสอาหาร,ชื่ออาหาร ที่มีการสั่งซื้อมากที่สุด

รวมจำนวนการสั่งเรียงจากมากไปหาน้อย โค้ดตามนี้เลยครับ
SELECT การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ, Sum(การสั่งอาหาร.จำนวนสั่ง) AS จำนวนการสั่ง
FROM รายการอาหาร RIGHT JOIN การสั่งอาหาร ON รายการอาหาร.รหัสอาหาร = การสั่งอาหาร.รหัสอาหาร
GROUP BY การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ
ORDER BY Sum(การสั่งอาหาร.จำนวนสั่ง) DESC;

ถ้าอยากแสดงจำนวนการสั่งมากที่สุดอันดับที่ 1 ก็ใส่แบบนี้
SELECT TOP 1 การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ, Sum(การสั่งอาหาร.จำนวนสั่ง) AS จำนวนการสั่ง
FROM รายการอาหาร RIGHT JOIN การสั่งอาหาร ON รายการอาหาร.รหัสอาหาร = การสั่งอาหาร.รหัสอาหาร
GROUP BY การสั่งอาหาร.รหัสอาหาร, รายการอาหาร.ชื่อ
ORDER BY Sum(การสั่งอาหาร.จำนวนสั่ง) DESC;

ลองปรับให้แล้วครับ ให้ดูโค้ดล่าสุดที่ข้อความนะครับ ผมใช้การ ซ่อนสถานนะที่เป็น Label ไว้ด้วย

ถ้าอยากจะให้โค้ดทำงานตอนกดบันทึก แทนสถานะ หลังการปรับปรุง ก็ใส่ว่า

Private Sub cmdSave_Click()
    Dim strStatus as string
    Me.Dirty = False
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE qryWork SET qryWork.TerminatedDate = [txtTerminatedDate] WHERE (((qryWork.ContractorID)=[txtContractorID]));", dbFailOnError
    strStatus = Nz(DLast("[ContractorStatus]", "[qryWork]", "[NationalID]=[Forms]![frmEditWork]![txtNationalID]"))
    Me.[txtContractorStatus2] = strStatus
    If strStatus = "ยังปฏิบัติงานอยู่" Then
    [Forms]![frmEditWork]!Label41.Visible = True
    Else
    [Forms]![frmEditWork]!Label41.Visible = False
    End If
    DoCmd.SetWarnings True
End Sub

ท่านมาถูกทางแล้ว แต่ผิดนิดเดียวตรงอ้างชื่อฟิลล์นะครับ

หรือจะใช้ Expression แบบเดิมก็ได้เหมือนกัน แก้ตรง อ้างถึงฟิลล์ใหม่ก็ใช้ได้เลย
น่าจะแบบนี้ DLast("ContractorStatus", "qryWork", "[NationalID]=[Forms]![frmEditWork]![txtNationalID]")

หรือ Event Form Current

Private Sub Form_Current()
Me.txtContractorStatus = DLast("ContractorStatus", "qryWork", "[NationalID]=[Forms]![frmEditWork]![txtNationalID]")
End Sub

ตรงสีแดงต้องอ้างถึงชื่อฟิลล์ ไม่ใช่ชื่อ textbox โดยผมคิดว่าฟิลล์น่าจะชื่อ  NationalID หรือเปล่า

เหมือนฟอร์มเก็บบิลที่ชำระ จะไม่ได้เปิดให้ให้เพิ่มข้อมูลใหม่ นะครับ
ถ้าเพิ่มเรคคอร์ดใหม่ไม่ได้ ใช้แค่เรคคอร์ดเดียวที่ฟอร์ม 2 ให้ลบโค้ด Docmd.gotorecord,,acnewrec ออกไป
ข้อมูลก็จะเพิ่มแค่เรคคอร์ดเดียวเมื่อกด ฟอร์ม1 เข้ามา


หรือถ้าฟอร์ม 2 นั้นจะปิดการเพิ่ม Record ใหม่ บนฟอร์ม
จะใช้วิธีอื่นๆก็ได้เช่น rs!Addnew หรือจะใช้การ AppendQeury ไปที่ F_receivable_total แล้วสั่ง Requery บนฟอร์ม2 เพื่อแสดง ID นั้นขึ้นมา ก็ได้เหมือนกันครับ