Forum - Φόρμες Μηνύματα της ACCESS

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] Μηνύματα της ACCESS (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3161-minimata-tis-access.html)

Μηνύματα της ACCESS

Καλημέρα στο φόρουμ,

Θα ήθελα να ρωτήσω εάν υπάρχει τρόπος να τροποποιήσουμε
τα αυτοματοποιημένα μηνύματα της εφαρμογής όταν προκαλούνται
απο σφάλματα του χρήστη. πχ. σε ένα combobox με περιορισμό στη λίστα
όταν ο χρήστης γράφει κάτι άλλο που δεν περιέχετε στην λίστα

Ευχαριστώ

Καλησπέρα
Σε πεδίο φόρμας αν εισάγεις μη πρέποντα δεδομένα η Access θα "κλωτσήσει" με μήνυμα. Δοκίμασα μια τέτοια περίπτωση σε πεδίο ημερομηνίας.
Λοιπόν! Αν στο συμβάν "Με το σφάλμα" της φόρμας, βάλεις τον κώδικα :

Κώδικας:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    If DataErr = 2113 Then

        Response = acDataErrContinue

        MsgBox "minima sfalmatos! ", vbInformation, "Titlos"

    End If

    Me.Undo

End Sub

τότε ελέγχεις την αντίδραση εσύ αντί η ..Access. Το ζήτημα είναι να βρείς το DataErr της δικής σου περίπτωσης.

με εκτίμηση
Νίκος

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

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