VBA, MS Access MS Access в примерах

Открытие - Закрытие Формы (Переход форма - Другая форма)

     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
            If MsgBox("Выйти без сохранения", vbYesNo) = vbYes Then
                Me.Undo
                DoCmd.Close acForm, Me.Name
            End If
    End Select
    Response = acDataErrContinue
End Sub
Назад ToTop
L.E. 18.03.2018
Рейтинг@Mail.ru