If object exist question

[sibleytr]

Whenever the FE of my MDB loads it asks for a project to manage. Depending on the project, and it's location, it will delete the existing link and then connect to the needed BE link table.

However I have a situtaion where sometimes the linked table is not present to delete and thus the code fails.

    DoCmd.DeleteObject acTable, "tblock"
    DoCmd.TransferDatabase acLink, "Microsoft Access", strProjectPath.Value & "\DGNData.Mdb", acTable, "tblock", "tblock"

Is there away to create a If Then Else statement to check to make sure the object exist?

if exist <<linkTable>> then delete
Else
<<linkNewTable>

 

[RoyVidar]

What's often used, is just to allow for the exception, and go on:

[tt]on error resume next
DoCmd.DeleteObject acTable, "tblock"
if err.number<>0 then
err.clear
' it didn't exist
end if
on error goto <your error handler>
DoCmd.TransferDatabase acLink, "Microsoft Access", strProjectPath.Value & "\DGNData.Mdb", acTable, "tblock", "tblock"[/tt]

Roy-Vidar

 

[sibleytr]

You code good - thanks.