ผมลองใช้คำสั่งตามอาจารย์ได้แนะนำไว้ในกระทู้เก่า

Private Sub Commman_click()
docmd.setwarnings false
DoCmd.GoToRecord acDataForm, Me.Name, acFirst
docmd.runsql "Insert into table1(ชื่อฟิลด์, ชื่อฟิลด์) values(" & sec223 & ", " & sec224 & ")"
DoCmd.GoToRecord acDataForm, Me.Name, acNext, 1
docmd.runsql "Insert into table2(ชื่อฟิลด์, ชื่อฟิลด์) values(" & sec333 & ", " & sec334 & ")"
DoCmd.GoToRecord acDataForm, Me.Name, acNext, 1
docmd.runsql "Insert into table3(ชื่อฟิลด์, ชื่อฟิลด์) values(" & sec443 & ", " & sec444 & ")"
End sub

แล้วขึ้น Error ดังรูปครับ