Function Requires Response After Each SQL Line

[kathleencampbell]

The following code requires that I confirm a row of data will be added to the table. Is there any way to have the script confirm or skip confirmation and move to the next line?

Function mcrINSERTINTO()

DoCmd.RunSQL "INSERT INTO dbo_tbl_Language ( db_lang_row_id, db_lang_name, db_culture_identifier ) VALUES (1, 'English - US', 'en-US')"
DoCmd.RunSQL "INSERT INTO dbo_tbl_Company_Config ( db_company_config_row_id, db_style_sheet, db_logo_file_name, db_logo_width, db_logo_height, db_platform_name ) VALUES (1, 'styles.css', 'bannerlogo.gif', 300, 65, 'Employee Survey')"
DoCmd.RunSQL "INSERT INTO dbo_tbl_level_snapshot ( db_level_snapshot_row_id ) VALUES (1);"
DoCmd.RunSQL "INSERT INTO dbo_tbl_level_snapshot_language ( db_level_snapshot_row_id, db_lang_row_id, db_level_snapshot_desc ) VALUES (1, 1, ""Corporate""); "
DoCmd.RunSQL "INSERT INTO dbo_tbl_Levels ( db_Levels_row_id, db_Level_num, db_Levels_Snapshot_ID ) VALUES (1, 1, 1); "
DoCmd.RunSQL "INSERT INTO dbo_tbl_Level_Language ( db_Level_lang_row_id, db_Levels_row_id, db_lang_row_id, db_Level_name ) VALUES (1, 1, 1, ""Corporate""); "



End Function

[pbaldy]

Use

CurrentDb.Execute "INSERT...", dbFailOnError

to run the SQL, or use DoCmd.SetWarnings, making sure to turn them back on at the end of the function.