เพิ่มเติม code ต่อจากบรรทัดYearMonth = Format(Date, "yymm") เพื่อป้องกัน การ click mouse เล่น


If Not IsNull(DocType) And Not IsNull(DocId) Then
Exit Sub
Else

Code ของเดิม ==============================
...
...
...
...
code ของเดิม ===============================

เติม endif ที่บรรทัดสุดท้าย ก่อน endsub

End if

End Sub

ยอดเลยค่ะอาจารย์