TopPicLogo TopPicText

Переход на следующую - предыдущую (новую) запись формы

Private Sub cmdНаСледующуюЗапись_Click()
'Переход на следующую запись
'--------------------------------------------------------------------------
On Error GoTo cmdНаСледующуюЗапись_Click_Err
    
    'DoCmd.GoToRecord , , acPrevious   'Переход на предыдущую запись формы
    DoCmd.GoToRecord , , acNext       'Переход на следующую запись формы

    'DoCmd.GoToRecord , , acNewRec      'Переход на новую запись    

    Me!Номенклатура.SetFocus          'Перевод фокуса на элемент управления "Номенклатура"

cmdНаСледующуюЗапись_Click_Bye:
    Exit Sub

cmdНаСледующуюЗапись_Click_Err:
    
    If Err.Number = 2105 Then 'Если переход на запись невозможен (тек. запись новая)
        MsgBox "Переход не возможен!" & vbCrLf & "Bla-Bla-Bla ...", vbCritical, "Ошибка перехода"
        GoTo cmdНаСледующуюЗапись_Click_Bye
    End If
    'Остальное (ну мало ли....)
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: cmdНаСледующуюЗапись_Click", vbCritical, "Error in module Form_Приход"
    Resume cmdНаСледующуюЗапись_Click_Bye
End Sub
Назад ToTop
L.E. 06.02.2017
Рейтинг@Mail.ru