[ Φόρμες ] Μηνύματα της ACCESS

[gregory_m]

Ευχαριστώ πολύ για την απάντηση, μάλιστα βρήκα και αυτο για μια
κατηγορία γνωστών σφαλμάτων.



Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 2113
MsgBox "Μόνο οι αριθμοί είναι αποδεκτές σε αυτό το πλαίσιο", vbCritical, "Call 1-800-123-4567"
Response = acDataErrContinue
Case 2237
MsgBox "Μπορείτε να επιλέξετε μόνο από το αναπτυσσόμενο πλαίσιο"
Response = acDataErrContinue
Case 3022
MsgBox "Έχετε εισάγει μια τιμή που υπάρχει ήδη σε άλλη εγγραφή"
Response = acDataErrContinue
SSN.Value = SSN.OldValue
Case 3314
MsgBox "Δεν μπορείτε να αφήσετε κενό αυτό το πεδίο"
Response = acDataErrContinue
Case Else
Response = acDataErrDisplay
End Select
ActiveControl.Undo
End Sub