Отключить по умолчанию msgbox

Я хочу отключить msgbox по умолчанию из Access. Это мой код,Отключить по умолчанию msgbox

Private Sub textRequiredDate_AfterUpdate() 

DoCmd.SetWarnings False 

If Not IsDate(textRequiredDate.Value) Then 
MsgBox "Please enter a date" 

Else 

End If 

If textRequiredDate.Value < textOrderDate.Value Then 
MsgBox "Required date must be after Order Date" 
textOrderDate.SetFocus 
textRequiredDate.SetFocus 
textRequiredDate.Value = "" 

Else 

End If 

End Sub

Когда я пишу письма на моей дате требуется я получаю по умолчанию MS MsgBox на доступ, я хочу, чтобы изменить его на собственное поле сообщения.

источник

2013-02-19 Cesar

Отключение предупреждений обычно не является хорошей идеей, что вы видите в этих msgbox? –

В какой ситуации это происходит? –

Я хочу отключить msgbox от доступа и использовать свой собственный msgbox. У меня есть код, который я написал выше – Cesar

Попробуйте это:

DoCmd.SetWarnings false 
Application.DisplayAlerts = false

источник

2013-02-19 12:51:41

Я уже устал от этого и до сих пор не работает. Должен ли я указать, вводит ли пользователь буквы в «Дата требуется» для ввода даты? – Cesar

** НИКОГДА ** установить предупреждения ложные! http://stackoverflow.com/questions/11213892/whats-the-difference-between-docmd-setwarnings-and-currentdb-execute/11213943#11213943 – Fionnuala

'Application.DisplayAlerts' не работает в Access, только в Excel – rohrl77

Вы можете создать пользовательскую ошибку с событием Form_Error, например, это для ошибки проверки Правило:

Private Sub Form_Error(DataErr As Integer, Response As Integer) 
     If DataErr = 2107 Then 
     MsgBox "There was an error." 
     Response = acDataErrContinue 
     End If 
End Sub

Другие ошибки могут быть:

Private Sub Form_Error (DataErr As Integer, Response As Integer) 
    Const REQUIREDFIELD_VIOLATION = 3314 
    Const INPUTMASK_VIOLATION = 2279 
    Const DUPLICATEKEY_VIOLATION = 3022 
    If DataErr = DUPLICATEKEY_VIOLATION Then 
    MsgBox "There was a key violation!" 
    Response = acDataErrContinue 
    End If 
End Sub

источник

2013-02-19 13:31:55 Fionnuala

Отключить по умолчанию msgbox

ответ

Смежные вопросы