Открытие - Закрытие Формы (переход форма - другая форма)
DoCmd.Close acForm, Me.Name 'Закрытие текущей
DoCmd.OpenForm "FormName"
DoCmd.Close acForm, Me.Name DoCmd.OpenForm "FormName", acNormal, "", "", acFormPropertySettings, acNormal 'Или так - как всплывающая форма 'DoCmd.OpenForm "FormName", acNormal, , , , acDialog 'Задаём значения поля только что открытой формы Forms("FormName")!txtText = "Любой Текст !" Forms("FormName")!txtText.SetFocus 'перевод фокуса ...
По материалам: http://www.cyberforum.ru/ms-access/thread2008504.html Private Sub Form_Error(DataErr As Integer, Response As Integer) Select Case DataErr Case 3314 MsgBox "поле БЛАБЛАБЛА не может быть пустым!" If MsgBox("Выйти без сохранения", vbYesNo) = vbYes Then Me.Undo DoCmd.Close acForm, Me.Name End If End Select Response = acDataErrContinue End Sub |
|||
L.E. 14.08.2019 |