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