ทำได้หลายวิธี ซึ่งขึ้นกับการออกแบบการใช้งานด้วยครับ
เช่น บันทึกวันที่เก็บไว้ก่อน แล้วค่อยมาบันทึกเวลาทีหลัง อาจจะมี 2 หน้าจอตามจังหวะการบันทึก หรือ เป็นหน้าจอเดียวกันก็ได้
ถ้าเป็นแบบหน้าจอเดียวกัน อาจจะ bound data หรือไม่ก็ได้อีก

ผมยกตัวอย่าง 1 หน้าจอ bound data ทั้ง 2 field ให้นะครับ
text box vDate.ControlSource = [Date Field], Format = "dd/mmm/yyyy"
text box vTime.ControlSource = [Date Field], Format = "hh:mm"

สร้าง Function
Function SetDate(dtDate as DateTime, dtTime as DateTime) as DateTime

    SetDate = DateValue(Format(vDate, "dd/mmm/yyyy ") & Format(vTime,"hh:mm"))
End Sub

สร้าง event
Sub vDate_BeforeUpdate(Cancel As Integer)
    vDate = SetDate(vDate, vTime)
End Sub

Sub vTime_BeforeUpdate(Cancel As Integer)
    vTime = SetDate(vDate, vTime)
End Sub

ประมาณนี้ครับ (กรุณาตรวจสอบความถูกต้องก่อนใช้งานนะครับ)

ขอบคุณอาจารย์ PichaiTC เดี๋ยวผมขอลองทำดูก่อนครับ

ขอบคุณอาจารย์ PichaiTC ครับ ทำได้แล้วครับ
ไม่ได้ใช้ฟังชั่นแบบอาจารย์ เพราะทำแล้ว Err ผมประยุกต์ยังไม่ถูก แต่ ใช้แนวทาง
ที่อาจารย์ให้มา ครับ ขอบพระคุณอีกครั้งครับ