ผมมี table อยู่ 2 table table1 ได้สร้างฟอร์ม1ไว้กรอกข้อมูล table2 เป็น table เปล่าซึ่งทุก Field เหมือนกับ table1 ทุก Field (เพื่อไว้ทำการ copy ข้อมูลจาก table1 มาเพิ่มเก็บไว้ใน table2 และมีชื่อเหมือนกันทุก Field) โดยสมมติ table1 มี Field อยู่ 10 Field คือ A - J
A เป็นคีย์หลัก = AID
B,C,D,E เป็น txtbox
F,G.H   เป็น combobox
ที่เหลือ เป็น txtbox หมด

ปัญหาคือ ผมได้สร้างปุ่มสำหรับ copy ไว้ที่ฟอร์ม1 ได้เขียน code ดังนี้
(ได้ค้นหาจากบอร์ด และนำมาฝึกเขีึยนครับ)

Private Sub cmdresign_Click()
On Error GoTo Err_cmdresign_Click

Dim sqlStatement As String
Dim msg As Integer
    msg = MsgBox("คุณต้องการคัดลอกเร็คคอร์ดนี้ ใช่ หรือ ไม่" & Chr(10) & Chr(13) _
                            & "Yes - ต้องการ, No - ไม่ต้องการ", vbYesNo)
    If msg = vbYes Then
        Me.AllowDeletions = True
sqlStatement = "INSERT INTO table2 (A,B,C,D,E,F,G,H,I,J) " & _
"SELECT [A],[B],[C],[D],[E],[F],[G],[H],[I,[J]" & _
"FROM table1" & _
"WHERE [A]=[A],[B],[C],[D],[E],[F],[G],[H],[I],[J] " & ""

DoCmd.RunSQL sqlStatement
DoCmd.SetWarnings False
    End If

Exit_cmdresign_Click:
    Exit Sub

Err_cmdresign_Click:
    MsgBox Err.Description
    Resume Exit_cmdresign_Click

End Sub

เมื่อกดปุ่มที่สร้างไว้ มันขึ้น Compile error: Sub or Function not defined ครับ

ไม่ทราบว่าผมต้องเพิ่มหรือแก้ไขตรงไหนบ้างครับ ลองมาหลายอย่างแล้วมันไม่ได้ซักที รบกวน อ.และท่านผู้รู้ทุกท่านช่วยกรุณาแนะนำ หรือเขียนให้ที่ครับ และช่วยอธิบายด้วยครับ

ขอบคุณครับ