ไฟล์ A   (หรือเรียกว่า Backend File) จะเก็บเฉพาะเทเบิล  ส่วนไฟล์ B (หรือที่เรียกว่า Frontend File) จะเก็บส่วนอื่นๆนอกเหนือจากเทเบิล  แต่จะสร้าง Linked Table ขึ้นมาแทนเทเบิลที่ได้ย้ายไปยัง A  ซึ่งก็จะโยงไปหาเทเบิลจริงในไฟล์ A นั่นเอง  ดังนั้นการกระทำใดๆกับข้อมูลผ่าน  Linked  Table  ก็คือการทำกับข้อมูลในไฟล์ A ครับ  วิธีนี้คือวิธีที่ถูกต้องในการสร้างระบบใดๆสำหรับ Access ครับ  ไม่เว้นแม้แต่เราทำบนเครื่องเดียว ผู้ใช้เดียว

ใครเคยใช้ไหม เป็นยังไงบ้าง https://ultraviewer.net/en/

Access ทำคุณสมบัติการลบเรคอร์ดให้ไว้อยู่แล้ว โดยกำหนด Record Selector property ของทั้งฟอร์มหลักและฟอร์มย่อย ให้เป็น Yes   คุณก็จะเห็น แถบ ที่ด้านหน้าเรคอร์ด เมื่อคลิกที่แถบนี้และกดคีย์ DELETE มันก็จะลบเรคอร์ดให้  ส่วนการลบเรคอร์ดบนฟอร์มหลักและไปลบเรคอร์ดในฟอร์มย่อยที่เกี่ยวข้องโดยอัตโนมัติ ก็ใช้คุณสมบัติเรื่อง Referential Integrity ซึ่งเป็นคุณสมบัติพื้นฐานของระบบจัดการฐานข้อมูลทุกตัวอยู่แล้วครับ ดูวิธการที่ อ.Yeadram ตอบใน https://www.thai-access.com/yeadram_view.php?topic_id=725

หมายเหตุ : ฟอร์มหลักให้ผูกเข้ากับเทเบิลของข้อมูลหลัก ส่วนฟอร์มย่อยก็ผูกเข้ากับเทเบิลของข้อมูลย่อย จะง่ายกว่าไปผูกกับคิวรี่ซึ่งมีเงื่อนไขในฟอร์มหลักอีกที ดูแล้วงงๆ

สร้างโมดูล แล้วใส่โค้ดข้างล่างนี้ เวลาเรียกใช้ ก็แค่สั่ง setdate เท่านั้น  โค้ดมีความแตกต่างนิดหน่อยจากโค้ดของคุณ nonc31 นะครับ คือไม่มีการเช็ค compiler directive VBA7 เพราะ VBA7 ไม่ได้เป็นการเช็คว่าระบบเป็น 32 หรือ 64 bit  ถ้าจะเช็คต้องใช้ compiler directive Win64  แต่ยังไงก็ตาม API 3 ตัวนี้ไม่มีความจำเป็นต้องเช็ค เพียงแค่ตบแต่งบางอย่าง ก็จะใช้ได้ทั้ง 32 และ 64 bit แต่ใช้สำหรับ Access 2007 หรือสูงกว่าเท่านั้นนะครับ

เนื่องจากว่า ผมเข้าใจว่าการเรียกใช้ API ทั้ง 3 ตัวนี้ ถูกเรียกจาก procedure setdate เท่านั้น ดังนั้นไม่จำเป็นต้องกำหนดเป็น Pubic ที่คำสั่ง Declare ก็ได้ แต่ใส่ไว้ที่ procedure setdate ที่เดียวก็ได้ครับ

ยังไงก็ตาม ผมลองโค้ดนี้ในเครื่องของผมตอนนี้ จะไม่ได้ผลทันที ต้องปิด Access แล้วเข้าใหม่  ส่วนที่แสดงเวลาบนหน้าเดสก์ท็อปเองก็ไม่เปลี่ยน แต่ฟอร์แมทภายในเปลี่ยน ไม่ทราบเหมือนกันว่าเป็นเพราะอะไร

Option Compare Database
Option Explicit

Private Const LOCALE_SSHORTDATE = &H1F
Private Const WM_SETTINGCHANGE = &H1A
Private Const HWND_BROADCAST = &HFFFF&

Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Long
Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long
Declare PtrSafe Function GetSystemDefaultLCID Lib "kernel32" () As Long

