Access - Fonction
Résolu
CLABEN
Messages postés
23
Statut
Membre
-
Samygale Messages postés 46 Statut Membre -
Samygale Messages postés 46 Statut Membre -
Bonjour,
Windows XP – Access 2000.
J'ai créé une fonction pour filtrer des enregistrements. Lorsque j'active la fonction j'ai le message suivant "l'expression entrée comporte un nom de fonction introuvable". Lorsque j'ouvre la fonction en modif., je remarque qu'en haut à droit le réglage est "(Déclarations")" et nom "F_Filtrer" (c'est le nom donné à la fonction). Si je sélectionne "F_Filtrer", et que j'enregistre; dès utilisation, le réglage se désactive et revient sur "(Déclarartions)". A noter que la fonction a fonctionné correctement 2 ou 3 fois. Je ne comprends pas.
Merci pour vos réponses
Windows XP – Access 2000.
J'ai créé une fonction pour filtrer des enregistrements. Lorsque j'active la fonction j'ai le message suivant "l'expression entrée comporte un nom de fonction introuvable". Lorsque j'ouvre la fonction en modif., je remarque qu'en haut à droit le réglage est "(Déclarations")" et nom "F_Filtrer" (c'est le nom donné à la fonction). Si je sélectionne "F_Filtrer", et que j'enregistre; dès utilisation, le réglage se désactive et revient sur "(Déclarartions)". A noter que la fonction a fonctionné correctement 2 ou 3 fois. Je ne comprends pas.
Merci pour vos réponses
Configuration: Windows XP Access 2000
A voir également:
- Access - Fonction
- Fonction si ou - Guide
- Access appdata - Guide
- Fonction trier excel - Guide
- Fonction remplacer word - Guide
- Restructuration base de données access - Forum Access
5 réponses
Voici le code:
Function F_Filtrer()
Filtre1 = "[Lettre] Like ""*"" & forms![F_Fiche_Selection].[CXPROP] & ""*"""
Filtre2 = "[Entreprise] Like ""*"" & forms![F_Fiche_Selection].[CXENTMAT] & ""*"""
Filtre3 = "[Designation] Like ""*"" & forms![F_Fiche_Selection].[CXDES] & ""*"""
DoCmd.OpenForm "F_Fiche_Selection_Resultat", acNormal, "", Filtre1 & "And" & Filtre2 & "And" & Filtre3, , acNormal
End Function
Function F_Filtrer()
Filtre1 = "[Lettre] Like ""*"" & forms![F_Fiche_Selection].[CXPROP] & ""*"""
Filtre2 = "[Entreprise] Like ""*"" & forms![F_Fiche_Selection].[CXENTMAT] & ""*"""
Filtre3 = "[Designation] Like ""*"" & forms![F_Fiche_Selection].[CXDES] & ""*"""
DoCmd.OpenForm "F_Fiche_Selection_Resultat", acNormal, "", Filtre1 & "And" & Filtre2 & "And" & Filtre3, , acNormal
End Function
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
- ok pour la position du curseur
- depuis un bouton placé sur le formulaire, j'active une macro pour
a) Ouvrir Formulaire
b) ExécuterCode ... Nom fonction: F_Filtrer()
Le plus étonnant c'est que la commande à fonctionné 3 ou 4 fois !!!