Code:
Function UpdateDDHFromLEBackend()
On Error GoTo UpdateDDHFromLEBackend_Err
If SET_LINKS = True Then
'run your existing append code
DoCmd.OpenQuery "qryDeleteHolesForUpdate", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateCollar", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateBLEA", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateCARB", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateCHLO", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateCLAY", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateDRQZ", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateDSIL", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateGEOT", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateGREY", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateGRPH", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateHYHE", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateLIMO", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateLITH", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdatePLEO", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateRADI", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateSDST", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateSILI", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateSINT", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateSORI", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateSTCA", acViewNormal, acEdit
DoCmd.OpenQuery "qryUpdateSURV", acViewNormal, acEdit
MsgBox "Complete.", vbOKOnly, ""
BREAK_LINKS 'remove the links
Else
MsgBox "Please review the list of external tables", vbCritical, "Error while linking external tables"
End If
UpdateDDHFromLEBackend_Exit:
Exit Function
UpdateDDHFromLEBackend_Err:
MsgBox Error$
Resume UpdateDDHFromLEBackend_Exit
End Function
Not sure if that's correct at all. And not sure when or how to run BREAK_LINKS(). Also, when I try to run this I get the error in the attached.