Discussion :

[brigerard]

Bonjour à tous,

J'utilise l'événement BeforeUpdate d'un champ Date pour invalider sa modification.

Le code fonctionne parfaitement, mais j'obtiens systématiquement une fenêtre avec le message "Propriété non trouvée"

Je ne parviens pas à éliminer ce message
SetWarnings ne fonctionne pas

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub DS_Date_BeforeUpdate(Cancel As Integer)
    Me.ActiveControl.Undo
    Cancel = True
End Sub

Quelqu'un peut-il m'aider?

[marot_r]

Sur quelle ligne l'erreur ?

Le setWarning ne sert pas dans ce genre de cas mais quand tu utilise des requêtes pour manipuler des données.

A+

[brigerard]

En debug le message apparait à la ligne end sub !!

[nirG95]

J'ai essayé ton code et je n'ai pas de message d'erreur et ça fonctionne :p Donc es-tu sur que l'erreur vient bien de ce bout de code ?

Cordialement

[brigerard]

J'ai essayé avec d'autres types de champ, le problème existe lorsqu'il s'agit d'un champ date !!!

[brigerard]

J'ai résolu mon problème en gérant l'erreur n°3270

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3270 Then           'Erreur propriété non trouvée
        Response = acDataErrContinue
    Else
        Response = acDataErrDisplay
    End If
End Sub