Discussion :

[brunhoff]

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 :

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

=(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

[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 :

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

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()

[brunhoff]

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

Code :

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

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 ??

[mout1234]

Code :

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

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 ...

[brunhoff]

merci mout1234
mais Maxdom n'est pas du vba
j'ai mis ce code

Code :

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

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

[mout1234]

Au vu des noms je suppose que Personne est le nom de la table...

Ca ne serait pas plutot

Code :

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

1
2
3
Public Function PersonnePlusUn()
PersonnePlusUn = (DMax("Réf Personne", "Personne")) + 1
End Function

[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