With [textbox].FormatConditions
            .Delete 'ลบเงื่อนไขเดิม
            With .Add(acExpression, acEqual, "[txt1]<60") 'เพิ่มรูปแบบตามเงื่อนไข
            .BackColor = vbRed 'แสดงสีของ textbox
            End With
        End With

จะประมาณนี้    รูปแบบอื่นๆ ก็หาใน google เอานะครับ  หรือ  https://www.thai-access.com/topic_post.asp?CategoryID=&TopicID=3032

ตัวอย่าง 

1.กำหนดคุณสมบัติฟอร์ม อนุญาตให้เพิ่ม เป็น  "ไม่ใช่"
2.สร้าง textbox_tmp ขึ้นมา โดยไม่เชื่อมกับฟิลด์ของตาราง
3.ปุ่มเพิ่ม
    If Not IsNull(Me.textbox_tmp) Then
            Me.AllowAdditions = True
            DoCmd.GoToRecord , , acNewRec
            Me.txt_Message=me.textbox_tmp
    End If
4.ปุ่มบันทึก
    me.Refresh
    Me.textbox_tmp=Null
    Me.AllowAdditions = False

จะประมาณนี้ครับ 

คลิปอาจารย์เพิ่งทำ  ผมแปะกันลืมละกัน

#If Win64 Or VBA7 Then
   Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
   Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End if

ทำโค๊ดแบบนี้  เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย

ตอนเลือกเสร็จ  ต้องมีคำสั่งให้ซับฟอร์มรีเฟรซ หรือ รีคิวรี่ ด้วยครับ

ทำ sub ฟอร์ม 2 อัน ก็อยู่ด้วยกันแล้ว

ตามหลัก คนต้องมีที่อยู่  ก็ควรจะบันทึกที่อยู่ก่อน  แล้วจึงให้สามารถมาบันทึกคนได้

ทำแบบนี้เหมือนทำพร้อมๆ กัน เราก็คีย์ข้อมูลมากขึ้นสิครับ

5คน หรือ 10คน อยู่บ้านเดียวกัน ยังต้องมาคีย์ที่อยู่ทุกคนอีก (มันไม่ลดภาระ)