incrémentation en vba

Version imprimable

04/02/2007, 14h15
brunhoff

incrémentation en vba

bonjour
sur une base access j'ai besoin d'incrémenter une clé primaire dans un formulaire
j'ai fait une recherche sur ce forum et j'ai trouvé ceci :

Code:

=(MaxDom("Personne";"Réf personne"))+1

que j'ai mis dans la propriété valeur par défaut du champ
mais j'ai le message #Erreur quand je veux ajouter un nouvel enregistrement
si quelqu'un a une idée :)
04/02/2007, 14h37
Heureux-oli
Bonjour et bienvenue sur le Forum Access de DVP.
Malheureusement, directement dans la valeur par défaut, ça ne marche pas.

Par contre, si tu fais une fonction, tu peux récupérer la valeur de la fonction en valeur par défaut.
Code:

1 2 3 4 Public Function PersonnePlusUn() PersonnePlusUn = (MaxDom("Personne";"Réf personne"))+1 End Function
Dans la valeur par défaut, il suffit de mettre =PersonnePlusUn()
04/02/2007, 14h50
brunhoff

merci mais sa ne fonctionne pas ...
avec la ligne suivante :

Code:

PersonnePlusUn = (MaxDom("Personne";"Réf personne"))+1

j'ai erreur de compilation et le ; est surligné

j'ai remplacé le ; par une , et ensuite il ne reconnait pas MaxDom comme commande :(

a mon avis le générateur d'expression n'est pas du vba
donc il n'est pas reconnu par visual basic
est ce que quelqu'un sait le faire en vba ??
04/02/2007, 16h30
mout1234
Code:

1 2 3 Public Function PersonnePlusUn() PersonnePlusUn = (DMax("Personne","Réf personne"))+1 End Function
Je me permets d'ajuster ta réponse Heureux-oli, tu as oublié de transcrire en syntaxe VBA ...
04/02/2007, 16h35
Renardo

Il faut metre se code sur le generateur de code et non sur le generateur d'expression
tu peux essayer sur :ApresMAJ sur entrer et aussi sorti, tu choisi celui qui te convien le mieu
04/02/2007, 16h37
brunhoff
merci mout1234
mais Maxdom n'est pas du vba
j'ai mis ce code
Code:

1 2 3 Public Function PersonnePlusUn() PersonnePlusUn = (DMax("Réf personne", "Personne")) + 1 End Function
je n'ai pas d'erreur mais rien ne s'affiche :(
04/02/2007, 16h40
mout1234
Au vu des noms je suppose que Personne est le nom de la table...

Ca ne serait pas plutot
Code:

1 2 3 Public Function PersonnePlusUn() PersonnePlusUn = (DMax("Réf Personne", "Personne")) + 1 End Function
04/02/2007, 16h45
brunhoff

lol en même temps
en fait j'ai toujours #Erreur

j'ai trouvé :)
Il manquait les crochets
Code:

1 2 3 Public Function PersonnePlusUn() PersonnePlusUn = (DMax("[Réf personne]", "[Personne]")) + 1 End Function
merci pour votre aide ;)