| |
|
|
| | При прерывании выполнения DoCmd.Close в процедуре обработки события Form_UnLoad Access выдает сообщение, что выполнение макрокоманды прервано блин.
Как мне ему объяснить, что бы он это свое сообщение засунул себе обратно и больше никогда не показывал.  | |
| |
| |
| |
|
|
| | DoCmd.SetWarnings False
If you turn the display of system messages off in Visual Basic, you must turn it back on, or it will remain off, even if the user presses CTRL+BREAK or Visual Basic encounters a breakpoint. You may want to create a macro that turns the display of system messages on and then assign that macro to a key combination or a custom menu command. You could then use the key combination or menu command to turn the display of system messages on if it has been turned off in Visual Basic.
|
| |
| |
| |
| |
|
|
| |
всеравно пишет тоже самое  | |
| |
| |
| |
|
|
| | Пораньше всуньте DoCmd.SetWarnings False  | |
| |
| |
|
|
|
|
| |
|
|
| | Там ещё в настройках ацесса .....
Надо галочку убраать
или я вру 
Че та никак не вспомню.......  | |
| |
| |
| |
|
|
| | вот тут почитай: http://hiprog.com/forum/read.php?id_forum=1&id_theme=7635
только что этот вопрос решил.
Если лень читать или непонятно, в общем, можно вот так сделать. убери макрос, напиши обработчик в VBA:
Private Sub CloseButton_Click()
On Error GoTo ErrorHandler
DoCmd.Close acForm, "MyForm"
Exit Sub
ErrorHandler:
Select Case Err.Number
Case 3021 'сюда впиши номер выдаваемой ошибки о том, что закрытие формы прервано
'т.к. это никакая не ошибка, то ничего не делать
Case Else 'если это другая ошибка, то выведем сообщение
MsgBox "There is an error occured. Make a screenshot and send it for developer." + Chr(13) + _
"Error #" + CStr(Err.Number) + ". Description: " + Err.Description + Chr(13) + _
"Location: " + Me.Name + ", Private Sub CloseButton_Click()", vbCritical
End Select
Resume Next
End Sub
|
| |
| |
| |
| |
|
|
| | Stanislav  | |
| |
| |
