VBA Code to copy fieds from one table into another as new record

[Freddie81]

I must be doing something wrong then. I just copied all your code and pasted it directly into my Event and ran it. It opens the Form "InvoiceDataEntryF" and then stops with error. It desnt open the subform. I took a screnshot of what I get.

[Freddie81]

Oh , nevermind lol. Sorry, I correted the spelling in the subform name so thats why it erored. Returned it to normal and now its working

Thank you so much for ll your help. I do ppreciate it

[Freddie81]

I went live with my database today and Im adding qoutes and hitting convet to invoice. For some reason the sunform only copies one record to the invoice subform nstead of all the records. Is there a tweak I can add to my code so that it copies all the records from the qouteDetailsSubform to the invoicedetailssubform?

[June7]

The code is only intended to copy one record and nothing in your posts indicated you wanted to copy multiple records. Try this:

DoCmd.OpenForm "InvoiceDataEntryF", acNormal, , , acFormAdd, acWindowNormal
Forms!InvoiceDataEntryF![CustomerID] = Me![CustomerID]
Forms!InvoiceDataEntryF![VAT] = Me![VAT]
Forms!InvoiceDataEntryF![InvoiceNotes] = Me![QouteNotes]
DoCmd.RunCommand acCmdSaveRecord
CurrentDb.Execute "INSERT INTO InvoicDetailsT(InvoiceID, Code, Qty, IPrice) SELECT " & _
    Forms!InvoiceDataEntryF.InvoiceID & _
    " AS IID, Code, Qty, QPrice FROM QouteDetailsT WHERE QouteID=" & Me.QouteID
Forms!InvoiceDataEntryF.[InvoicDetailsTSubform].Requery

Misspelling of Quote driving me nuts.

[Freddie81]

Lol...IOkay I changed all the qoutes to Quotes and had to redo the Quotes form but it's now working as it should thanks to your new code

[June7]

You might also want to correct InvoicDetailsT and InvoicDetailsTSubform to include the 'e' in Invoice. Also remove space from QuoteDetails Subform or replace with T to be consistent with InvoicDetailsTSubform. Or remove that T.