Public Function setdate()
    Dim dwLCID As Long
   
    dwLCID = GetSystemDefaultLCID()
    If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy") = 0 Then
        MsgBox "ผิดพลาด", vbCritical, "Error"
        Exit Function
    End If
   
    PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Function


ไปดูโปรแกรมที่จะใช้ดีกว่า ว่าเขาใช้ฐานข้อมูลฟอร์แมทหรือยี่ห้ออะไร จะได้รู้ว่า export ไปได้ง่ายไหม หรือเขาสามารถอ่านฐานข้อมูลของ Access ได้โดยตรงเลยหรือไม่

API (Application Program Interface)  เป็นชื่อเรียกรวมๆของฟังก์ชันที่ระบบสร้างไว้ให้ผู้พัฒนาโปรแกรมเขียนโค้ดไปเรียกใช้เพื่อสั่งให้ระบบทำงานต่างๆ เพราะภาษาที่เราใช้เขียนโปรแกรมนั้นไม่ว่าจะภาษาอะไรก็ตาม ไม่สามารถสร้างฟังก์ชันเอาไว้ให้ทำได้ทุกอย่างที่ต้องการ  ถ้าเป็น API ของระบบวินโดวส์ เรียกเต็มๆก็คือ Windows API แต่ก็มักเรียกสั้นๆว่า API   ดังนั้นก็ต้องเข้า VBA Editor แล้วกด Ctrl-F เพื่อค้นหาชื่อ API ที่เรา Declare เอาไว้ทีละตัว ว่ามันอยู่ที่ไหนในโค้ดบ้างเท่านั้นเองครับ

จากที่คุณบอกว่าปลายทางมีแต่ Runtime มันก็จะหาจากเครื่องปลายทางคงไม่ได้ ก็มีแต่ที่เครื่องต้นทางให้เข้าโปรแกรมไฟล์แล้วกด F11 ตามที่คุณ PNR บอก คุณก็เห็นไลบรารี่ทุกตัวที่ทำเครื่องหมายเลือกเอาไว้ ซึ่งจะแสดงติดๆกันที่ด้านบนของลิสท์ ให้คุณดูส่วนที่เขียนว่า Location ที่อยู่ด้านล่างที่จะบอกว่าไฟล์อะไรอยู่ที่ไหน เราก็ไปดูที่เครื่องปลายทางว่ามีไฟล์นั้นหรือไม่ ตัวไหนไม่มีก็ค่อยก็อปปี้ไป ย้ำว่าเอาเฉพาะตัวที่หาไม่มีในเครื่องปลายทางนะครับ อย่าไปก็อปปี้ทับ หลังก็อปปี้ไปอาจจะใช้ได้หรือไม่ ก็ยังไม่แน่ครับ ขึ้นกับปัจจัยมากมาย แต่โปรแกรมไม่ต้องแก้ไขอะไรครับ


แต่ถ้าเกิด Location มันยาว ก็จะมองเห็นไม่หมด ทีนี้ก็ต้องเข้าโปรแกรม RegEdit ซึ่งเป็นโปรแกรมของระบบวินโดว์ที่เข้าไปยุ่งกับค่าทุกค่าที่เกี่ยวกับระบบวินโดว์และโปรแกรมต่างๆในเครื่องแล้ว ซึ่งถ้าทำอะไรผิดไป ระบบวินโดว์อาจพังไปเลย  ถ้าไม่เคยใช้ RegEdit ตรงนี้ไม่ค่อยอยากให้เข้าไปยุ่งเลยครับ

ไม่ค่อยเข้าใจคำถาม แต่เอาเป็นว่า ภาพจาก Query Design ที่นำเอาคิวรี่แต่ละตัวมาเชื่อมความสัมพันธ์กับตัวก่อนหน้า ก็จะให้ผลเป็นว่า   box-inqty จะเป็นคิวรี่หลัก ถ้ามีเรคอร์ดของ 1A030000008 ก็ถึงจะแสดงบรรทัดออกมาให้เห็น แต่ว่า 1A030000008 ไม่มีใน box-outqty ดังนั้น inhouse (และฟิลด์อื่นๆ) ของ box-outqty จะเป็นค่าว่างๆ ดังนั้นมันก็ไม่สามารถไปหา inhouse จากคิวรี่ตัวถัดไปได้ สมมุติถ้ามี 1A030000008 จากทุกคิวรี่ยกเว้น pcs-in ผลก็คือมันจะแสดงค่าจาก box-inqty และ box-outqty เท่านั้น  หรือว่า ถ้ามีในทุกคิวรี่ยกเว้น box-inqty ทีนี้ก็กลายเป็นว่าจะไม่มีแสดงบรรทัดของ 1A030000008 ออกมาเลย

