Groundrush
Registered User.
- Local time
- Today, 18:08
- Joined
- Apr 14, 2002
- Messages
- 1,376
I have an "Append" qry that gets new records from another database (not Access) and appends it to a table in Access for people to view and use.
The problem that I am having is that sometimes certain fields from these records are sometimes left blank and because they are required in my main table, they are skipped.
The only way I can do fix this is by running the qry and then copying & pasting it into the table manually.
Does anyone have any ideas on how I can append all records, regardless of whether or not there are any blank fields?
see below:
Private Sub cmdGetNewOrders_Click()
DoCmd.SetWarnings False
DoCmd.OpenForm "frmPleaseWait", acNormal, "", "", acReadOnly, acNormal
DoCmd.RepaintObject acForm, "frmPleaseWait"
DoCmd.OpenQuery "qryGetConceptOrders", acNormal, acReadOnly
DoCmd.Close acForm, "frmPleaseWait"
DoCmd.Close acForm, "frmSubConOrders"
DoCmd.OpenForm "frmSubConOrders", acNormal, "", "", , acNormal
DoCmd.SetWarnings True
cmdGetNewOrders_Click_Exit:
Exit Sub
cmdGetNewOrders_Click_Err:
MsgBox Error$
Resume cmdGetNewOrders_Click_Exit
End Sub
Thanks
The problem that I am having is that sometimes certain fields from these records are sometimes left blank and because they are required in my main table, they are skipped.
The only way I can do fix this is by running the qry and then copying & pasting it into the table manually.
Does anyone have any ideas on how I can append all records, regardless of whether or not there are any blank fields?
see below:
Private Sub cmdGetNewOrders_Click()
DoCmd.SetWarnings False
DoCmd.OpenForm "frmPleaseWait", acNormal, "", "", acReadOnly, acNormal
DoCmd.RepaintObject acForm, "frmPleaseWait"
DoCmd.OpenQuery "qryGetConceptOrders", acNormal, acReadOnly
DoCmd.Close acForm, "frmPleaseWait"
DoCmd.Close acForm, "frmSubConOrders"
DoCmd.OpenForm "frmSubConOrders", acNormal, "", "", , acNormal
DoCmd.SetWarnings True
cmdGetNewOrders_Click_Exit:
Exit Sub
cmdGetNewOrders_Click_Err:
MsgBox Error$
Resume cmdGetNewOrders_Click_Exit
End Sub
Thanks