Query not properly executing within VBA code

[kewelch]

Hi, I'm having a frustrating encounter with an append query. Here is the code I am running to add a record to tblCustomer after filling out the form bound to tblTempCustomer.

Private Sub AddCustomerShippingcb_Click()    
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "TempCustomerAddressesQuery", acViewNormal, acEdit
    ''''DoCmd.RunSQL "Delete [tblTempCustomer].* From [tblTempCustomer];"
    DoCmd.SetWarnings True
    
End Sub

When this executes, the record in tblTempCustomer is not appended to tblCustomer. However, if I leave the temporary table alone by not deleting the record (''''DoCmd.RunSQL "Delete...) and then simply run the query from the object list in the main access window, the record appends perfectly fine. Same query, the only difference is that the form is closed since it is running as a dialog box. All help/advice is appreciated, thanks.

[ssanfu]

The info you entered in the form is probably not saved.
Try changing the code to:

Private Sub AddCustomerShippingcb_Click()  
   'save the record first
    If Me.Dirty Then
       Me.Dirty = False
    End If
  
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "TempCustomerAddressesQuery", acViewNormal, acEdit
    ''''DoCmd.RunSQL "Delete [tblTempCustomer].* From [tblTempCustomer];"
    DoCmd.SetWarnings True
    
End Sub

I'm curious, why not just bind the form to tblCustomer instead of tblTempCustomer??