วิธีแก้ไขก็คือ เปลี่ยนเป็นสร้างความสัมพันธ์ระหว่างคิวรี่ทุกตัวกับตัวหลักแทนครับ ก็คือ box-inqty กับ box-outqty, box-inqty กับ pcs-in, ...

กรณีที่ต้องการใส่เงื่อนไขให้คิวรี่ วิธีนึงคือให้บรรทัด Criteria (Access ไทยไม่รู้ใช้คำว่าอะไร, "เงื่อนไข" หรือเปล่า) ของฟิลด์ bill_date และ vihecle_no (จริงๆคำสะกดที่ถูกต้องคือ vehicle นะครับ) ใน Qviheclereport อ้างถึงเท็กซ์บ็อกซ์หรือคอมโบบ็อกซ์บนฟอร์ม frmviheclecomh ที่เราได้เลือกเป็นค่าของเงื่อนไขเอาไว้ สำหรับ vihecle_no นั้นคิดว่าไม่มีปัญหา แต่สำหรับ bill_date เราจะสร้างเท็กซ์บ็อกซ์ 2 ตัวเพิ่มเติมไว้บนเมนฟอร์ม สมมุติชื่อ bill_date_from และ bill_date_to เรากำหนดให้ Visible property ของ 2 ตัวนี้เป็น False เพื่อไม่ให้เห็น จุดประสงค์ของ 2 ตัวนี้เพื่อเก็บวันที่แรกและสุดท้ายของเดือน/ปีที่เลือก เช่น 1/9/2019 และ 30/9/2019 สำหรับเดือน 9 ปี 2019 ที่ทำอย่างนี้เพื่อให้เงื่อนไขของฟิลด์ bill_date ในคิวรี่ สามารถอ้างได้อย่างง่ายๆ ต่อไปก็แล้วแต่จะออกแบบไว้ว่าจะให้ subform แสดงคิวรี่ตามเงื่อนไขที่เลือกเมื่อไหร่ สมมุติว่าเมื่อมีการกดปุ่มชื่อ btnRequery แล้วกัน ดังนั้นใน btnRequery_Click event procedure ก็จะต้องรันโค้ดดังต่อไปนี้

Private Sub btnRequery_Click()
   Me.bill_date_from = DateSerial(Me.combo_year , Me.combo_month , 1)
   Me.bill_date_to = DateSerial(Me.combo_year , Me.combo_month + 1 , 0)
   Me.[ชื่อ sub form control].SourceObject = "frmviheclecomd" ' แต่ถ้าผมเข้าใจผิด ถ้า SourceObject ต้องเป็นชื่อ Qviheclereport ก็แก้ให้ถูกต้องด้วย
   Me.[ชื่อ sub form control].Form.Requery ' บรรทัดนี้อย่าเพิ่งใส่ ให้ทดลองดูก่อน ถ้าไม่ใส่แล้วคิวรี่ไม่เปลี่ยนตามเงื่อนไข ค่อยมาใส่
End Sub
กลับมาที่คิวรี่ เราก็จะใส่คำว่า Forms!frmviheclecomh!vihecle_no สำหรับเป็นเงื่อนไขของฟิลด์ videcle_no  และใส่ between Forms!frmviheclecomh!bill_date_from and Forms!frmviheclecomh!bill_date_to สำหรับฟิลด์ bill_date เท่านี้เองครับ

หมายเหตุ :
1. โค้ดทั้งหมดนี้ยังไม่ได้ลองนะครับ และรันแล้วอาจมีผิดพลาด อาจผิด data type ระหว่าง string และ text
2. โค้ดไม่ได้มีการเขียนป้องกันว่า ถ้าไม่ใส่เดือน/ปี จะแสดงข้อความแจ้งเตือนหรืออะไรยังไง ตรงนี้คุณไปจัดการเองแล้วกัน
3. เมื่อเปิดฟอร์มมา เนื่องจากยังไม่ได้ป้อนเลือกอะไร ดังนั้นค่าที่คิวรี่ใช้เป็นเงื่อนไขก็ยังไม่มี อาจจะ error ได้ ผมคิดว่าเราเว้น SourceObject property ของ sub form ว่างๆไว้ดีกว่าครับ (ซึ่งมันจะถูกเติมในโค้ดข้างบน)