เปลี่ยนเป็นไม่ใช่

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

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

ลองเปลี่ยนตรงนี้เป็นไม่ใช่ดูครับ

ปัญหานี้เกิดเกิดได้จากหลายสาเหตุ

ที่เคยเจอ
1. ไม่ได้เปิด Excel มาเพื่อ Reformat ตารางให้เหมาะสมสำหรับการนำเข้า Access เช่น มีข้อมูลอยู่ในคอลัมน์ A ถึง G แล้วก็มีขยะโผล่มาใน J20, K300 และอื่นๆ
2. ข้อมูลแถวแรกใน Excel (ไม่นับ Header) เป็นตัวเลข แล้ว แถวถัดไปเป็น Text เกิดจากความฉลาด (หรือสาระแน) ของ Access ที่คิดว่าข้อมูลทั้งหมดต่อจากนี้เป็นตัวเลข พอไม่เป็นตัวเลขก็เลย Error
3. ไฟล์ Excel ไม่ใช่ Excel

ตัวอย่างไฟล์ครับ

ใส่codeที่ปุ่มครับ

ชื่อTextbox.BackColor = vbRed

ต้องไปตั้งค่า Regional Settings ให้เป็นปี พ.ศ. ครับ
แต่แนะนำให้ใช้ใน Access เท่านั้นนะครับ