Fonction non définie dans l'expression

allroadspp Messages postés 38 Date d'inscription samedi 16 juin 2007 Statut Membre Dernière intervention 31 octobre 2008 - 31 janv. 2008 à 21:21
allroadspp Messages postés 38 Date d'inscription samedi 16 juin 2007 Statut Membre Dernière intervention 31 octobre 2008 - 7 mars 2008 à 11:54

Bonsoir,

je bute depuis pas mal de temps ça :

Lorsque je veux faire exécuter une fonction j'ai ce message :

fonction "xxxx" non définie dans l'expression....

J'ai beau coher et décocher les références, rien à faire....à priori pas d'erreur dans le code.....j'ai suivi les tutoriels...help me!!! (access 2007, WXP)

Function Date_convocation3(strDécision As String) As Date
Dim DtmConvocation As Date
'Décision(1) = "Apte 1 an"
'Décision(2) = "Apte 2 ans"
'Décision(3) = "Mis en attente de révision par le médecin-chef"
'Décision(4) = "Inapte opérationnel 1 mois"
'Décision(5) = "Inapte opérationnel 2 mois"
'Décision(6) = "Inapte opérationnel 3 mois"
'Décision(7) = "Inapte opérationnel 6 mois"
'Décision(8) = "Inapte opérationnel 12 mois"
'Décision(9) = "Inapte opérationnel définitif"
'Décision(10) = "Inapte secours à personnes temporaire"
'Décision(11) = "Inapte Secours à personnes définitif"
'Décision(12) = "Inapte incendie temporaire"
'Décision(13) = "Inapte incendie définitif"
'Décision(14) = "Inapte aux sports statutaires temporaire"
'Décision(15) = "Inapte aux sports statutaires définitif"
'Décision(16) = "Adaptation personnelle au sport"
'Décision(17) = "Apte avec restrictions (préciser)"
'Décision(18) = "A revoir"

Select Case strDécision
Case "Apte 1 an": DtmConvocation = (Date + 365)
Case "Apte 2 ans": DtmConvocation = (Date + 730)
Case "Mis en attente de révision par le médecin-chef": DtmConvocation = (Date + 30)
Case "Inapte opérationnel 1 mois": DtmConvocation = (Date + 30)
Case "Inapte opérationnel 2 mois": DtmConvocation = (Date + 60)
Case "Inapte opérationnel 3 mois": DtmConvocation = (Date + 90)
Case "Inapte opérationnel 6 mois": DtmConvocation = (Date + 180)
Case "Inapte opérationnel 12 mois": DtmConvocation = (Date + 365)
Case "Inapte opérationnel définitif": DtmConvocation = (Date + 365)
Case "Inapte secours à personnes temporaire": DtmConvocation = (Date + 90)
Case "Inapte Secours à personnes définitif": DtmConvocation = (Date + 365)
Case "Inapte incendie temporaire": DtmConvocation = (Date + 90)
Case "Inapte incendie définitif": DtmConvocation = (Date + 365)
Case "Inapte aux sports statutaires temporaire": DtmConvocation = (Date + 90)
Case "Inapte aux sports statutaires définitif": DtmConvocation = (Date + 365)
Case "Adaptation personnelle au sport": DtmConvocation = (Date + 365)
Case "Apte avec restrictions (préciser)": DtmConvocation = (Date + 90)
Case "A revoir": DtmConvocation = (Date + 30)
Case Else: DtmConvocation = "Vérifier la date de convocation !"
End Select
Date_convocation3 = DtmConvocation
End Function

A voir également:

64 réponses

Réponse 61 / 64

allroadspp Messages postés 38 Date d'inscription samedi 16 juin 2007 Statut Membre Dernière intervention 31 octobre 2008
6 mars 2008 à 16:13

Salut,

C'est vrai que je ne nage pas très vite.....en ces temps de grêve chez Air France
En fait j'ai suivi tes consignes : J'ai créé la tabe décision, reliée à la table visites reliée à la table agent. Chaque décision se rapportant à un chiffre qui s'additionne à la date de la visite : Convocation: [Date de la visite]+[Date_convocation]

Je vois ce que tu veux dire, mais en pratique , lorsque je mets OPERATION : "Dernier" dans le champ [Réf_agent] de ma nouvelle requête, je me retrouve avec le N° de référence de l'agent à la place de son identité....
Je vais potasser les requêtes regroupement car je n'ai pas pigé ce concept.

A bientôt et merci

Réponse 62 / 64

LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 6
6 mars 2008 à 21:04

Bonsoir,
en attendant que tu assimiles un peu plus le concept
de regroupement,repostes moi toutes tes tables utilisées avec
leur structure complètes .Je tacherais de t' aider à confectionner
la meilleure solution possible.

A+

<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
<hr />
/PRE>

Réponse 63 / 64

allroadspp Messages postés 38 Date d'inscription samedi 16 juin 2007 Statut Membre Dernière intervention 31 octobre 2008
7 mars 2008 à 11:50

Hou là, il y en a beaucoup !
Je peux te mailer le doc : [mailto:gael.melot@sdis973.fr gael.melot@sdis973.fr
]Dommage que l'on ne puisse pas faire de copie d'écran.

Réponse 64 / 64

allroadspp Messages postés 38 Date d'inscription samedi 16 juin 2007 Statut Membre Dernière intervention 31 octobre 2008
7 mars 2008 à 11:54

J'ai utilisé ta méthode. Ayant des chiffres (références) à la place des noms, j'ai supprimé les champs différents, afin de ne regrouper que ceux qui sont comparables entre eux. Cette méthode fonctionne, mais là je me retrouve avec une requête dans laquelle je n'ai plus que l'identité et la date de la dernière visiste. il me manque toutes les autres infos, nécéssaires pour établir mon état à imprimer....

Le grand intérêt d'Access, c'est quand une solution est trouvée.....un autre problème apparaît........on ne s'ennuie jamais !

Discussions similaires

erreur de compilation sub et function non definie

Problème avec ... Erreur de compilation: Procédure Sub ou Function non définie

Erreur de compilation : Variable non définie

Procedure Sub ou fonction non définie...

la référence d'objet n'est pas définie à une instance d'un objet

Votre réponse

Discussions similaires