Discussion :

[BORDEAUX4]

Bonjour;

J'ai un gros problèmes. Mes macros d'acces 2003 ne fonctionnent pas sous Access 2007.

Par exemple il me dit qu'il ne reconnait pas la fonction Numer dans ce code qui fonctionne pourtant sur Access 2003

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function numer(x As String) As Variant
Dim v As Variant
Dim rep As Variant
Dim ou As Integer
ou = 1
rep = Mid(x, 1, 1)
Do Until IsNumeric(rep) Or ou = Len(x)
ou = ou + 1
rep = Mid(x, ou, 1)
Loop
If IsNumeric(rep) Then
Do Until Not IsNumeric(Mid(x, ou + 1, 1)) Or ou = Len(x)
ou = ou + 1
rep = rep & Mid(x, ou, 1)
Loop
numer = rep
Exit Function
Else
numer = v
End If
End Function

Que puis-je faire

Merci pour tout

[Demco]

Je ne m'y connais pas trop en macros, mais comme ton sujet a peu de succès je me lance : essaie peut-être de déclarer ta fonction en Public.

En espérant t'aider.

[BORDEAUX4]

Bonjour DEMCO

C'est toi qui avait transmis ce code que j'ai mis dans un module, pour ensuite l'activité dans une requête. Sous access 2003 quand je l'active s'affiche alors numer (x) avec X que je remplace par le champs pour lequel j'extrait mes données numériques et ça marche sans problème.

Sous acces 2007, il me met seulement numer() avec aucun champ et qu'en bien même j'en met un, il me dit qu'il n'est pas reconnu

idem avec Public

Merci encore sinon pour ton intervention

[loufab]

Bonjour,

Je viens de faire le test en v2007 cette fonction marche très bien dans une requète.

Tu l'as mise dans un module ou dans un module de formulaire ?

Cordialement,

[BORDEAUX4]

Bonjour Loufab

Je l'ai mis dans un module

[BORDEAUX4]

Bonjour

Excusez moi, mais la fonction marche effectivement. Je ne sais ce qui s'est passé?

Merci à tous

[loufab]

Tant que le module n'est pas sauvegardé ACCESS ne la voit pas. C'est peut être une explication.