Как избавиться от сообщения, которое вываливается при отмене команды, подаваемой с кнопки, сделанной мастером ...
Как известно мастер кнопок создает следующую процедуру: Private Sub Кнопка19_Click() On Error GoTo Err_Кнопка19_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "НайтиТелефонПодписчика" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Кнопка19_Click: Exit Sub Err_Кнопка19_Click: MsgBox Err.Description Resume Exit_Кнопка19_Click End Sub для устранения ненужных нажатий на клавиши достаточно убрать из процедуры треть с низу строку MsgBox Err.Description Теперь при нажатии кнопки отмена будет происходить отмена без всяких дополнительных вопросов. Private Sub Кнопка19_Click() On Error GoTo Err_Кнопка19_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "НайтиТелефонПодписчика" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Кнопка19_Click: Exit Sub Err_Кнопка19_Click: Resume Exit_Кнопка19_Click End Sub Просмотров: 4326
Ваш коментарий будет первым | | |