Problème de fonction Access 2007

Fermé
comprendstoujoursrien Messages postés 1 Date d'inscription jeudi 2 septembre 2010 Statut Membre Dernière intervention 2 septembre 2010 - Modifié par comprendstoujoursrien le 2/09/2010 à 13:21
Bonjour,

J'ai fait une appli sur MS Access 97 et j'ai un souci quand je l'utilise avec Access 2007.
Je m'explique, j'ai fait une fonction qui s'exécute quand je double clic dans une case.
Voila la fonction :

Option Compare Database

Function NumCommande()
Dim dbBaseDonnees As Database
Dim dsNomssDyna As Dynaset
Dim dsFormulaire As Dynaset
Dim NomChamp As String

Set dbBaseDonnees = CurrentDb()
Set dsNomssDyna = dbBaseDonnees.CreateDynaset("COMMANDES")
Set dsFormulaire = Screen.ActiveForm.Dynaset
NomChamp = "N° d'OA"
dsNomssDyna.MoveLast
Debug.Print NomChamp
x = dsNomssDyna![num]
y = Val(x)
z = y + 1
a = Str$(z)
Mid$(a, 1, 1) = "0"
Debug.Print a
dsFormulaire.AddNew
dsFormulaire![num] = a
dsFormulaire.Update
End Function

En gros, je voudrais que ca mette directement le numéro de la commande suivante quand je double clic sur une case.
Dans la case en question, j'ai mis en face de "sur double clic" : =[NumCommande()]
J'ai essayé avec ExécuterCommande mais sans succès.

Quelqu'un saurait-il comment faire ?

Merci d'avance !