ใช้ Update Query ได้ครับ

เช่น
UPDATE TBLชนิด INNER JOIN TBLข้อมูลหลัก ON [TBLชนิด].[รหัส] = [TBLข้อมูลหลัก].[รหัส] SET [TBLข้อมูลหลัก].[ชนิด] = [TBLชนิด]![ชนิด];

ชื่อฟิลด์เหมือนกัน มันก็ลิงก์ให้อัตโนมัติ
ทำ Relationship ไว้ มันก็ลิงก์ให้อัตโนมัติครับ

เปิด form มาต้องมานั่ง Sort ใหม่ตลอดเลยครับ ใน Query ก็ Sort แล้ว ใน Subform ที่เป็นไฟล์แยกก็ Sort แล้ว

ที่ Recordsource ของฟอร์ม กดเข้าไปกำหนดที่เครื่องหมาย ... และตั้งค่าให้ฟอร์ม เหมือนต้องค่าคิวรี่นั้นแหละ
แล้วกำหนด sort ไว้ก่อนได้เลยครับ

จากรูปที่อธิบายมีช่องให้ใส่ในฟอร์ม ชื่อ TextUpdate
เลือก event on click จากปุ่ม "บันทึก" ที่สร้างไว้ (ผมไม่รู้ว่าปุ่มชื่ออะไร แต่ผมตั้งชื่อเป็น cmdSave นะครับ)
เลือก code builder
พิมพ์ Me.TextUpdate = Date() (ให้โปรแกรมใส่วันที่ จากในเครื่อง ลงในช่อง TextUpdate)

จะได้เป็น

Private Sub cmdSave_Click()
Me.TextUpdate = Date()
End Sub

เพิ่มเติม1 : กรณี อยากได้ วันที่+เวลา ใช้ Now() แทน Date() ก็ได้ครับ
เพิ่มเติม2 : กรณี อยากให้แสดงผลเป็น รูปแบบอื่นๆ เช่น 1/7/64 ,02/09/2564 ใส่คำสั่ง Format() ช่วยได้ครับ
Me.TextUpdate = Format(Date(),"dd/mm/yyyy") -> 01/08/2564
Me.TextUpdate = Format(Date(),"d/m/yyyy") -> 1/8/2564
Me.TextUpdate = Format(Date(),"d/m/yy") -> 1/8/64

อย่าลืมเชื่อม TextUpdate กับ field เพื่อเก็บข้อมูลด้วยนะครับ

Docmd.Setwarnings false

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

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

คิวรี่ไม่สามารถจัดกึ่งกลางเวลา export ได้ครับ
แต่เราสามารถใช้ การเขียนโค๊ดเปิดไฟล์ที่ Export ไปแล้ว มาแก้ไขเช่นจัดกึ่งกลาง ทำให้เนื้อหาพอดีกับคอลั่มน์ได้ครับเช่น

Private Sub export_Click()
    Dim objExcelApp As Excel.Application
    Dim wb As Excel.Workbook
    Dim sht As Object
    Dim sFilename  As String
   
    sFilename = "E:\ExportedResults1.xls"  'เลือกตำแหน่งของไฟล์ที่ต้องการ Export และ เปิดมาแก้ไข
    DoCmd.OutputTo acOutputQuery, "ชื่อคิวรี่", acFormatXLS, sFilename  'โค้ดสั่ง Export ตามโค๊ดเดิมของท่านได้เลย
   
Set objExcelApp = Excel.Application
Set wb = objExcelApp.Workbooks.Open(sFilename)
Set sht = wb.Worksheets(1)
objExcelApp.Visible = True
sht.Columns("A:W").HorizontalAlignment = xlCenter   'กำหนดให้ column A ถึง W ของ Sheet จัดกึ่งกลาง จะเอาถึงคอลั่มน์ไหนก็กำหนดเอาได้เลย
sht.Columns("A:W").EntireColumn.AutoFit 'กำหนดให้คอลัมน์พอดีกับข้อมูล
wb.Save  'สั่งบันทึก
wb.Close  'สั่งปิดไฟล์
objExcelApp.Quit 'สั่งจบการทำงาน
Set objExcelApp = Nothing
End Sub

ปรับโค๊ดเป็นแบบนี้นะครับ

เอาโค้ดในการล๊อกอินไปไว้ใน Event On Enter ของปุ่มเช่น

Private Sub Command4_Enter()
Dim fpass As String, fusername As String
If IsNull(Me.UserBox) Then
MsgBox "กรุณาระบุ UserName", vbInformation, "ข้อผิดพลาด"
Exit Sub
ElseIf IsNull(Me.PassBox) Then
MsgBox "กรุณาระบุ Password", vbInformation, "ข้อผิดพลาด"
Else
fusername = Nz(DLookup("[UserName]", "UserV", "[UserName]='" & Me.UserBox & "'"))
If fusername = "" Then
    MsgBox "ชื่อผู้ใช้ไม่ถูกต้อง", vbCritical, "ไม่พบชื่อผู้ใช้งาน"
Else
        fpass = Nz(DLookup("[Password]", "UserV", "[UserName]='" & Me.UserBox & "'"))
       If fpass = Me.PassBox Then
            DoCmd.Close acForm, Me.name
            DoCmd.OpenForm "PIScreen_vaccine"
          Else
                    MsgBox "รหัสผ่านไม่ถูกต้อง", vbCritical, "พบข้อผิดพลาด"
    End If
    End If
    End If
End Sub

ส่วนของการเรียกใช้ ให้ใส่ไว้ใน Event OnClick หรือ AfterUpdate ของ คอนโทรล เช่น

Private Sub PassBox_AfterUpdate()
Command4_Enter
End Sub
Private Sub BtnLogIn_Click()
Command4_Enter
End Sub