#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คน อยู่บ้านเดียวกัน ยังต้องมาคีย์ที่อยู่ทุกคนอีก (มันไม่ลดภาระ) 

ผมทดสอบดูแล้ว ผ่านนะครับ พิมพ์ตัวเลขแล้วกด Enter มันก็เตือนเลย 

คงประมาณนี้ คร่าวๆ

Control Panel > Region >Formate ต้องเป็น Thai (Thailand) Currnet language ต้องเป็น Thai (Thailand)

Option Compare Database
      Private Const LOCALE_SSHORTDATE = &H1F
      Private Const WM_SETTINGCHANGE = &H1A
      Private Const HWND_BROADCAST = &HFFFF&
#If VBA7 Then
      Private Declare PtrSafe Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
      Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
      Private Declare PtrSafe Function GetSystemDefaultLCID Lib "kernel32" () As Long
#Else
      Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
      Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
      Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
#End If
     
Function setdate() 'ใช้เปลี่ยนรูปแบบวันที่
    Dim dwLCID As Long
            dwLCID = GetSystemDefaultLCID()
           
        If SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "dd/MM/yyyy") = False Then
            MsgBox "รูปแบบวันที่ไม่ใช่ dd/MM/yyyy", vbCritical, "Error"
        End If
            PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End Function

กระทู้ถามว่าไงเนี๊ย   

กำหนดค่าเริ่ม ในคุณสมบัติเป็น  False  ห้ามปล่อยว่างไว้