Private Sub КнопкаДЗ_Click()
On Error GoTo Err_Кнопка150дз_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  2 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  5 , , acMenuVer70 'Paste Append

Exit_КнопкаДЗ_Click:
    Exit Sub

Err_КнопкаДЗ_Click:
    MsgBox Err.Description
    Resume Exit_КнопкаДЗ_Click
    
End Sub

Private Sub ДубЗапВВ_Click()
   Dim strMsg As String, strInput As String

    ' Initialize string.
    strMsg = "Введенное вами число меньше 1 или больше 50. Вводите число только из этого периода!"
        ' Prompt user for input.
    strInput = InputBox( "Введите число между 1  и  50 .")
    ' Determine if user chose "Cancel".
    If strInput <> "" Then
        ' Test value of user input.
        Do While strInput <  0  Or strInput >  50 
            If MsgBox(strMsg, vbOKCancel,  "Error!" ) = _
                    vbOK Then
                DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  2 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  5 , , acMenuVer70 'Paste Append
            Else
                Exit Sub
            End If
        Loop
        ' Display user's correct input.
        MsgBox  "Вставлено записей "  & strInput &  "." 
    Else
        Exit Sub
    End If
End Sub

Private Sub ДубЗапВД_Click()
Dim t As Long, i As Long
    
On Error GoTo ErrCopy
i = InputBox( "Сколько раз копировать?" )
For t =  1  To i
    DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  2 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  5 , , acMenuVer70 'Paste Append


Next
    MsgBox  "Вставлено записей "  & i &  "." 
Exit Sub
    
ErrCopy:
    MsgBox  "Введено некорректное выражение!" 
End Sub

Private Sub ДубЗапВД_Click()
Dim t As Long, i As Long
    
On Error GoTo ErrCopy
If MsgBox( "Вы получили разрешение начальника договорной службы на дублирование записей?" , vbYesNo) = vbYes Then
    i = InputBox( "Сколько раз копировать?" )
    If MsgBox( "Вы действительно хотите вставить   "  & i &  "  записей?" , vbYesNo) = vbYes Then
    Else: GoTo ErrCopy
    End If
For t =  1  To i
    DoCmd.DoMenuItem acFormBar, acEditMenu,  8 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  2 , , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu,  5 , , acMenuVer70 'Paste Append
Next
    MsgBox  "Вставлено записей   "  & i &  "." 

Else: GoTo ErrCopy
End If
Exit Sub
    
ErrCopy:
    MsgBox  "Ошибка ввода, либо вам не разрешено дублировать записи!" 

End Sub