Bookmark after Append Query

[beckysright]

Hi everyone, I am really new to VBA programming and I need some help. I have created a Quote form that when you click a button it creates the quote number, date and makes a subform visible. Finally, it also does an append query so that the next quote number is based off of. My problem is that every time I click it, the form returns to the first record. I know that there is a way to bookmark this but I can't seem to figure out how to do it. I would appreciate your help but since I am new, please be patient with me. Thank you!

Private Sub CreateQuoteNo_Click()



Me.QuoteNo = Format(Date, "yyyy") & "-" & Nz(DMax("Quotes", "PastQuotes"), 0) + 1
Me.QuoteNo.Visible = True
Me.QuoteDate.Visible = True
Me.btnPrintQuote.Visible = True
Me.btnEmailQuote.Visible = True
Me.CreateInvoice.Visible = True
Me.QuoteFrame.Visible = True
QuoteDate = Date
Me.QuoteServicesSF.Visible = True
Me.QuoteTotals.Visible = True
Me.btnMakeContract.Visible = True
DoCmd.Save


On Error GoTo Copy_Of_macAppendQuoteNo_Err


DoCmd.SetWarnings False


DoCmd.OpenQuery "qryAppendQuoteNo", acViewNormal, acEdit
DoCmd.SetFilter "", "[QuoteNo]", ""
DoCmd.Close acQuery, "qryAppendQuoteNo"
DoCmd.SetWarnings True




Copy_Of_macAppendQuoteNo_Err:
MsgBox Error$




End Sub

[June7]

Solutions I use are:

1. Click a 'New Quote' button on a menu form, create the Quote number, append record, open Quote form filtered to that new record, enter rest of data, close form.

2. Go to 'new record' on Quote form, populate the Quote number, enter rest of data, save record.

3. Requery and apply filter to the Quote form after record appended.