Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Kostya
Private Sub Form_Load() DoCmd.SetWarnings False DoCmd.RunCommand acCmdAppMaximize ShowWindow Application.hWndAccessApp, SW_HIDE DoCmd.RunSQL "DELETE ..." DoCmd.OpenQuery "qry_UPDATE..." DoCmd.OpenQuery "qry_UPDATE_1..." DoCmd.OpenQuery "qry_UPDATE_2..." DoCmd.OpenQuery "qry_UPDATE_3..." DoCmd.OpenForm "frm_Main" DoCmd.Close acForm, "frm_timer" End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.