เรียนอาจารย์ทุกท่าน
คืออยากทราบว่า code ของ acc2000 ใช้code ที่copyมาจาก acc2003 ได้ไหมครับ
ต้องเปลี่ยนอะไรไหมครับ ผมลองแล้วไม่ได้ครับ

Private Sub Text9_Exit(Cancel As Integer)
 
   Dim DB As DAO.Database
   Dim SQL As String
   Dim InTrans As Boolean

   If Nz(Me.Text9, "") = "" Then Exit Sub
    
   InTrans = False

On Error GoTo err_rtn

   Set DB = CurrentDb

DBEngine.BeginTrans: InTrans = True

    SQL = "insert into sheet11([Item number], [Item group], [Item name], [Item Classification], [Customer account], [Posted quantity], [Physical reserved], [Available physical], [Physical inventory], [Measure M2], [Net weight KG], [Serial number], [Batch number], [Warehouse], [QM Status Id], [Manufacturing date], [Production Machine Line]) select [Item number], [Item group], [Item name], [Item Classification], [Customer account], [Posted quantity], [Physical reserved], [Available physical], [Physical inventory], [Measure M2], [Net weight KG], [Serial number], [Batch number], [Warehouse], #" & Format(Now(), "dd-mmm-yyyy hh:nn") & "# , [Manufacturing date], [Production Machine Line] from copy12 where copy12.[Serial number] ='" & Me.Text9 & "'"
    DB.Execute SQL

   SQL = "delete * from copy12 where copy12.[Serial number] ='" & Me.Text9 & "' "
   DB.Execute SQL
   Text9.Text = ""
   Text9.SetFocus

DBEngine.CommitTrans dbForceOSFlush: InTrans = False
    Me.subform1.Form.Requery
    Me.subform11.Form.Requery
exit_rtn:
   Exit Sub

err_rtn:
   If InTrans Then DBEngine.Rollback
   MsgBox "error code " & Err.Number & ", " & Err.Description
   Resume Next


 
End Sub