INSERT INTO problem

[Jackie]

Hi all



I am trying to use INSERT INTO to move data from one table to another but can get it to work

Public Sub cmdcomplete_Click()
  
  If Me.StockFittedID.Enabled = True Then 
    MsgBox "There must be at least one stock item per line"
  Else:
      
    Dim Message, Buttons, Choice
      Message = "Are you sure you want to complete?"
      Buttons = vbYesNo
      Choice = MsgBox(Message, Buttons)
    
      If Choice = vbNo Then
        Exit Sub
    
    Else:
    
  Dim db As Database
  Set db = CurrentDb()
      db.Execute "INSERT INTO StockFitted SELECT StockFittedTemp.StockFittedID, StockFittedTemp.JobID," & _
                "StockFittedTemp.StockID, StockFittedTemp.Quantity, StockFittedTemp.DateFitted," & _
                "StockFittedTemp.InvoicedPrice, StockFittedTemp.TotalPrice, FROM StockFittedTemp"
        
      db.Execute "DELETE * FROM StockFittedTemp"
      
        Me.subformcontainer.Requery
        
        Me.txttotal.Requery
      Set db = Nothing
    End If
  End If
End Sub

Can anyone see where I'm going wrong?

Cheers

Jackie

[RuralGuy]

Maybe this link will help: http://allenbrowne.com/ser-37.html

[Jackie]

cheers RuralGuy I will have a look at
Thanks
Jackie