J'ai mis une fonction de filtrage sur perte focus d'un=20
champs ind=E9pendant
Si je met sur =E9v=E9nement apres mise =E0 jour aucun probl=E8me=20
par contre comme ce champ est rempli par l'interm=E9diaire=20
de MSCAL j'ai mis la fonction sur perte focus. il=20
m'ex=E9cute bien ma fonction filtrage mais il ne quitte=20
plus le focus mon controle est toujours s=E9lectionner et=20
impossible de quitter ce controle
Merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Problème résolu en direct par mail.
Noter quand même la subtilité pour charger le filtre. fonction d'origine: Private Sub T4_LostFocus() If Not IsNull(Me!T4) Then Me.Filter = "[N°] = '" & Me!T4 & "'" Me.FilterOn = True Else Me.FilterOn = False Me.Filter = "" End If End Sub
Cette fonction provoque l'erreur décrite par didier. pour supprimer cette erreur, placer la fonction dans l'évènement T4_AfterUpdate ce qui est la solution normale adoptée dans access. s'il est impératif de garder la fonction dans l'événement LostFocus, contourner la difficulté en ignorant les erreurs système et en déplaçant le focus sur un autre contrôle. nouvelle fonction: Private Sub T4_LostFocus() If Not IsNull(Me!T4) Then Me.Filter = "[N°] like '" & Me!T4 & "'" Me.FilterOn = True Else Me.FilterOn = False Me.Filter = "" End If On Error Resume Next Me.T6.SetFocus End Sub dans ce cas le filtre fonctionne parfaitement et le focus passe bien sur T6. CQFD. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" a écrit dans le message de news: 221301c4fcbd$daa3c180$ Bonjour
J'ai mis une fonction de filtrage sur perte focus d'un champs indépendant Si je met sur événement apres mise à jour aucun problème par contre comme ce champ est rempli par l'intermédiaire de MSCAL j'ai mis la fonction sur perte focus. il m'exécute bien ma fonction filtrage mais il ne quitte plus le focus mon controle est toujours sélectionner et impossible de quitter ce controle Merci de votre aide
Problème résolu en direct par mail.
Noter quand même la subtilité pour charger le filtre.
fonction d'origine:
Private Sub T4_LostFocus()
If Not IsNull(Me!T4) Then
Me.Filter = "[N°] = '" & Me!T4 & "'"
Me.FilterOn = True
Else
Me.FilterOn = False
Me.Filter = ""
End If
End Sub
Cette fonction provoque l'erreur décrite par didier.
pour supprimer cette erreur, placer la fonction dans l'évènement
T4_AfterUpdate ce qui est la solution normale adoptée dans access.
s'il est impératif de garder la fonction dans l'événement LostFocus,
contourner la difficulté en ignorant les erreurs système et en déplaçant le
focus sur un autre contrôle.
nouvelle fonction:
Private Sub T4_LostFocus()
If Not IsNull(Me!T4) Then
Me.Filter = "[N°] like '" & Me!T4 & "'"
Me.FilterOn = True
Else
Me.FilterOn = False
Me.Filter = ""
End If
On Error Resume Next
Me.T6.SetFocus
End Sub
dans ce cas le filtre fonctionne parfaitement et le focus passe bien sur T6.
CQFD.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 221301c4fcbd$daa3c180$a601280a@phx.gbl...
Bonjour
J'ai mis une fonction de filtrage sur perte focus d'un
champs indépendant
Si je met sur événement apres mise à jour aucun problème
par contre comme ce champ est rempli par l'intermédiaire
de MSCAL j'ai mis la fonction sur perte focus. il
m'exécute bien ma fonction filtrage mais il ne quitte
plus le focus mon controle est toujours sélectionner et
impossible de quitter ce controle
Merci de votre aide
Noter quand même la subtilité pour charger le filtre. fonction d'origine: Private Sub T4_LostFocus() If Not IsNull(Me!T4) Then Me.Filter = "[N°] = '" & Me!T4 & "'" Me.FilterOn = True Else Me.FilterOn = False Me.Filter = "" End If End Sub
Cette fonction provoque l'erreur décrite par didier. pour supprimer cette erreur, placer la fonction dans l'évènement T4_AfterUpdate ce qui est la solution normale adoptée dans access. s'il est impératif de garder la fonction dans l'événement LostFocus, contourner la difficulté en ignorant les erreurs système et en déplaçant le focus sur un autre contrôle. nouvelle fonction: Private Sub T4_LostFocus() If Not IsNull(Me!T4) Then Me.Filter = "[N°] like '" & Me!T4 & "'" Me.FilterOn = True Else Me.FilterOn = False Me.Filter = "" End If On Error Resume Next Me.T6.SetFocus End Sub dans ce cas le filtre fonctionne parfaitement et le focus passe bien sur T6. CQFD. -- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://OfficeSystem.Access.free.fr/runtime/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"didier" a écrit dans le message de news: 221301c4fcbd$daa3c180$ Bonjour
J'ai mis une fonction de filtrage sur perte focus d'un champs indépendant Si je met sur événement apres mise à jour aucun problème par contre comme ce champ est rempli par l'intermédiaire de MSCAL j'ai mis la fonction sur perte focus. il m'exécute bien ma fonction filtrage mais il ne quitte plus le focus mon controle est toujours sélectionner et impossible de quitter ce controle Merci de votre aide
