Попытка
Приватная подводная лодка Command0_Click ()
Тусклый db как база данных
Установите db = CurrentDb
На ошибке переход Err_Here
DoCmd.SetWarnings ложное
CurrentDb.Execute SQL
mySQL = «ИЗМЕНЯЕТ ТАБЛИЦУ [работники сопрягали к рынку] ДОБАВЛЯЕТ [штепсельная вилка или спичка] varchar (5)»
db. Исполните mySQL
mySQL = «УТОЧНЕНИЕ [работники сопрягали к рынку] УСТАНОВИЛО [штепсельная вилка или спичка] = """ сопрягаемое ""
MsgBox «флаг прикладной»
DoCmd.SetWarnings поистине
db. Исполните mySQL
Выходите подводная лодка
Err_Here:
MsgBox «XYZ»
Подводная лодка конца