ลองใส่คำสั่งนี้ลงใน Event > On load ของทุกฟอร์มที่อยากให้เวลาเปิดแล้วปิดฟอร์มอื่นๆทั้งหมดดูครับ

   Dim i As Integer
   Dim frm As Form
   Dim ar()
   i = 0
   For Each frm In Forms
        ReDim Preserve ar(i)
        ar(i) = frm.Name
        i = i + 1
   Next
    For i = 0 To UBound(ar)
        If ar(i) <> Me.Name Then DoCmd.Close acForm, ar(i)
    Next

ประมาณนี้ ปรับใช้ดูครับ

ได้แล้วครับ ขอบคุณมากๆครับ