Auto Open Security Notice

[SorenIX]

Hi,



I made a button to import 2 tables from a selected file, but when the files are open to import the table, it asks if I want to open or not... That security notice thing. It only imports the tables after you click on the open of the two security notices. I attached a zipped picture.

Is there a way I could make it open automaticly?

I thought about a sort of macro that would imitate < LeftArrow, Enter, LeftArrow, Enter >, but I don't know how and if it's possible.

EDIT :

I know that for Access 2007 the extensions are *.accdb and *.accde. I just want to know what they are for Access 2010.

[June7]

Post the code for the import procedure.

[SorenIX]

This is the import code :

Private Sub Yes_Click()

    Me.tbHidden.SetFocus
    
    DoCmd.RunSQL ("DROP TABLE AnimeTab")
    DoCmd.RunSQL ("DROP TABLE TypeTab")
    DoCmd.TransferDatabase acImport, "Microsoft Access", (tbFile), acTable, "AnimeTab", "AnimeTab", False
    DoCmd.TransferDatabase acImport, "Microsoft Access", (tbFile), acTable, "TypeTab", "TypeTab", False
    DoCmd.Close acForm, "ImportForm", acSaveNo
    DoCmd.OpenForm "MenuForm", acNormal
    
End Sub

Right now I'm trying to make sure that if the table doesn't exist in the database, it won't stop the process... but I can't get it to work... I tried this :

Private Sub Yes_Click()

    Me.tbHidden.SetFocus
    
    If AnimeTabTableExists Then
    DoCmd.RunSQL ("DROP TABLE AnimeTab")
    
    If TypeTabTableExists Then
    DoCmd.RunSQL ("DROP TABLE TypeTab")
    
    Else
    DoCmd.TransferDatabase acImport, "Microsoft Access", (tbFile), acTable, "AnimeTab", "AnimeTab", False
    DoCmd.TransferDatabase acImport, "Microsoft Access", (tbFile), acTable, "TypeTab", "TypeTab", False
    DoCmd.Close acForm, "ImportForm", acSaveNo
    DoCmd.OpenForm "MenuForm", acNormal
    
End If
End If
End Sub

But nothing happens... no error... no import... just nothing. I'm not sure about the If AnimeTabTableExists Then step.

[June7]

Here is thread about how to check if table exists and has alternate approach of just handling the error if table does exist. http://www.tek-tips.com/viewthread.cfm?qid=933401

I don't know how to get around the security warning other than to reduce security settings in the Access app. I doubt DoCmd.SetWarnings = False will suppress security warnings.

Step debug, follow the code as it executes, discover where it deviates from expected behavior.