น่าจะใช้ การเคลื่อนย้ายเม้าส์ และ การกำหนดเวลา ครับ  อาจใช้ทั้ง 2 ร่วมกัน หรือ อย่างใดอย่างหนึ่ง

Private Sub MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   เงื่อนไข
      ตรงเงื่อนไข ก็เปิดฟอร์ม
End Sub

Private Sub Form_Timer()
  เงื่อนไข
     ตรงเงื่อนไข ก็เปิดฟอร์ม
End Sub

Me.assdate = Now()
ตอนเพิ่มข้อมูล หรือ ตอนบันทึกข้อมูลเสร็จ เลือกเอาอย่างใดอย่างหนึ่ง  และ รูปแบบการเก็บข้อมูลของ assdate ก็ต้องเป็น General Date

น่าจะแบบนี้

DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord


ถ้าไม่ได้คงต้องส่งลบด้วยคิวรี่

ป้องกันการปิดด้วย X
Private Sub Form_Unload(Cancel As Integer)
    Cancel = True
End Sub

ยกเลิกการป้องกันการปิดด้วย X
Private Sub Command1_Click()
   Me.OnUnload = ""
End Sub

ไม่รู้ใช่ป่าวแบบนี้

ไม่รู้ว่ามีฟังชั่นของ Access ในตัวมันเองหรือป่าว  แต่ทำฟังชั่นใช้เองก็ O ยุนะครับ 

ทั้ง 2 ค่า ABCDEFGHIJKLM  และ  ABCDEFGHIJ  M  มีความยาว  13 ตัวอักษรเท่ากัน  แต่อันนึงอยากตัดเอา 12 ตัวอักษร   อีกอันอยากได้  10 ตัวอักษร  ใช้เงื่อนไขอะไรดี มาแยกแยะให้มันแตกต่างกันน้อ      ใช้ Instr([txtsticker]," ") หาตำแหน่งช่องว่าง แล้วใช้ Mid()เข้ามาช่วย ถ้าเกิดว่ามัน เป็น AB  CDEFGHIJM จะทำไงล่ะ
หรือจะ Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))

table สิครับ  แกะตัวอย่างดูครับ