update recordset

[Jollywg]

I'm using 2 forms one is a customer entry form and the second is an invoice entry form for that particular customer. I'm sending the invoice form the customer id number to keep the link up. The form is set as a continuous form and what i am having the user do is press a button to add a new record. For example the customer needs a piece of equipment and the accessory to that equipment. This would be on two lines (records) in the continuous form. The code that i am doing this with works, i just need to "update" or refresh the form to display the new record.

Private Sub Command22_Click()
Dim rsInvoice As ADODB.Recordset
Set rsInvoice = New ADODB.Recordset
 
rsInvoice.Open "tblInvoice", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable
  If (Not (rsInvoice.EOF)) Then
    rsInvoice.MoveLast
  End If
  If (rsInvoice.Supports(adAddNew)) Then
    With rsInvoice
      .AddNew
      .Fields("InvoiceNum") = varInvoiceNumber
      .Fields("FreightCompany") = varFreightCompany
      .Fields("AgentRef") = varAgentRef
      .Fields("ProNumber") = varProNumber
      .Update
    End With
  End If
 
rsInvoice.Close
Set rsInvoice = Nothing
 
Me.Refresh
Me.Repaint
End Sub

Thanks in advance!

[RuralGuy]

A Requery is needed in order for a RecordSet to pick up or drop any new or deleted records. A Refresh simply updates current records in the RecordSet.

[Jollywg]

A Requery is needed in order for a RecordSet to pick up or drop any new or deleted records. A Refresh simply updates current records in the RecordSet.

You are awesome! thanks bunches!